• Initiateur de la discussion Initiateur de la discussion hurricane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

hurricane

Guest
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
 
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@
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
36
Réponses
2
Affichages
188
Réponses
2
Affichages
34
Réponses
5
Affichages
316
  • Question Question
Microsoft 365 Automatique
Réponses
3
Affichages
61
  • Question Question
Microsoft 365 formule addition
Réponses
4
Affichages
46
Retour