XL 2019 Copie de donnée d'un UserForm dans un tableau Excel

shelbie

XLDnaute Nouveau
Bonjour à tous,

J'ai un soucis avec mon code VBA, quand j'appuie sur le bouton les données sont sensée ce mettre sur ma feuille Excel mais ca ne le fait pas?

Quelqu'un pourrez m'aider s'il vous plaît?

Merci Beaucoup
Shelbie

voici le code:

Private Sub Cbn_booking_Click()
Dim dl As Integer
Dim list_nombre As Integer
Dim ligne As Integer

list_nombre = Me.List_Order.ListCount - 1

If Me.List_Order.ListCount > 0 Then 'controle que la liste n'est pas vide
If MsgBox("Voulez-vous enregistrer cette transaction?", vbYesNo) = vbYes Then
For ligne = 0 To list_nombre
'ajouter une nouvelle ligne dans notre tableau
Sheets("Booking").ListObjects(1).ListRows.Add
'Chercher le nr de la prochaine ligne libre dans notre tableau
dl = Sheets(5).Range("B9999").End(xlUp).Row

'ajouter les informations dans notre base de donnee
Sheets(5).Range("b" & dl) = Me.info1
Sheets(5).Range("c" & dl) = Me.Text_facture
Sheets(5).Range("d" & dl) = Me.Cbx_Order
'controler si c'est un fournisseur ou un client
If Me.Label_type.Caption = "Fournisseur:" Then
Sheets(5).Range("e" & dl) = Me.Cbx_type
Else
Sheets("Booking").Range("f" & dl) = Me.Cbx_type

End If
'ajouter les données de la zone de liste
Sheets(5).Range("g" & dl) = Me.List_Order.List(ligne, 0)
Sheets(5).Range("h" & dl) = CInt(Me.List_Order.List(ligne, 1))




Next ligne

MsgBox "Booking est fait"
Unload Me
ThisWorkbook.Save
End If
End If
' Sheets(4).Range("e7") = "Facture"
' Sheets(4).Range("c11") = Me.Text_facture
' If MsgBox("voulez-vous créer la facture?", vbYesNo) = vbYes Then
' Sheets(4).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\shelby\Desktop\ap\Facture\" & " - " & Me.Text_facture & Me.Cbx_Order, OpenAfterPublish:=True
' End If
End Sub
 

Pièces jointes

  • Gestion de stock.xlsm
    236.2 KB · Affichages: 7
Dernière édition:

Discussions similaires

Réponses
77
Affichages
1 K