incrémentation de cellules

[nomzamo]

Bonjour,
Dans mon tableau je souhaite qu'une macro réalise les taches suivantes:
suite à la saisie d'un nombre dans la cellule A1, la cellule B1 s'incrémente de cette valeur.
De même après la saisie d'un nombre dans A2, B2 s'incrémente de la valeur de A2.
Merci pour votre aide en espérant avoir été clair.
Amicalement,

Roger

 

[Dull]

Re : incrémentation de cellules

Salut nomzamo et Bienvenu, le Forum

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
If Target = "" Or Not IsNumeric(Target) Then Exit Sub
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub

Essaye le Fichier Joint

Bonne Journée

 

[nomzamo]

Re : incrémentation de cellules

Merci Dull pour la réponse ultra rapide qui correspond exactement à la question posée. En fait dans mon tableau j'effectue les saisies dans des cases qui ne sont pas directement en colonne. Par ex:
Saisie en A1 avec incrémentation de B1.
Saisie en A3 avec incrémentation en B3.
Saisie en A10 avec incrémentation en B10 etc...

Est-ce possible?
Merci,
Roger

 

[Dull]

Re : incrémentation de cellules

Re

Pas sur d'avoir compris 😕

A1: Incrémentation en B1 Ok
A3: Incrémentation en B3 Ok

C1: Incrémentation en D1 ?
Est-ce à l'intérieur d'un Tableau ?
Met un fichier avec quelques données bidons avec, d'un coté ce que tu as et de l'autre ce que tu veux avoir

Bonne Journée

 

[nomzamo]

Re : incrémentation de cellules

Encore merci pour la réponse rapide.
Voila un exemple de ce que je cherche avec un fichier en pièce jointe (si j'ai réussi la manip...)

Amicalement,
Roger

 

[Dull]

Re : incrémentation de cellules

Re

Peut-être comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A4, A8, D4, D8"), Target) Is Nothing Then
If Target = "" Or Not IsNumeric(Target) Then Exit Sub
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub

A tester
Bonne Journée

 

[nomzamo]

Re : incrémentation de cellules

Impec Dull, c'est pile ce dont j'avais besoin et ça marche parfaitement.
Merci beaucoup et bonne journée,
Bien amicalement,
Roger