XL 2021 problemde code vba

TooFatBoy à dit:

Est-ce que ça veut dire que les propositions données ici ne peuvent s'appliquer à ton classeur ?

Cliquez pour agrandir...

TooFatBoy à dit:

Et si tu veux travailler avec les référence de ton Tableau Structuré (que j'ai renommé de Tableau5 en t_Booking pour l'occasion), ça pourrait donner ceci :
(j'ai laissé tes lignes d'instruction VBA en commentaire, pour que tu puisses comparer plus facilement)

VB:

Private Sub CommandButton2_Click()
'
Dim DL As Integer
Dim List_Nombre As Integer
Dim ligne As Integer

    List_Nombre = Me.LibOrder.ListCount - 1
    If List_Nombre < 0 Then Exit Sub    ' Contrôle quei la liste n'est pas vide

    If MsgBox("Do you want to register this transaction ?", vbYesNo) = vbNo Then Exit Sub

    For ligne = 0 To List_Nombre

        ' Ajouter une nouvelle ligne dans notre tableau
'        Sheets(5).ListObjects(1).ListRows.Add
        [t_Booking].ListObject.ListRows.Add

        ' Chercher le numéro de la prochaine ligne libre dans notre tableau
'        DL = Sheets(5).Range("B" & Rows.Count).End(xlUp).Row
        DL = [t_Booking].Rows.Count

        ' Ajouter les informations dans la base de données
'        Sheets(5).Range("B" & DL) = Me.LblInfo1
        Range("t_Booking[Type]")(DL).Value = Me.LblInfo1
'        Sheets(5).Range("C" & DL) = Me.TxtBill
        Range("t_Booking[Nr bill]")(DL).Value = Me.TxtBill
'        Sheets(5).Range("D" & DL) = Me.CboNrOrder
        Range("t_Booking[Order number]")(DL).Value = Me.CboNrOrder

        ' Contrôle si c'est un fournisseur ou un client
'        If Me.LblInfo1 = "Customer:" Then
'            Sheets(5).Range("E" & DL) = Me.CboType
'        Else
'            Sheets(5).Range("F" & DL) = Me.CboType
'        End If
        Range("t_Booking[Customer]")(DL).Offset(0, -Me.OptionOUT.Value).Value = Me.CboType

        ' Ajouter les données de la zone de liste
'        Sheets(5).Range("G" & DL) = Me.LibOrder.List(ligne, 0)
        Range("t_Booking[Nr article]")(DL).Value = Me.LibOrder.List(ligne, 0)
'        Sheets(5).Range("H" & DL) = CInt(Me.LibOrder.List(ligne, 1))
        Range("t_Booking[Quantity]")(DL).Value = Me.LibOrder.List(ligne, 0)

    Next ligne

    MsgBox "BOOKING IS DONE"
    Unload Me
    ThisWorkbook.Save

End Sub

Cliquez pour agrandir...