VBA Parcourir des cellules dont le contenu n'est

Bonjour,

Je souhaiterais afficher le contenu d'une liste deroulante base sur une serie de cellule dans une feuille Excel

Je souhaiterais que la hauteur de ma liste deroulante soit egale au nombre de cellule sur laquelle elle est base. (Ceci afin d'eviter des lignes blanches en bas de la liste) Donc en gros si j'ai 5 cellules, ma liste deroulante me listera les 5 et pas une de plus.

C'est pour cela que je base le rowsource sur le nombre de cellule dans lesquelles j'ai des donnes(nombre aleatoire).

J'ai bien entendu besoin de calculer le nombre de cellule dans lesquelle j'ai une valeur.

Le code suivant ne marche pas, la ligne du do while pose probleme. Je pense que c'est du au IS NOT NULL.

Code:

---

1 2 3 4 5 6 7 8

Dim iCount i = 1 Do While "results!A1:A" & i.content Is Not Null i = i + 1 Loop   cbxProj.RowSource = "results!A1:A" & i

---

Vous en pensez quoi?

bonsoir

j'espere que cet exemple pourra t'aider

Code:

---

1 2 3

Dim i As Integer i = Sheets("Results").Range("A1").End(xlDown).Row cbxProj.List() = Sheets("Results").Range("A1:A" & i).Value

---

bonne soiree
michel

C'est parfait! Merci beaucoup!

Bonne soiree.