Cumul
V.K
-
Jauster Messages postés 142 Statut Membre -
Jauster Messages postés 142 Statut Membre -
Bonjour,
Je souhaite faire un cumul de toutes les valeurs que je saisi dans une cellule, dans une autre cellule.
Ex: si j'ai A1= 5, B1 me donne 5,ensuite quand je saisi 6 en A1 je souhaite avoir B1=11 .
Comment cela pourrait marcher ?
Merci d'avance pour vos réponses
Je souhaite faire un cumul de toutes les valeurs que je saisi dans une cellule, dans une autre cellule.
Ex: si j'ai A1= 5, B1 me donne 5,ensuite quand je saisi 6 en A1 je souhaite avoir B1=11 .
Comment cela pourrait marcher ?
Merci d'avance pour vos réponses
2 réponses
-
Bonjour
si vous êtes en Excel, il faut passer par VBA
une option ici:
voyez avec:
clic droit sur le nom d'onglet "feuil1"
et "visualiser le code"
cette option ajouta la valeur de A à la cellule B en ligne pour toute la colonne A
crdlmnt
https://mon-partage.fr/f/69t4yitn/
-
Bonjour,
Code à intégrer dans la feuille de calcul que vous souhaitez utiliser et non dans un module :
- Alt + F11 > Double-clic sur le nom de votre feuille à gauche (en jaune ) > et copier/collez le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Or Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub If IsNumeric(Target.Value) = False Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Merci d'utiliser des valeurs numériques uniquement", _ vbExclamation, _ "Erreur colonne A" Exit Sub End If Dim OldVal As Double, NewVal As Double NewVal = Target.Value Application.EnableEvents = False OldVal = Target.Offset(0, 1).Value Target.Offset(0, 1).Value = OldVal + NewVal Application.EnableEvents = True End Sub
Lorsque la valeur de A1 change, elle est additionnée à B1. Pour repartir à 0 il faut juste supprimer la valeur de B1
