Discussion :

[RussellD]

Bonjour à tous,

je programme en VBA sur Excel 2003, et j'ai une petite astuce à vous demander.
J'ai sur ma feuille un bouton qui, lorsqu'on clique dessus, crée une liste déroulante avec comme source une certaine plage de cellules. Mon problème est qu'il y a des cellules vides dans cette plage, et qu'elles apparaissent dans ma liste déroulante.
Comment faire donc pour que seules les cellules remplies apparaissent dans la liste?
Vous trouverez ci-joint une petit fichier exemple.

Merci d'avance pour vos réponses.

Cordialement

[yoyo3d]

pourquoi tu ne créé pas une copie de ta plage de cellule que tu trierais par ordre alphabétique par exemple, ce qui te permetrait de supprimer tes lignes vides...

y a t'il une option de tri directement dans la liste déroulante???

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim strFormula As String
Dim i As Long
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Range("A" & i).Value <> "" Then strFormula = strFormula & Range("A" & i).Value & ", "
Next i
strFormula = Left(strFormula, Len(strFormula) - 2)
Range("C1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=strFormula
End With

[RussellD]

Super, cela fonctionne parfaitement.

Merci beaucoup