Remplir ListBox avec condition

[Bruno]

Bonjour a tous et bonne journée

Je cherche a mettre dans une listebox les codes qui se trouve dans la colonne A, à Condition qu’il y ait un X dans la Colonne c.

Merci de votre aide.

 

[Creepy]

Bonjour le Forum, Brunon,

Regarde en Pièce jointe l'exemple commenté que je t'ai fait, ca doit répondre à ta question.

@+

Creepy [file name=Listbox_value_X.zip size=10321]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Listbox_value_X.zip[/file]

 

[Bruno]

Bonjour Creepy

Je suis à mon travail et je ne peux pas récupérer de fichier.

Peux tu mettre le texte des macros sur un message ?

Merci
@+

 

[Creepy]

RE all,

Voici le code. J'ai créé une userform avec dedans une listbox :

Sub UserForm_Initialize()
Dim I As Integer ' Declare une variable en integer pour faire une boucle

For I = 1 To Feuil1.Range('A65535').End(xlUp).Row
' Boucle de la ligne 1 à la dernière ligne non vide de la colonne A
If UCase(Feuil1.Cells(I, 3).Value) = 'X' Then
'Si la valeur en majuscule(ucase!) de la ligne I, colonne 3 (C!) est egale à X
    ListBox1.AddItem (Feuil1.Cells(I, 1).Value) ' Alors ajoute à la liste la valeur de laligne colonne A
End If ' fin de si
Next ' Prochaine ligne

End Sub

@+

Creepy

 

[Bruno]

Merci Creepy

Cela marche aprés avoir modifier :
Feuil1 en Sheets('Feuil1').......

Encore merci de ton aide
@