formule cumul

[J.-P.]

Salut
Je suis à la recherche d'une formule de cumul, aidé moi car je bloque sur ce problème.

Joint un fichier pour comprendre.
Merci de votre aide

Jean-Pierre

 

[wilfried_42]

Re : formule cumul

bonjour

si j'ai tout compris

en B1 tu mets :

=OU(A1=10;A1=20;A1=30)*1

en C1 :

=SOMME($B$1:$B1)

attention ton classeur n'est pas en calcul automatique, reactualiser le calcul en appuyant sur F9

 

[J.-P.]

Re : formule cumul

Salut,
Merci déjà pour ces formules mais en C1 je veux si en A1 je remet un 10 en B1
doit prendre 1 et en C1 2 c'est ta dire en C1 il y avais un et maintenant encore une 1 donc C1 doit cahaque fois cumulé.

Merci

 

[Jocelyn]

Re : formule cumul

Bonjour le Forum,
Bonjour J.-P., wilfried_42,

Comme wilfried_42 est la il corrigera mon erreur si ce n'est pas bon 🙂🙄, car attention essai d'un bout de macro


un essai en fichier joint

Jocelyn

 

[CBernardT]

Re : formule cumul

Bonjour à tous,

Essaye cette macro évènementielle à placer dans le module de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") = 10 Or Range("A1") = 20 Or Range("A1") = 30 Then
Range("B1") = 1
Range("C1") = Range("C1") + Range("B1")
End If
End If
End Sub

 

[J.-P.]

Re : formule cumul

Merci Jocelyn pour cette solution, mais pourrais tu me faire la même chose mais que le code de VBA soit fais pour une colonne entière d'une feuille.

Merci beaucoup.

Jean-Pierre

 

[Jocelyn]

Re : formule cumul

re,
Bonjour CBernardT,

bien que la solution de CBernardT, soit meilleur que ma proposition car elle indique le 1 en colonne B toute seule, voila une nouvelle version

Sur la colonne entière

Jocelyn

Edit juste pour le plaisir et pour voir si j'ai bien compris la macro de CBernarT je pense que pour gérer toute la colonne A tu peux la changer comme ca :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A60000"), Target) Is Nothing Then
If Target = 10 Or Target = 20 Or Target = 30 Then
Range("B" & Target.Row) = 1
Range("C" & Target.Row) = Range("C" & Target.Row) + Range("B" & Target.Row)
End If
End If
End Sub