Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

wervol

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…