alimentation listbox

[GHISLAIN]

bonjour a tous ,

j'utilise ce code pour alimenter une listbox

With Sheets("test")
derligne = .Range("D65536").End(xlUp).Row
For i = 15 To 50
ListBox1.AddItem .Range("D" & i)
Next
End With

dans cette colonne d , de la ligne 15 a la ligne 50 j ai des valeurs que je recupere pour alimenter cette listbox

dans cette colonne il y a egalement des cellules ou apparaissent des "XXXXX" que je ne souhaite pas voir apparaitre dans la listebox

comment faire pour alimenter cette listbox sans les XXXXX

merci a tous de votre aide

amicalement

ghislain

 

[Fred0o]

Re : alimentation listbox

Bonjour GHISLAIN,

Tu peux écrire ceci :

With Sheets("test")
    derligne = .Range("D65536").End(xlUp).Row
    For i = 15 To 50
        If Range("D" & i) <> "XXXXX" Then ListBox1.AddItem .Range("D" & i)
    Next
End With

A+
A+

 

[GHISLAIN]

Re : alimentation listbox

Bonjour Fred0o,

merci d'etre passé sur mon Fil et encore un merci pour avoir résolu mon probleme

bon week

amicalement

ghislain