Discussion :

[Maiden002]

Bonjour le forum,

J'ai initialisé une liste déroulante avec ce code.

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
cmbReturn.List = Range([A10], [a2500].End(xlUp)).Value
 
End Sub

Ce code me donne la liste de tous les éléments qui sont présents dans la colonne A.

Ce que je voudrais, c'est lister tous les éléments de la colonne A pour lesquels la colonne F est renseignée.

Est ce possible ?


Merci

[laetitia]

bonjour Maiden002 le forum
un exemple a adapter

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Range("A10:a" & Range("A65536").End(xlUp).Row)
If c.Offset(0, 5) <> "" Then ComboBox1.AddItem c
Next
End Sub

[Maiden002]

je n'y arrive pas.
j'ai fais ceci mais je ne pense pas vraiment que ce soit sa.

Code :

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

1
2
3
4
5
Dim c As Range
 
For Each c In Range([A10], [A2500].End(xlUp).Value)
If c.Columns(6) = "" Then cmbReturn.AddItem c
Next

[mercatog]

Si tu reportes ce que t'as proposé Laétitia (que je salue ), ça fonctionnera:

Code :

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

1
2
For Each c In Range("A10:a" & Range("A65536").End(xlUp).Row)
if c.offset(0,5)<>"" then ...

[laetitia]

re, bonjour a l' ami mercatog
si tu veus faire réference a une colonne tu peus l'ecrire aussi comme cela!!!

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim c As Long
For c = 10 To Range("A2500").End(xlUp).Row
If Cells(c, 6) <> "" Then cmbReturn.AddItem c
Next c
End Sub

[Maiden002]

OK merci a vous sa marche maintenant