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
Re : double clic sur une case incrémenter 1 point sur 2 cases
Bonjour wervol,
peut-être
Code:
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
Re : double clic sur une case incrémenter 1 point sur 2 cases
Bonjour,
Peut-être comme ceci:
Code:
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