Bonjour, je veux doubliquer sur une plage de cellule et réaliser une action. Et doubler cliquer sur une autre et faire une autre action.
En farfouillant, j'ai trouvé
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F3:BG38")) Is Nothing Then Exit Sub
If Target.Value = "I" Then
Target.Value = "o"
Else
Target.Value = "I"
End If
End Sub
Qui me permet, en cliquant sur une plage F3/BG38 de rajouter I ou de passer à 0 si il y deja un I.
Je voulais rajouter une autre plage et faire une autre action. J'ai pensé rajouter un private sub worksheet before... mais il semble qu'il ne peut y en avoir qu'un ....
J'ai essayé de rajouter un If Intersect(Target, Range.... en dessous en me disant qu'il va le réaliser car le premier est pas concerné, mais nada :/.
Comment puis-je faire, en gros, un DOUBLE Private Sub Worksheet_Before....? Du style :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range(Plage 1) Is Nothing Then Exit Sub
COMMANDE 1
If Intersect(Target, Range(Plage 2) Is Nothing Then Exit Sub
COMMANDE 2
End Sub
Merci