Discussion :

[maaaher]

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.

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maaaher]

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[maaaher]

merci bcp