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

wervol · 25 Septembre 2011

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 · 25 Septembre 2011

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

mth · 25 Septembre 2011

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

Bon après-midi,

mth

Edit: 🙂 Bonjour tototiti 🙂
Bise,
m

wervol · 25 Septembre 2011

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

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

wervol

Guest

tototiti2008

XLDnaute Barbatruc

mth

XLDnaute Barbatruc

wervol

Guest

Discussions similaires

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

wervol

Guest

tototiti2008

XLDnaute Barbatruc

mth

XLDnaute Barbatruc

wervol

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency