Microsoft 365 besoin d'aide pour une macro pour Userform

[halimhamdi]

bonjour
j'ai un blocage dans un programme vba quand je veux ajouter plusieurs ligne dans la listbox de cette userform s'affiche avec des ligne vide comme indiquer dans la capture.
qq pourrait-il m'aider à finir ma macro je bloque ?
le programme et comme la suite :

Private Sub Cmd_Valider_Click()
Dim Nligne As Integer
Dim Ncolonne As Integer
    [Tableau4].Parent.Activate
    With Me.ListBox1
        Nligne = .ListCount: Ncolonne = .ColumnCount: Table = .List
        For I = 0 To .ListCount - 1
            L = [Tableau4].ListObject.ListRows.Add.Index
            [Tableau4[Departement]].Rows(L) = .List(I, 0)
            [Tableau4[Salle]].Rows(L) = .List(I, 1)
            [Tableau4[Ligne]].Rows(L) = .List(I, 2)
            [Tableau4[Résp revue]].Rows(L) = .List(I, 3)
            [Tableau4[Batch]].Rows(L) = .List(I, 4)
            [Tableau4[Réf]].Rows(L) = .List(I, 5)
            [Tableau4[Famille]].Rows(L) = .List(I, 6)
            [Tableau4[Anomalie]].Rows(L) = .List(I, 7)
            [Tableau4[Criticité]].Rows(L) = .List(I, 8)
            [Tableau4[Resp Anomalie]].Rows(L) = .List(I, 9)
            [Tableau4[Commentaire]].Rows(L) = .List(I, 10)
            If I = 0 Then [Tableau4[temps]].Rows(L) = Me.Tbx_Elaps
        Next
    End With
    Unload Me
 End Sub
 
Private Sub Cmd_Ajouter_Click()
Dim NbItem As Integer
    Dim t() As Variant
    Ctrl = Array("cbx_dep", "cbx_salle", "cbx_ligne", "tbx_Rrév", "tbx_Batch", "tbx_Réf", "cbx_famille", "cbx_Ano", "tbx_Crit", "tbx_Rano", "tbx_Com")
    With Me.ListBox1
        'chargement des information
        .AddItem: NbItem = .ListCount - 1
        ReDim t(0 To NbItem, LBound(Ctrl) To UBound(Ctrl))
        .List = t
        For I = LBound(Ctrl) To UBound(Ctrl)
            .List(NbItem, I) = Me.Controls(Ctrl(I))
        Next
    End With
End Sub

qq pourrait-il m'aider a finir ma macro je bloque ?

 

[sylvanu]

Bonjour Halimhamdi,
Quelle différence entre ce post et le https://excel-downloads.com/threads...xcel-programation-vba.20071210/#post-20540150 auquel je viens de répondre ? Doublon ?