Bonjour,

je galère : mon code n'affiche plus les lignes filtrées.
Oui, oui, mon code affichait les bonnes lignes et j'ai modifié plusieurs choses.
Maintenant, il n'affiche plus les lignes filtrées sur la feuille Excel.
Je ne comprends plus. J'ai testé différentes déclarations de plage filtrée mais rien n'y fait.

Je fais appel à vous.

ESVBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub testremplissage()
    Dim Tmp          As String
    Dim Plage        As Range
    Dim PlageFiltree As Range
    Dim i As Long                   'N° ligne dans la listbox
    Dim K As Integer                ' K colonne du tableau et de la listbox
    Dim Cel As Range                'Cellule filtrée de la première colonne
 
    Set Plage = Worksheets("Dates Annuelles Générées").Range("A2", Range("A65536").End(xlUp)).Resize(, 1)
    Set PlageFiltree = Plage.SpecialCells(xlCellTypeVisible)
 
    i = 0
    For Each Cel In PlageFiltree
        Me.LstHoraire.AddItem Format(i + 1, "000")         'Me.LstHoraire.List(i, 0) = Format(i, "000")
        For K = 1 To 9
            Select Case K
                Case 7, 8
                    Tmp = Format(Cel.Offset(i, K - 1).Value, "hh:mm")
                Case Else
                    Tmp = Cel.Offset(i, K - 1).Value
            End Select
 
            Me.LstHoraire.List(i, K) = Tmp
        Next K
        i = i + 1
    Next Cel
End Sub
Merci de votre aide.