Comment conserver un total cumulé dans une seule cellule sous Excel ?
Cet article vous propose une méthode simple pour maintenir un total cumulé dans une seule cellule sous Excel. Par exemple, si la cellule A1 contient actuellement la valeur 10, il suffit de saisir un nouveau nombre, comme 5, pour que la valeur affichée en A1 devienne automatiquement 15 (10 + 5). Voici comment obtenir facilement ce résultat.
Conserver un total cumulé dans une seule cellule à l’aide d’un code VBA
Conserver un total cumulé dans une seule cellule à l’aide d’un code VBA
Le code VBA ci-dessous vous permet de maintenir un total cumulé dans une cellule. Suivez attentivement les étapes suivantes, pas à pas.
1. Ouvrez la feuille de calcul contenant la cellule dans laquelle vous souhaitez conserver le total cumulé. Cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le code dans le menu contextuel.
2. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir la capture d’écran :
Code VBA : Conserver un total cumulé dans une seule cellule
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End SubRemarque : Dans ce code, A1 est la cellule où le total cumulé sera conservé. Veuillez indiquer la cellule souhaitée en fonction de vos besoins.
3. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Désormais, chaque fois que vous saisissez un nombre dans la cellule A1, le total cumulé s’affiche automatiquement, comme illustré dans la capture d’écran ci-dessous.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels