XL 2021 PB Alimentation Tableau structuré depuis un ListBox

cathodique à dit:

Il est possible de "filtrer" le tableau par rapport à la colonne que tu m'as indiqué.
Cependant, dans cette colonne tu as mis une liste de validation dans laquelle, il n'y a pas le mot "Transféré".

Cliquez pour agrandir...

Sub RemplirListBox()
    Dim tbl As ListObject, Col As ListColumn
    Dim i As Long, j As Long, NbLig As Long, n As Long
    Dim Tmp() As Variant, Tr() As Variant

    Set tbl = Range("Tbl_Invendus").ListObject
    Set Col = tbl.ListColumns("Décision")

    NbLig = tbl.ListRows.Count

       ReDim Tmp(1 To NbLig, 1 To tbl.ListColumns.Count)

    n = 0

    ' Parcourir les lignes du tableau
    For i = 1 To NbLig
        If Col.DataBodyRange.Cells(i, 1).Value <> "Transféré" Then
            n = n + 1
            For j = 1 To tbl.ListColumns.Count
                Tmp(n, j) = tbl.DataBodyRange.Cells(i, j).Value
            Next j
        End If
    Next i

   If n > 0 Then
        ReDim Tr(1 To n, 1 To tbl.ListColumns.Count)
        For i = 1 To n
            For j = 1 To tbl.ListColumns.Count
                Tr(i, j) = Tmp(i, j)
            Next j
        Next i
        Me.ListBox1.List = Tr
    Else
        Me.ListBox1.Clear
    End If
End Sub

de copier les commentaires (des miniatures) qui sont dans les cellules de la colonne B de la feuille INVENDUS vers les cellules correspondantes de la feuille LISTE.

Cliquez pour agrandir...

de copier les commentaires (des miniatures)

Cliquez pour agrandir...

jeff1494 à dit:

Re-Bonjour;
@ChTi160 ;
Basé sur ton code (#17 d'hier), je dois maintenant faire une modification qui serait de copier les commentaires (des miniatures) qui sont dans les cellules de la colonne B de la feuille INVENDUS vers les cellules correspondantes de la feuille LISTE.

Je pensais pouvoir m'en sortir seul, c'est pourquoi je n'en ai pas parlé avant, mais je dois bien me rendre compte que je n'y arrive pas, et que j'ai beaucoup surestimé mes connaissance et capacités.
Donc si tu avais la gentillesse de modifier ce code pour prendre en compte cette copie je t'en serais reconnaissant.
Je te prie de m'excuser pour ma croyance en mes capacités qui t'obligerait à reprendre ton code.
En tous cas merci encore.
Bonne journée à toi.

Cliquez pour agrandir...