VBA Ajouter commandButton

bonjour
je deux tableaux le 1er sert à saisir des valeurs le 2eme reçoit ces valeurs et les cumule (ex je tape 1 ds B7,B22 affiche 1 . je tape une autre fois 3 ds B7 B22 affiche 4 c'ad 1+3=4) tout ça gérer par un macros vba
maintenant je veux insérer des boutons ds chaque cellule qui ajoute a chaque clic le valeur 1 pour éviter le saisi voila ce fichier joint.:ccool:

Pas clair
Dans ton tableau 1 tu veux sur clique de bouton inscrire 1 dans la case correspondante et en incrémentant de +1 la valeur respective du tableau 2?

Combien de boutons auras tu besoin?

Sinon, si c'est ça, utilise le double clique (enlève le code Change)

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B7:AM16")) Is Nothing Then Cancel = True Target.Value = 1 Target.Offset(15, 0) = Target.Offset(15, 0) + 1 End If End Sub

---

merci pour ton aide
ça marche mais est ce que ce possible que le valeur du tab 1 s’incrémente + 1 aussi comme au tab 2 pour ne pas se tromper est ce que je cliquer ou non
je veux aussi, lorsque j'efface le contenu du tab 1, le contenu du tab 2 s’efface automatiquement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'Pour écrire Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B7:AM16")) Is Nothing Then Cancel = True Target.Value = Target.Value + 1 Target.Offset(15, 0) = Target.Offset(15, 0) + 1 End If End Sub   'Pou effacer Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range   If Not Intersect(Target, Range("B7:AM16")) Is Nothing Then For Each c In Intersect(Target, Range("B7:AM16")) If c.Value = "" Then c.Offset(15, 0).ClearContents Next c End If End Sub

---

Pourquoi 2 tableaux?

merci bcp