formule cumul

wilfried_42

XLDnaute Barbatruc

• 8 Décembre 2009

• #2

Re : formule cumul

bonjour

si j'ai tout compris

en B1 tu mets :

Code:

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

en C1 :

Code:

=SOMME($B$1:$B1)

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

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 8 Décembre 2009

• #3

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

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Décembre 2009

• #4

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

 

Pièces jointes

• J.-P.xls

  31 KB · Affichages: 92

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 8 Décembre 2009

• #5

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

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 8 Décembre 2009

• #6

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

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Décembre 2009

• #7

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 :

HTML:

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

 

Pièces jointes

• J.-PV1.xls

  32 KB · Affichages: 52

Dernière édition: 8 Décembre 2009

Vote positif 0 Vote négatif