Discussion :

[silmarion]

Bonsoir.

J'ai un petit problème avec une liste déroulante.
J'ai des données dans la feuille 1: tableau de "Nb_Devise" lignes, 1 colonne, qui part de B3. Donc le nombre de lignes varie. Je veut faire une liste déroulante dans la feuille 2, mais j'arrive pas...
J'ai essayé ça (et moult autres trucs!):

Code :

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

1
2
3
4
5
6
7
Dim vPlageNom As Range
vPlageNom = Worksheets("Feuil1").Range("B3:B" & Nb_Devise+3)
ActiveWorkbook.Names.Add Name:="Lst_Dev", RefersToR1C1:=vPlageNom
With Range("H" & (15 + Nb_Operation * 23)).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=" & "Lst_Dev"
End With

Help please !

[CSIE_Angel#5]

Est ce que tu as essayé de changer :

Code :

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

Worksheets("Feuil1")

en

Code :

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

Worksheets("Feuil2")

Parce que tu parles d'un test sur la 2e feuille de ton document !

[silmarion]

Je vient d'essayer, mais ça résout rien. Je veut prendre les cellules dans la feuille 1, leur donner un nom, puis générer la liste déroulante, dans la feuille 2, à partir du nom.

[myDearFriend!]

Bonsoir silmarion, CSIE_Angel#5,

Pas sûr d'avoir tout compris, mais tu peux essayer éventuellement comme ça :

Code :

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

1
2
3
4
5
6
7
Dim vPlageNom As Range
Set vPlageNom = Worksheets("Feuil1").Range("B3:B" & Nb_Devise + 3)
ActiveWorkbook.Names.Add Name:="Lst_Dev", RefersToR1C1:=vPlageNom
With Worksheets("Feuil2").Range("H" & (15 + Nb_Operation * 23)).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=" & "Lst_Dev"
End With

Cordialement,
Didier_mDF

[silmarion]

Alleluia !!!

Et là j'envoit un gros merci beaucoupau forum, j'ai cherché jusqu'à 3h du mat hier soir...