lancer une macro en cliquant dans une cellule

[njars]

Bonjour,
pouvez vous me dire comment lancer une macro en cliquant dans une cellule svp?
merci

 

[ChTi160]

Salut njars

bonjour le forum

tu peux utiliser cette méthode

dans le module de Code de la feuil 1 par exemple
si l'on double clic sur la cellule C3 le message apparait.
tu places en lieu et place de ce message ta procèdure.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C3')) Is Nothing Then
MsgBox 'Coucou' 'ici ta procèdure
End If
End Sub

Bon Week End

Message édité par: Chti160, à: 05/11/2005 11:07

 

[njars]

Merci Chti160,
mais en fait je n'ai pas été assez précis, je souhaite lancer ma macro après avoir choisi dans ma cellule la valeur dans une liste de validation de données.
voici mon fichier afin de mieux comprendre.
merci [file name=listeclasses_20051105142135.zip size=13847]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listeclasses_20051105142135.zip[/file]

 

[myDearFriend!]

Bonjour njars, ChTi160,

Tu peux essayer de coller la procédure ci-dessous dans le module de code de la feuille 'EmploiTemps' :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('B1')) Is Nothing Then
            Macro1
      End If
End Sub

Cordialement,

 

[njars]

bonjour didier,
j'ai essayé ta procédure mais j'obtiens l'erreur 'la méthode range de l'objet worksheet a échoué'!
pourquoi?
merci

 

[njars]

pardon didier!
j'ai mis Macro1 dans this workbook et ta procédure dans la feuille 'emploi du temps' et tout fonctionne très bien.
merci beaucoup
njars

 

[nbo]

Re : lancer une macro en cliquant dans une cellule

J'aimerais pouvoir faire la même chose mais en cliquant qu'une seule fois... possible??