Me.ListBox1.AddItem

[Evelynetfrancois]

Bonjour forum
Je me heurte à un soucis d’additem

For i = 2 To .Range("a65536").End(xlUp).Row + 2
Me.ListBox1.AddItem .Range("K" & i)

Mon problème : malgré un tris sur la 11° colonne (K)

(For i = 2 To 1000
If Cells(i, 11) = "o" Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True)

Tous les items sont tout de même reportés dans ma listbox1
Comment chasser les filtrés / cachés ?
Merci pour vos sujétions
Bonne journée
E et F

 

[Robert]

Re : Me.ListBox1.AddItem

Bonjour EvelyneEtFrançois, bonjour le forum,

Peut-être comme ça :

 If .Rows(i).Hidden = False Then Me.ListBox1.AddItem .Range("K" & i)

 

[Evelynetfrancois]

Re : Me.ListBox1.AddItem

merci Robert pour ta reponse
mais en situation false j ai toutes les lignes en true je n'ai plus rien ...

Comment chasser les filtrés / cachés ? la grande question lol
je cherche .....
au plaisir de te lire et encore merci pour tout ...
E et F

 

[Robert]

Re : Me.ListBox1.AddItem

Bonjour EvelyneEtFrançois, bonjour le forum,

Chez moi ça marche... Mais il faut que le filtrage soit fait avant...

Private Sub UserForm_Initialize()With Sheets("Feuil1")
    For i = 2 To .Range("A65536").End(xlUp).Row + 2
        If Rows(i).Hidden = False Then Me.ListBox1.AddItem .Range("K" & i)
    Next i
End With
End Sub

Ou sinon comme ça :

Private Sub UserForm_Initialize()
Dim dl As Integer
Dim cel As Range


With Sheets("Feuil1")
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each cel In .Range("K2:K" & dl).SpecialCells(xlCellTypeVisible)
        Me.ListBox1.AddItem cel.Value
    Next cel
End With
End Sub

Ce qui est quand même un comble c'est que ce soit à moi de fournir un pièce jointe pour prouver que ça marche, mais peut-être pas dans ton contexte... Depuis le temps, tu n'as toujours pas compris que ça allait plus vite avec une pièce jointe !

 

[Evelynetfrancois]

Re : Me.ListBox1.AddItem

MERCI Robert pour ce complément d infos, tout fonctionne maintenant à merveille !!!
Je te pris d’accepter toutes mes excuses quand au fichier joint, ce n’est pas mon habitude
mais comme je n’étais pas chez moi, il ne m’étais pas très aisé d’en produire un.
Vraiment désolé
Au plaisir de te lire , et encore un très grand merci pour tout
EetF