Alimenter une listbox sous conditions

[crapoto]

Bonjours à tout le forum et merci de l'aide que vous nous donner.

Voila, je joint un fichier, c'est plus simple que de se lancer dans de grand discours.
Je voudrait que la listbox ne prenne pas les lignes ou il y a un X dans la derniere colonne.
je cherche mais je n'y arrive pas.
Un grand merci à celui qui pourrait eclairer ma lanterne. [file name=classeur_20050605113610.zip size=11391]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur_20050605113610.zip[/file]

Message édité par: crapoto, à: 05/06/2005 11:46

 

[JeanMarie]

Bonjour crapoto

Modifie ton code ainsi

Private Sub initlistbox()
Dim c As Range
Dim x As Byte
Me.NouvListe.Clear

DER = Sheets('feuil1').Range('A2').End(xlDown).Row
x = 0
For Each c In Range('A2:A' & DER)
    If c.Offset(0, 12) = '' Then
        With NouvListe
           .AddItem c
           .List(x, 0) = c
           .List(x, 1) = c.Offset(0, 2)
           .List(x, 2) = Format(c.Offset(0, 4), '###0.00')
           .List(x, 3) = Format(c.Offset(0, 6), '###0.00')
           .List(x, 4) = Format(c.Offset(0, 8), '###0.00')
           .List(x, 5) = c.Offset(0, 12)
           .List(x, 6) = c.Row
           x = x + 1
       End With
    End If
Next c
End Sub

@+Jean-Marie

 

[crapoto]

Alors la... je dit bravo.
Une réponse aussi rapide qui me regle le probleme en un tour de main, chapeaux.
Un grand merci JeanMarie