XL 2013 Listes déroulantes en VBA

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Maya1966

Maya1966

XLDnaute Nouveau
Bonjour à tous,

je dois créer un fichier avec les colonnes suivantes:
  1. colonne type d'enveloppe (Feuil2 colonne A)
  2. colonne Direction (Feuil2 colonne B)
  3. colonne service (Feuil2 colonne C,D,E,F,G,H)
Chaque direction est rattachée à 6 services

dans le Feuil1:

la colonne A a sa propre liste déroulante
le colonne B et C une liste déroulante en cascade.

est-il possible de faire les listes déroulante en VBA mais sans utiliser le gestionnaire des noms ?

merci d'avance pour votre aide
Cordialement
Maya1966
 

Pièces jointes

Trier par date Trier par votes
Bonjour Maya, Vgendron,
Possible en VBA avec :
VB: 
Sub ListeDéroulante()
    With Range("A2:A100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$A$2:$A$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("B2:B100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$B$2:$B$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("C2:C100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$C$2:$C$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
End Sub
En allant prendre les données en feuille 2.

On peut aussi mettre les valeurs des listes en "dur" dans le VBA avec :
Code: 
Sub ListeDéroulante()
    With Range("A2:A100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Test1,Test2,Test3,Test4,Test5,Test6"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("B2:B100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Direction 1,Direction 2,Direction 3,Direction 4,Direction 5,Direction 6"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("C2:C100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Service 1,Service 2,Service 3,Service 4,Service 5,Service 6"               ' Mettre la plageliste où la liste est présentedésirée
    End With
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Maya, Vgendron,
Possible en VBA avec :
VB: 
Sub ListeDéroulante()
    With Range("A2:A100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$A$2:$A$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("B2:B100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$B$2:$B$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("C2:C100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=Feuil2!$C$2:$C$7"              ' Mettre la plageliste où la liste est présentedésirée
    End With
End Sub
En allant prendre les données en feuille 2.

On peut aussi mettre les valeurs des listes en "dur" dans le VBA avec :
Code: 
Sub ListeDéroulante()
    With Range("A2:A100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Test1,Test2,Test3,Test4,Test5,Test6"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("B2:B100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Direction 1,Direction 2,Direction 3,Direction 4,Direction 5,Direction 6"              ' Mettre la plageliste où la liste est présentedésirée
    End With
    With Range("C2:C100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="Service 1,Service 2,Service 3,Service 4,Service 5,Service 6"               ' Mettre la plageliste où la liste est présentedésirée
    End With
End Sub
Cliquez pour agrandir...
Hello Sylvanu,

merci pour ton aide.

j'ai collé la premier macro Sub ListeDéroulante() dans la feuille mais ça ne fonctionne pas !
ou dois-je coller la macro ?

Cordialement
 
Vote positif 0 Vote négatif
Bonjour,

Maya1966 à dit:
est-il possible de faire les listes déroulante en VBA mais sans utiliser le gestionnaire des noms ?
Cliquez pour agrandir...
Hélas ma réponse ne va pas t'aider, mais ta question m'intrigue...

Pourquoi veux-tu créer les listes déroulantes en VBA ?

Pourquoi veux-tu ne pas utiliser de Noms, donc pas de tableaux structurés qui généralement simplifient pas mal la vie pour les listes déroulantes ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re,
Exact, j'aurais du tester, je ne l'ai fait que pour la version en dur. Sorry.
Une liste ne peut pas être remplie à partir d'une palge d'une autre feuille.
Donc cela revient à devoir la nommer .... où créer la liste comme :
VB: 
Sub ListeDéroulante()
    Plage = ""
    For i = 2 To 7
        Plage = Plage & "," & Sheets("Listes déroulantes").Cells(i, "A")
    Next i
    Plage = Mid(Plage, 2)
    With Range("A2:A100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete: .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Plage
    End With
    Plage = ""
    For i = 2 To 7
        Plage = Plage & "," & Sheets("Listes déroulantes").Cells(i, "B")
    Next i
    Plage = Mid(Plage, 2)
    With Range("B2:B100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete: .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Plage
    End With
    Plage = ""
    For i = 2 To 7
        Plage = Plage & "," & Sheets("Listes déroulantes").Cells(i, "C")
    Next i
    Plage = Mid(Plage, 2)
    With Range("C2:C100").Validation             ' Ajuster plage où la liste doit être présente
        .Delete: .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Plage
    End With
End Sub
 
Vote positif 0 Vote négatif
et ma proposition en #2 ??

@sylvanu hello
ta proposition ne tient pas compte du choix en B pour établir la liste de la colonne C..
ok. dans le fichier donné en exemple: les listes de services sont identiques pour toutes les directions..
mais je présume qu'elles sont amenées à diverger.. sinon. aucun intéret d'avoir 6 listes....
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Bonjour,


Hélas ma réponse ne va pas t'aider, mais ta question m'intrigue...

Pourquoi veux-tu créer les listes déroulantes en VBA ?

Pourquoi veux-tu ne pas utiliser de Noms, donc pas de tableaux structurés qui généralement simplifient pas mal la vie pour les listes déroulantes ?
Cliquez pour agrandir...
@TooFatBoy, je ne veux pas utiliser les listes déroulantes car je dois faire du copier/coller dans un autre fichier identique est lors du coller le système m'indique que les listes existe déjà !
@sylvanu, c'est tous bon, le code fonctionne très bien. j'avais un débogage car le nom de ma feuille comportait un espace

merci à vous tous pour votre aide.

Cordialement
Maya1966
 
Vote positif 0 Vote négatif
Maya1966 à dit:
@TooFatBoy, je ne veux pas utiliser les listes déroulantes car je dois faire du copier/coller dans un autre fichier identique est lors du coller le système m'indique que les listes existe déjà !
Cliquez pour agrandir...
Peut-être cela vient-il d'un mauvais copier/coller.

Peut-être même que si tu utilisais justement les listes déroulantes basées sur des tableaux structurés, tu n'aurais plus de problème. 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
628
Franc58
F
M
  • Résolu(e)
XL 2021 Liste déroulante avec plusieurs conditions
Réponses
7
Affichages
650
MORAD AIT
M
E
  • Résolu(e)
XL 2019 Création d'une liste déroulante en cascade
Réponses
3
Affichages
731
Ericduke
E
J
  • Question Question
Microsoft 365 EXCEL code VBA pour réinitialiser les listes déroulantes en cascades
Réponses
1
Affichages
382
fanch55
fanch55
S
  • Question Question
XL 2013 Listes déroulantes en séries
Réponses
3
Affichages
908
riton00
riton00
6
  • Question Question
XL 2019 Générer mails sous conditions
2
Réponses
26
Affichages
1 K
Oneida
Oneida
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
587
casualexcel
C
F
  • Résolu(e)
XL 2021 Créer un formulaire aves des listes déroulantes en cascades (Macro)
Réponses
8
Affichages
871
fanou06
F
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
464
Minus&Cortex
M
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
595
HANN
H
F
  • Résolu(e)
XL 2019 Listes déroulantes en cascades et espaces ?
2
Réponses
26
Affichages
1 K
sylvanu
sylvanu
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
597
RyuAutodidacte
RyuAutodidacte
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
D
  • Question Question
XL 2016 Afficher la liste des valeurs en fonction d'un critère
Réponses
3
Affichages
1 K
Did64170
D
V
  • Question Question
Microsoft 365 listes déroulantes multiples
2
Réponses
17
Affichages
1 K
JHA
J
P
  • Résolu(e)
XL 2016 Créer un lien automatique en partant d'une liste déroulante vers 2 autres listes déroulantes
Réponses
7
Affichages
705
PatLep
P
Freedal
  • Question Question
XL 2019 Listes déroulantes Excel dépendantes et évolutives
2
Réponses
16
Affichages
1 K
Pierre Gy
P
U
  • Résolu(e)
XL 2021 Recherche un utilitaire (Code VBA) pour la structure des tableaux Excel
Réponses
8
Affichages
612
UnDePlusieurs
U
C
  • Résolu(e)
XL 2021 Liste dans liste
2 3
Réponses
36
Affichages
3 K
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Listes déroulantes
Réponses
8
Affichages
898
matthieu2701
M
Retour