calcul

[Jym22]

Bonjour,
Très novice en VBA, j'ai trouvé sur d'anciennes discussions un code pour calculer sur une même cellule. Or, je n'arrive pas a retranscrire sur une autre cellule.
Si quelqu'un peut m'aider merci d'avance.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
Target = Target + [mémo]
End If
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End Sub

 

[Compte Supprimé 979]

Bonsoir,
Et très novice en explication également

 

[Jym22]

Bonjour, encore désolé.
Sur mon tableau en copie, je souhaite faire un calcul sur une seule cellule. Avec comme référence C3=0, je tape +2 en C3, il va afficher 2. je tape +3 donc C3=5.
En fouillant dans une ancienne discussion sur ce forum, j'ai trouvé ce code. Or, il ne fonctionne que sur A1. Je souhaite qu'il calcule pour chaque cellule de C3 à C16. Merci à vous.

je joins le code