Bonjour,
Sur une cellule contenant une liste deroulante, j'aimerais d=E9clencher
1
macro =E0 chaque selection d'un choix de cette liste.
Comment faire sous XL2000?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jb
Si c'est un menu obtenu avec Données/Validation dans la cellule A1(cas + simple), il faut utiliser l'événement Change() de la feuille de calcul
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then MsgBox Target.Value End If Application.EnableEvents = True End Sub
JB
Si c'est un menu obtenu avec Données/Validation dans la cellule A1(cas
+ simple), il faut utiliser l'événement Change() de la feuille de
calcul
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
MsgBox Target.Value
End If
Application.EnableEvents = True
End Sub
Si c'est un menu obtenu avec Données/Validation dans la cellule A1(cas + simple), il faut utiliser l'événement Change() de la feuille de calcul
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then MsgBox Target.Value End If Application.EnableEvents = True End Sub
JB
michdenis
Bonjour SD,
Dans le module feuille où l'action se déroule, tu insères une procédure comme celle là :
Dans l'exemple, j'ai supposé que ta liste de validation était en D1. '----------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then MsgBox "Bonjour" End If
End Sub '-----------------------------
P.S. Il y a au moins une version d'excel qui ne déclenche pas d'événement lorsqu'il y a modification dans la cellule contenant une liste de validation. Pour contourner cela, tu insères une feuille que tu masqueras, et dans une des cellules tu inscris : = Feuil2!D1 et le code précédent, tu l'insères dans ladite feuille module.
Salutations!
"SD" a écrit dans le message de news: Bonjour, Sur une cellule contenant une liste deroulante, j'aimerais déclencher 1 macro à chaque selection d'un choix de cette liste. Comment faire sous XL2000?
Bonjour SD,
Dans le module feuille où l'action se déroule, tu insères une procédure comme celle là :
Dans l'exemple, j'ai supposé que ta liste de validation était en D1.
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
MsgBox "Bonjour"
End If
End Sub
'-----------------------------
P.S. Il y a au moins une version d'excel qui ne déclenche pas d'événement lorsqu'il y a modification dans la cellule contenant une
liste de validation. Pour contourner cela, tu insères une feuille que tu masqueras, et dans une des cellules tu inscris : =
Feuil2!D1
et le code précédent, tu l'insères dans ladite feuille module.
Salutations!
"SD" <stephetnel@aol.com> a écrit dans le message de news: 1131030074.491051.183790@g47g2000cwa.googlegroups.com...
Bonjour,
Sur une cellule contenant une liste deroulante, j'aimerais déclencher
1
macro à chaque selection d'un choix de cette liste.
Comment faire sous XL2000?
Dans le module feuille où l'action se déroule, tu insères une procédure comme celle là :
Dans l'exemple, j'ai supposé que ta liste de validation était en D1. '----------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then MsgBox "Bonjour" End If
End Sub '-----------------------------
P.S. Il y a au moins une version d'excel qui ne déclenche pas d'événement lorsqu'il y a modification dans la cellule contenant une liste de validation. Pour contourner cela, tu insères une feuille que tu masqueras, et dans une des cellules tu inscris : = Feuil2!D1 et le code précédent, tu l'insères dans ladite feuille module.
Salutations!
"SD" a écrit dans le message de news: Bonjour, Sur une cellule contenant une liste deroulante, j'aimerais déclencher 1 macro à chaque selection d'un choix de cette liste. Comment faire sous XL2000?
ChrisV
Bonjour SD,
En supposant que la liste déroulante se situe en A1, avec les choix suivants: choix1;choix2;choix3
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [A1]) Is Nothing Then Select Case Target Case "choix1": MsgBox "macro1" Case "choix2": MsgBox "macro2" Case "choix3": MsgBox "macro3" End Select End If End Sub
ChrisV
"SD" a écrit dans le message de news:
Bonjour, Sur une cellule contenant une liste deroulante, j'aimerais déclencher 1 macro à chaque selection d'un choix de cette liste. Comment faire sous XL2000?
Bonjour SD,
En supposant que la liste déroulante se situe en A1, avec les choix
suivants:
choix1;choix2;choix3
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [A1]) Is Nothing Then
Select Case Target
Case "choix1": MsgBox "macro1"
Case "choix2": MsgBox "macro2"
Case "choix3": MsgBox "macro3"
End Select
End If
End Sub
ChrisV
"SD" <stephetnel@aol.com> a écrit dans le message de news:
1131030074.491051.183790@g47g2000cwa.googlegroups.com...
Bonjour,
Sur une cellule contenant une liste deroulante, j'aimerais déclencher
1
macro à chaque selection d'un choix de cette liste.
Comment faire sous XL2000?
En supposant que la liste déroulante se situe en A1, avec les choix suivants: choix1;choix2;choix3
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [A1]) Is Nothing Then Select Case Target Case "choix1": MsgBox "macro1" Case "choix2": MsgBox "macro2" Case "choix3": MsgBox "macro3" End Select End If End Sub
ChrisV
"SD" a écrit dans le message de news:
Bonjour, Sur une cellule contenant une liste deroulante, j'aimerais déclencher 1 macro à chaque selection d'un choix de cette liste. Comment faire sous XL2000?
SD
Merci bcp la macro fonctionne très bien Salutations SD
Merci bcp
la macro fonctionne très bien
Salutations
SD
