XL 2021 problemde code vba

NicolasKH · 1 Août 2023

bonjour j'ai un soucis que je n'arrive pas a resoudre:
je vais essayer de vous expliquer ca le plus claire possible

j'ai dans mon classeur un userform (ADDBOOKING) dans ce userform que je clique sur IN je voudrais que le cbocutomer se renseigne dans la feuil BOOKING colone E et que quand je clique sur OUT je voudrais que le cbocutomer se renseigne dans la feuil BOOKING colone F et mon probleme c'est peut que je clique sur IN ou OUT cela s'inscrit que dans la collone F.

ca fais deux jours que je tourne en rond
merci de votre aide

TooFatBoy · 3 Août 2023

NicolasKH à dit:
merci @TooFatBoy pour ton fichier mais je viens de m'appercevoir que dans mon classeur il y a des choses pas tres logique

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

NicolasKH · 4 Août 2023

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

je veut dire par la que mon classeur n'est pas logique, il faut que je le transforme un peut

Oneida · 4 Août 2023

Bonjour a tous
sauf erreur de ma part,

VB:

If Me.LblInfo1 = "Customer:" 'Impossible, seulement IN ou OUT

NicolasKH · 8 Août 2023

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

merci beaucoup de votre reponse tres rapide et ca a bien fonction
pour ma part le probleme est bien resolu

XL 2021 problemde code vba

NicolasKH

XLDnaute Junior

Pièces jointes

TooFatBoy

NicolasKH

XLDnaute Junior

Oneida

XLDnaute Impliqué

NicolasKH

XLDnaute Junior

Discussions similaires