Cumulé

[J.-P.]

Bonjour ,
Qui peux me donné la formule pour cumulé le nombre d'une cellule à une autre.

Merci d'avance

 

[Guest]

Re : Cumulé

Bonjour,

Si A1= 2 et A2 = 3

en B1:

=Somme($A$1:$A$2)

donne 5
A+

 

[gilbert_RGI]

Re : Cumulé

Bonjour

si "pour cumuleR" veut dire additionner alors

=A1+B1

ou concatener

=A1 & B1

ou =CONCATENER(A1;B1)

 

[J.-P.]

Re : Cumulé

Merci pr la réponse rapide,
mais je me suis mal exprimé.
Ce que j'aimerais faire c'est si je tape 2 dans la cellule A1 en A2 =2, mais si je retape 2 dans la cellule A1 en A2 j'aimerais le résultat 4.

merci

A+

 

[gilbert_RGI]

Re : Cumulé

voilà en vba

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [a1] Then Exit Sub
[a2] = [a2] * [a1]
End Sub

 

[J.-P.]

Re : Cumulé

Merci Gilbert,
Mais je ne veux pas additionner je veux que chaque fois que je retape dans la cellule A1 le cumule ce fait en A2 exemple:A1 je mets 2 en A2 = 2 , si je remets en A1 5 en A2 = 7 .

J'espère que j'ai été claire dans mon explication.

Grand merci

 

[Guest]

Re : Cumulé

Re,
Salut Gilbert🙂

Sur la base de la macro de gilbert

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [a1].Address Then Exit Sub
[a2] = [a2].Value + [a1].Value
End Sub

A+

 

[J.-P.]

Re : Cumulé

Merci Gilbert.
J'ai mis ta réponse en vba mais ca ne marche pas !!!!.

Merci

 

[Guest]

Re : Cumulé

Re,

Tu a vu ma précédente réponse?

Chez moi elle fonctionne.

A+

 

[J.-P.]

Re : Cumulé

A oui ca fonctionne.

Mais j'aimerais encore faire la même chose sur une colonne de A1 à A 10 le le résultat en B1 à B10.

Grand merci.

A+

 

[gilbert_RGI]

Re : Cumulé

Re,

Tu a vu ma précédente réponse?

Chez moi elle fonctionne.

A+

le code de HASCO Chez moi fonctionne également.

 

[gilbert_RGI]

Re : Cumulé

un truc dans le genre convient-il ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Address <> ActiveCell.Address Then Cells(Target.Row, Target.Column).Select
    ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value + ActiveCell.Value
 
End Sub

 

[J.-P.]

Re : Cumulé

A oui ca fonctionne.

Mais j'aimerais encore faire la même chose sur une colonne de A1 à A 10 le le résultat en B1 à B10.

Grand merci.

A+🙂

 

[gilbert_RGI]

Re : Cumulé

A oui ca fonctionne.

Mais j'aimerais encore faire la même chose sur une colonne de A1 à A 10 le le résultat en B1 à B10.

Grand merci.

A+🙂

Tu as vu ma précédente réponse?

 

[J.-P.]

Re : Cumulé

C'est parfait, juste encore une chose si je veux faire la même chose sur d'autre colones que dois-je modifié dans vba.

Merci

A+