macro + cellule

[hurricane]

bonjour a tous

je voudrais demarrer une macro en cliquant (droit ou gauche on s'en fou )sur une cellule pas un bouton une cellule

avec un exemple S.V.P

merci d'avance

 

[@+Thierry]

Salut Hurricane

Un fichier exemple de trois possibilités de click pour lancer une macro depuis une cellule...

à toi de choisir
Bon App
@+Thierry

 

[hurricane]

je ne peux pas telecharger les pieces jointes ecrit les macro dans la reponse ("copier / coller")


merci

je suis au boulot pas de telechargement possible

 

[@Christophe@]

Bonjour Hurricane,
Comme le téléchargement n'es pas conseillé pour l'instant, voici quelque exemple, click droit, click gauche, double clic, sur cellule unique et sur plage de cellule(voir dernier exemple)


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub ' double clic sur A1 execute la macro
MsgBox "Double click"

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$C$1" Then Exit Sub ' click droit sur C1 execute la macro
Cancel = True ' pour désactivé le menu click droit
MsgBox "Click Droit"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub ' click gauche sur E1 execute la marcro
MsgBox "Click Gauche"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G1:G10")) Is Nothing Then 'plage de cellule
MsgBox "Click Gauche pour une plage de cellule"
End If
End Sub

' tu peux aussi comme dans le derniere exemple execute les autres exemple avec une
' plage de cellule


Voila

Bonne journée

@Christophe@