Listbox sous condition

Bonjour à tous,

je sèche lamentablement sur la création d'une listbox avec condition.

Je souhaite créer une listbox de la feuil2 si les cellules de la colonne 6 sont à 0!

Voici mon code.

Ou est mon erreur! car il y en a une ou plusieurs

Private Sub UserForm_Activate()

'---- Déclaration des var

Dim i As Integer

Dim derligne As Integer

'---- Date du jour

TextBox1.Value = Date

Controls("textbox2") = Format(Controls("textbox1"), "yyyymmdd")

'---- Création liste mvt si cde à 0

derligne = Feuil2.Range("A65536").End(xlUp)

For i = 1 To derligne

If Feuil2.Cells(i, 6) = 0 Then ListBox2.AddItem Sheets("Feuil2").Range("A" & i)

Next i

End Sub

Merci d'avance pour votre aide

Bonjour,

Essaie comme ceci :

Private Sub UserForm_Activate()
'---- Déclaration des var
Dim i As Integer
Dim derligne As Integer
'---- Date du jour
TextBox1.Value = Date
Controls("textbox2") = Format(Controls("textbox1"), "yyyymmdd")
'---- Création liste mvt si cde à 0

derligne = Feuil2.Range("A65536").End(xlUp).Row
For i = 1 To derligne
 If Feuil2.Cells(i, 6).value = 0 Then ListBox2.AddItem Sheets("Feuil2").Range("A" & i).Value
Next i
End Sub

Si ce code est utilisé pour l'ouverture de l'USF, il faut mettre Private Sub UserForm_Initialize() au lieu de Private Sub UserForm_Activate()

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de réponse.

A te relire

Bonjour Dan

Merci de ta réponse mais cela ne fonctionne pas.

J'ai bien pris en compte l'initialisation de l'UF

Je te joint le fichier

Bonjour

J'ai trouvé une réponse que j'ai adaptée auprès de Banzaï64.

Merci à vous

re

sans fichier ce n'est pas évident mais bon la solution que je t'ai donnée fonctionne. Je l'ai testé avant de la poster mais probablement qu'elle ne correspond pas à ton fichier

Amicalement

Merci à dan d'avoir suivi cette question.

Mais il est vrai que sans fichier cela est difficile.

Bonne fête de fin d'année.