execution d'une macro quand click dans une cellule

  • Initiateur de la discussion Initiateur de la discussion ONYXTEQUILA
  • 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 !

O

ONYXTEQUILA

Guest
Bonjour à tous

Quelqu'un pourrait-il me dire comment faire pour lancer une macro par un click dans une cellule ?

Onyxtequila
 
Re : execution d'une macro quand click dans une cellule

Merci PierreJean pour cette réponse si rapide, mais comment faire pour que
ma macro se déclenche quand je clique sur la cellule a1 par exemple

Onyxtequila
 
Re : execution d'une macro quand click dans une cellule

Salut ONYXTEQUILA, Pierrejean 🙂, le Forum

et si tu veut que ta macro s'exécute seulement au changement d'une cellule (Par exemple A1) ajoute a la proposition de Pierrejean
Code:
If Not Intersect(Target, Range("A1")) Is Nothing Then
avant Call macro

Bonne Journée

EDIT: Purée j'ai ecrit ça en même temps que tu répondai à l'ami Pierrejean comme quoi...
 
Re : execution d'une macro quand click dans une cellule

Merci pour vos réponses rapides

mais ça ne marche pas, je n'arrive pas à faire démarrer ma macro simplement en cliquant sur la cellule a1

A l'aide !!!!

Onyxtequila
 
Re : execution d'une macro quand click dans une cellule

Re le Fil,

As tu mis
Code:
end if
avant and sub

soit

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Call Macro1
End If
End Sub

Salut Gilles (PasrapideleDullaujourd'hui)
 
Re : execution d'une macro quand click dans une cellule

Bonjour à tous, comment faire pour pour que la macro s'executer, lorsque l'on clique sur "une cellule parmis un ensemble de cellule definies" exemple: la macro s'execute lorsque je clique sur une des cellules comprise entre A1 et A10 ou C1 et C5

merci
 
Re : execution d'une macro quand click dans une cellule

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10,C1:C5")) Is Nothing Then
MsgBox "Coucou"
End If
End Sub
A+ à tous
 

Pièces jointes

Dernière édition:
- 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
5
Affichages
165
Retour