Re : Listbox conditonnelle
Re,
J'ai peut être parler trop vite.....
Voilà mon code qui ne fonctionne pas ! Y voyez vous un pb
Il m'affiche l'entrée 1,2 et 4 de la base. Alors que l'entrée 1 uniquement devrait s'afficher (voir photo en PJ)
PS: J'ai essayé d'intégrer le code dans mon fichier final (les colonnes 27 et 28 de laa base sont passées en 105 et 106 mais ça ne change rien à priori)
Private Sub UserForm_Initialize()
k = 0
With Sheets("Base")
For i = 2 To .[A65000].End(xlUp).Row
If Not IsEmpty(.Cells(i, 105)) And Not IsEmpty(.Cells(i, 106)) Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = .Cells(i, 1)
Me.ListBox1.List(k, 1) = .Cells(i, 3)
Me.ListBox1.List(k, 2) = .Cells(i, 4)
Me.ListBox1.List(k, 3) = .Cells(i, 10)
Me.ListBox1.List(k, 4) = .Cells(i, 11)
Me.ListBox1.List(k, 5) = .Cells(i, 105)
Me.ListBox1.List(k, 6) = .Cells(i, 106)
k = k + 1
End If
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Dans l'attente de vos réactions, merci
Julien