Discussion :

[Tartenpion]

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 :

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

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?

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

Code :

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

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

[Tartenpion]

C'est parfait! Merci beaucoup!

Bonne soiree.