Lancer un macro chaque choix sur liste déroulante [Fermé]

Signaler
Messages postés
5
Date d'inscription
mercredi 25 novembre 2015
Statut
Membre
Dernière intervention
1 septembre 2018
-
Messages postés
1020
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
22 février 2021
-
Bonjour

j'ai une liste déroulante ''' la cellule C6 ''''' , la liste contient 5 choix ( vissage,vague , depannage, AQ et emballage )
je veux qu'a chaque fois je change le choix sur cette liste ,, le macro BDdevis se lance automatiquement

3 réponses

Messages postés
53307
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
22 février 2021
15 328
Bonjour.

Les listes déroulantes sont conçues pour choisir une donnée.
Cette donnée une fois affichée, libre à toi d'en faire ce que tu veux.
Mais la liste déroulante ne peut afficher ni une formule, ni un lien hypertexte, ni une macro.
Messages postés
1020
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
22 février 2021
211
Bonjour à tous

place cette macro dans la feuille et à chaque changement de la liste en C6, la macro se lancera (vérifie l'orthographe du nom de la macro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
Call BDdevis
End If
End Sub
merci beaucoup c'est bien
elle fonctionne comme il faut maintenant
Messages postés
16390
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 février 2021
3 141
Et moi je sens le paté?
Messages postés
1020
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
22 février 2021
211
Bonjour michel.m

Mais non, ton message a été surement vu et compris

Après, si tu attends des remerciements à toutes les personnes que tu dépatouilles, et bien pour certains, faut les noter et les ignorer ensuite
Messages postés
16390
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 février 2021
3 141
Bonjour,

Raymond dixit

"Mais la liste déroulante ne peut afficher ni une formule, ni un lien hypertexte, ni une macro."

ah bon ?

Option Explicit
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then MsgBox "coucou"
End Sub


macro à installer dans le module feuille concerné

https://mon-partage.fr/f/yERwYW7L/