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/
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
Lorsque la valeur de A1 change, elle est additionnée à B1. Pour repartir à 0 il faut juste supprimer la valeur de B1
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
