Remplir listbox sous condition

[blord]

Bonjour à tous,

J'aimerais remplir un listbox avec les données contenues de la cellule A53 jusqu'à la dernière cellule de la colonne A qui contient de l'information (autrement dit la liste débute à la cellule A53 mais la fin de la liste peut être variable) à la condition que la cellule de droite est comme valeur 1.

Par exemple
Colonne A Colonne B
Item 1 0
Item 2 1
Item 3 1
Item 4 0
Item 5 1

Le contenu de ma listbox serait donc composé de :

Item 2
Item 3
Item 5

Merci à tous pour votre aide si précieuse....

Benoit Lord

 

[Hervé]

Re : Remplir listbox sous condition

bonsoir

surement un truc dans ce style

Dim c As Range

For Each c In Range("a53:a" & Range("a65536").End(xlUp).Row)
    If c.Offset(0, 1) = 1 Then
        ListBox1.AddItem c
    End If
Next c

bye

 

[Catrice]

Re : Remplir listbox sous condition

Bonsoir,

Un exemple ci-joint

Edit : Bonsoir Hervé 😉

 

[blord]

Re : Remplir listbox sous condition

Bonjour Hervé, Catrice, le forum,

Merci beaucoup de votre aide, les deux solutions proposées fonctionnent parfaitement...

Benoit Lord