Discussion :

[naoy93]

Bonjour !
Comme indiqué dans le titre, j'ai besoin d'utiliser le vba pour faire une liste dynamique, j'ai fais des tests en amont mais ils me donnent des résultats de liste incohérants, pourriez vous me venir en aide ?
Merci d'avance, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub test()
Sheets("Choix").Range("G7").Validation.Delete
Sheets("Choix").Range("G7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & Sheets("Listes").Range("A2:A10").Address
End Sub

[Daniel.C]

Bonjour,

la valeur de Formula1 doit être "Listes!A2:A10" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Choix").Range("G7").Validation.Delete
Sheets("Choix").Range("G7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Formula1:="=Listes!" & Range("A2:A10").Address

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Choix").Range("G7").Validation.Delete
Sheets("Choix").Range("G7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Formula1:="=Listes!A2:A10"

[naoy93]

J'ai honte...

Merci beaucoup !

Edit: Par contre ça me met un runtime error 1004
Application-defined or object defined error

[Daniel.C]

Quelle est ta version d'Excel ?

[naoy93]

2003

[Daniel.C]

Alors, tu dois passer par une plage nommée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Names.Add "Plage", Sheets("Listes").Range("$A$2:$A$10")

et pour la validation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Choix").Range("G7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=plage"

[jouana]

Bonjour,
La version 2003 d'excel ne permet de faire une plage nommé et de la mettre validation des données -> autoriser:Liste et dans source mettre =maPlage ??

C'est dommage de faire du vba pour ça, après je ne connais pas cette version.

(la réponse m'interesse ont ne sait pas de quoi est fait demain )

Bonne journée

[naoy93]

Ah merci ça marche !

jouana@ Oui oui mais si tu veux je vais changer la plage de la liste en fonction de choix de l'utilisateur dans une autre liste déroulante (pour faire une "cascade de listes déroulantes")