Lancer un macro chaque choix sur liste déroulante [Fermé]
Signaler
NASRAOUI87
M-12
- Messages postés
- 5
- Date d'inscription
- mercredi 25 novembre 2015
- Statut
- Membre
- Dernière intervention
- 1 septembre 2018
M-12
- Messages postés
- 1020
- Date d'inscription
- lundi 22 septembre 2008
- Statut
- Membre
- Dernière intervention
- 22 février 2021
A voir également:
- Macro liste déroulante
- Excel macro liste déroulante - Meilleures réponses
- Liste déroulante macro excel - Meilleures réponses
- Macro liste déroulante excel - Forum - Excel
- EXCEL MACRO LISTE DEROULANTE - Forum - Excel
- Excel Macro liste déroulante et SendKeys ✓ - Forum - Programmation
- Liste déroulante avec macro ✓ - Forum - VB / VBA
- Macro excel a partir d'une liste deroulante - Forum - Programmation
3 réponses
Raymond PENTIER
- Messages postés
- 53307
- Date d'inscription
- lundi 13 août 2007
- Statut
- Contributeur
- Dernière intervention
- 22 février 2021
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.
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.
M-12
- Messages postés
- 1020
- Date d'inscription
- lundi 22 septembre 2008
- Statut
- Membre
- Dernière intervention
- 22 février 2021
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)
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
M-12
- Messages postés
- 1020
- Date d'inscription
- lundi 22 septembre 2008
- Statut
- Membre
- Dernière intervention
- 22 février 2021
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
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
michel_m
- Messages postés
- 16390
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 22 février 2021
Bonjour,
Raymond dixit
"Mais la liste déroulante ne peut afficher ni une formule, ni un lien hypertexte, ni une macro."
ah bon ?
macro à installer dans le module feuille concerné
https://mon-partage.fr/f/yERwYW7L/
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/