Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Validation

Validation

9 réponses
Avatar
Manu
Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué dans
une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se lance
et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je ne
connais pas du tout.

Manu
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
JB
Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectu é dans
une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se lan ce
et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je ne
connais pas du tout.

Manu


Avatar
Manu
J'essai ce soir et te tiens au courant. Merci

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je
ne

connais pas du tout.

Manu


Avatar
Manu
Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'elle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je
ne

connais pas du tout.

Manu


Avatar
JB
Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'elle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectu é
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je
ne

connais pas du tout.

Manu




Avatar
Manu
Merci JB,

Je regarde de + pret...
Sympa !

Manu

"JB" a écrit dans le message de news:

Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'elle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je
ne

connais pas du tout.

Manu




Avatar
Manu
Ouahhhhh, Extra ! Exactement ce que je souhaitais.
Merci encore
Manu

"JB" a écrit dans le message de news:

Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'elle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox je
ne

connais pas du tout.

Manu




Avatar
Manu
Il y a tout de même un soucis, car quelque soit l'element que je choisis
dans la liste, la macro se lance quand meme. j'aurai voulu que si je chosi
toto dans la liste, que la macro toto se lance et si je choisi titi que la
macro titi se lance etc...
Peut-etre n'est ce pas possible en liste de validation ?
Manu

"Manu" a écrit dans le message de news:
#
Ouahhhhh, Extra ! Exactement ce que je souhaitais.
Merci encore
Manu

"JB" a écrit dans le message de news:

Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'elle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix effectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listbox
je



ne
connais pas du tout.

Manu









Avatar
JB
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
Select Case Target.Value
Case "AA"
titi
Case "BB"
toto
End Select
Application.EnableEvents = True
End If
End Sub

Sub toto()
MsgBox "toto"
End Sub

Sub titi()
MsgBox "titi"
End Sub

JB


Il y a tout de même un soucis, car quelque soit l'element que je choisis
dans la liste, la macro se lance quand meme. j'aurai voulu que si je chosi
toto dans la liste, que la macro toto se lance et si je choisi titi que la
macro titi se lance etc...
Peut-etre n'est ce pas possible en liste de validation ?
Manu

"Manu" a écrit dans le message de news:
#
Ouahhhhh, Extra ! Exactement ce que je souhaitais.
Merci encore
Manu

"JB" a écrit dans le message de news:

Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce qu'e lle
fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix eff ectué
dans

une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx se
lance

et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les listb ox
je



ne
connais pas du tout.

Manu











Avatar
Manu
Désolé JB, mais ca ne fonctionne pas et je ne comprend pas pourquoi

"JB" a écrit dans le message de news:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
Select Case Target.Value
Case "AA"
titi
Case "BB"
toto
End Select
Application.EnableEvents = True
End If
End Sub

Sub toto()
MsgBox "toto"
End Sub

Sub titi()
MsgBox "titi"
End Sub

JB


Il y a tout de même un soucis, car quelque soit l'element que je choisis
dans la liste, la macro se lance quand meme. j'aurai voulu que si je chosi
toto dans la liste, que la macro toto se lance et si je choisi titi que la
macro titi se lance etc...
Peut-etre n'est ce pas possible en liste de validation ?
Manu

"Manu" a écrit dans le message de news:
#
Ouahhhhh, Extra ! Exactement ce que je souhaitais.
Merci encore
Manu

"JB" a écrit dans le message de news:

Voir PJ: http://cjoint.com/?heiWFzyJku

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
[D1:I1].Find(what:=Target.Value).Select
Application.EnableEvents = True
End If
End Sub

Si la macro Toto est dans un module ,

Remplacer [D1:I1].Find(what:=Target.Value).Select par Toto

JB


Je n'arrive pas a la faire fonctionner ??? Je ne comprend pas ce
qu'elle



fait

Manu

"JB" a écrit dans le message de news:

Bonjour ,

Si la liste est en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
....
....
Application.EnableEvents = True
End If
End Sub

Cordialement JB

Bonjour,

Es t'il possible qu'une macro se lance par rapport à un choix
effectué




dans
une liste de validation.
Si par exemple je choisi dans ma liste "toto" que ma macro sub xxx
se




lance
et si je choisi autre chose qu'un autre macro se lance. Je parle de
validation, mais pourquoi pas par un formulaire, mais par les
listbox




je
ne
connais pas du tout.

Manu