Création liste déroulante vba

Bonjour à tous,

Je suis occupé de faire un petit document excel permettant de réaliser certaines tâches quotidien au travail.

Les utilisateurs ont accès à la feuille principal, dans cette feuille elles font certains choix via une liste déroulante. Je compare les textes, avec la liste caché dans un autre document. Une fois la correspondance trouvé, je dois renvoyer dans la case à côté une nouvelle liste avec des valeurs prédéfinit.

bref, pas de soucis, jusqu'à la comparaison, j'arrive bien a extraire les valeurs voulues, mais je n'arrive pas à afficher plus qu'une valeur dans ma liste.

Code:

---

1 2 3 4 5

Cells(4, 4).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Val1

---

A la place de Val1, je voudrais y encoder mes quatres variables pour qu'elles s'affichent dans une liste déroulante. Je croyais bêtement que mettre Val1 & Val2 & Val3 & Val4 aurait suffit, mais non.

Pouvez-vous m'aider ?

Merci

bonjour
dans l'hypothèse ou la liste allant de A1 à A4

Code:

---

1 2	.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=A1:A4"

---

Merci pour votre réponse :).

Je me suis surement mal exprimé, pas évident de tous mettre par écrit :oops:.

En faite, la numéro de ligne doit être dynamique,

En gros j'ai un tableau caché avec les phrase prédéfinit par exemple,

- Si choix = choix_caché = valeur à afficher de 1 à 4
- Si choix = Choix_caché_2 = valeur de 7 à 10
- Si choix = Choix_caché_3 = valeur de x à y, ect...

Une fois les valeur définit je les enregistres dans les différentes variables (ici Val1, Val2, Val3, Val4). L'idée est d'afficher la valeur des variables sous forme d'une liste déroulante.

Bonsoir.

Pourriez-vous d'abord expliquer ce que vous souhaitez réaliser, sans VBA, avec une copie d'écran éventuellement anonymisée? C'est assez rare de devoir modifier une liste de validation par VBA. Peut-être pourrions-nous commencer par voir si on ne peut pas la créer en Excel?

N'oubliez pas de renseigner votre version, car la 365 permet des trucs chouettes au niveau des listes déroulantes.

Bonjour tomtom92, BENNASR, Pierre

J'ai commencé un chantier du genre laissé en plan (c'est pas bien) ici : https://forum.excel-pratique.com/exc...ndantes-190316

Les référentiels (tables) sont de type pays, région, ville.

J'ai voulu tout gérer sur le Worksheet_SelectionChange où je construis des listes de validation dynamiques, mais je ne m'en sors pas.

Dans un pays, il y a plusieurs régions, et dans chaque régions, plusieurs villes

Je m'oriente pour faire un formulaire, mais la complexité est d'avoir toutes les colonnes de la table source et d'enregistrer après validation l'ensemble des données de la ligne Excel en bloc.

Il me faut faire un formulaire avec une liste dynamique de champs.

Je ne sais pas si c'est le cas de Tomtom92.

Bonne soirée

Bonjour à tous,

Désolé du temps de réponse, je suis pas mal occupé en ce moment :oops:

L'idée,

La première colonne possède une liste déroulante avec des phrases prédéfinit. Selon le choix de la phrase, la seconde colonne doit afficher au maximum une liste déroulante de 4 valeurs. Ces valeurs différent selon la phrase choisie. Ainsi par exemple :

Colonne 1 --> Colonne 2
Phrase n°1 --> 1 ; 1,5 ; 2 ; 2,5
Phrase n°2 --> 5 ; 5,5 ; 6 ; 6,5
Phrase n°3 --> 7 ; 7,5
Phrase n°4 --> 9 ;
Phrase n°5 --> 10 ; 10,5 ; 11
etc...

Pièce jointe 649593

Les listes déroulantes en cascade, si j'ai bien compris, peuvent être créées sans VBA => https://youtu.be/fQJU3T9jjq0

Salut,

Soit tu crée des listes basées sur des plages, il ne te reste alors plus qu'a modifier les plages pour modifier les listes.
Soit tu crée des listes statiques. Cependant tu as une difficulté supplémentaire: Les nombres à virgule.
En effet, d'après mes recherches, une liste statique est composée de valeurs séparées par une virgule, et il aucun moyen n'a été prévu pour échapper les virgules.
Tu peux utiliser le caractère unicode 130 pour imiter une virgule, mais garde bien en tête que les valeurs obtenues ne seront pas convertibles en numérique a moins de faire l'opération inverse.

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Sub test() Dim Ws As Excel.Worksheet Set Ws = ThisWorkbook.Worksheets("Feuil1")   With Ws.Range("A1").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="1" & Chr(130) & "5, 2, 2" & Chr(130) & "5" '// 1,5 / 2 / 2,5 End With End Sub

---

Ha, c'est sûr que mettre en dur les valeurs dans le code, ce n'est pas du bidouillage :ptdr:

Ça vient parler de collections fortement typées et de propriétés Friend pour démolir une réponse qui fonctionne, puis ça fout des valeurs en dur dans le code VBA.

Ça vient parler de sécurité du code (prendre du recule (sic), toussa), mais ça écrit Set Ws = ThisWorkbook.Worksheets("Feuil1") et ça vient donner des leçons sur la façon de coder...

Quelle misère.