Evenement doubliclick plusieurs cellule

Bonjour Forum,

est-il possible d'entrer de multiples cellules pour l'evenement double-click?

exemple:

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i
For i = 0 To 5
If Not Application.Intersect(Target, Range("G" & 11 + (i * 5)) Is Nothing Then
'macro
End Sub

Autrement dit, gérer le même macro pour toutes les sélections de cette "plage" .. je ne sais trop comment l'expliquer

si doubleclic sur:

G11

G16

G21

G26

G31

G36

j'espère avoir été clair!

Merci!!!

Bonsoir,cette macro sera applicable pour toutes les feuilles

A placer dans le classeur

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)                    

       With ActiveCell    'Sélectionne la cellule active et applique la macro 1                
           Macro1        ' ta macro personnelle            
        End With                    
        Cancel = True                    
End Sub                    

Amicalement

Pierrot

merci!

Rechercher des sujets similaires à "evenement doubliclick"