double clic sur une case incrémenter 1 point sur 2 cases

[wervol]

bonjour
mon problème est en partie sur l'entête du message
je voudrais faire douclecliquer sur une case par exemple A1 incrementer les cases A2 ET A 3 d'un point je sais faire incrémenter sur une case mais je ne trouve pas la solution pour 2 cases
voila mon code pour une incrémenter une case

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Range("A2") = Range("A2") + 1

End Sub
la solution doit être simple mais je ne trouve pas
merci pour votre aide

 

[tototiti2008]

Re : double clic sur une case incrémenter 1 point sur 2 cases

Bonjour wervol,

peut-être

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 
Range("A2") = Range("A2") + 1
Range("A3") = Range("A3") + 1
end if
End Sub

 

[mth]

Re : double clic sur une case incrémenter 1 point sur 2 cases

Bonjour,

Peut-être comme ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
    Range("A2") = Range("A2") + 1
    Range("A3") = Range("A3") + 1
End If
End Sub

Bon après-midi,

mth

Edit: Bonjour tototiti
Bise,
m

 

[wervol]

Re : double clic sur une case incrémenter 1 point sur 2 cases

merci a vous deux pour votre réponse rapide

sa fonctionne maintenant merci beaucoup
a moi d'adapter les cases
bon après midi