Bonjour,
Pour le moment j'ai une listbox qui m'affiche des infos venant de ma base de donnée :
Qui fonctionne parfaitement.
J'aimerais par contre le modifier pour qu'il affiche uniquement les lignes (de ma feuille "Facture")
Si, et seulement si il y à un "1" dans la colonne CQ
Si vous avez une idée merci à vous
Pour le moment j'ai une listbox qui m'affiche des infos venant de ma base de donnée :
Code:
If Me.OptionButton3.Value = True Then 'Si bouton = Facture
ListBox1.Clear
With Worksheets("Facture")
DerLigne = .Cells(Rows.Count, 2).End(xlUp).Row
For Ligne = DerLigne To 3 Step -1
With .Cells(Ligne, 1)
If .Value <> 0 Then
If InStr(LCase$(.Value), LCase$(TextBox1)) > 0 Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = .Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Offset(, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Offset(, 5)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Offset(, 6)
ListBox1.List(ListBox1.ListCount - 1, 6) = .Offset(, 7)
ListBox1.List(ListBox1.ListCount - 1, 7) = .Offset(, 8)
End If
End If
End With
Next Ligne
End With
Else
Qui fonctionne parfaitement.
J'aimerais par contre le modifier pour qu'il affiche uniquement les lignes (de ma feuille "Facture")
Si, et seulement si il y à un "1" dans la colonne CQ
Si vous avez une idée merci à vous