Bonjour,
pour la colonne "Débit" mettre un 4 au lieu du 5 dans ce code sur le USF :
ActiveCell.Offset(, 4).Value = Panier
Private Sub CommandButton1_Click()
If ComboBox1 = "" Then MsgBox ("Quel mode de paiement ? Merci"): Exit Sub
If Panier = 0 Then Unload Me: Exit Sub
ActiveCell.Offset(, 2).Value = ComboBox1
ActiveCell.Offset(, 4).Value = Panier
Dim I, DerLigne
For I = 0 To Me.ListBox2.ListCount - 1 ' on boucle sur les différents articles du panier
With Feuil11.ListObjects(1)
.ListRows.Add
DerLigne = .ListRows.Count
.DataBodyRange.Cells(DerLigne, 1) = TextBox2.Value ' nom
.DataBodyRange.Cells(DerLigne, 2) = CDate(TextBox2.Tag) ' date
.DataBodyRange.Cells(DerLigne, 3) = ListBox2.List(I, 1) ' domaine
.DataBodyRange.Cells(DerLigne, 4) = ListBox2.List(I, 2) ' désignation
.DataBodyRange.Cells(DerLigne, 5) = CDbl(ListBox2.List(I, 3)) ' prix unitaire
.DataBodyRange.Cells(DerLigne, 6) = CDbl(ListBox2.List(I, 4)) ' quantité
.DataBodyRange.Cells(DerLigne, 7) = CDbl(ListBox2.List(I, 5)) ' quantité
End With
Next I
Unload Me
End Sub
et pour l'ajout du "PayPal" il faut le mettre à la suite dans le code d'initialisation du USF :
Private Sub UserForm_Initialize()
OteTitleBarre Me.Caption, False
ListBox1.List() = Feuil10.ListObjects(1).DataBodyRange.Value
TextBox1.Value = Panier
ComboBox1.List = Array("CB", "Chèque cliente", "Espèce", "Carte cadeau", "Avoir", "PayPal")
End Sub
Vous pouvez modifier l'ordre de ces valeurs, par contre la valeur "Avoir" ne va pas correspondre au résultat, il vaut peut-être mieux le gérer différemment.
Sinon, il m'arrive de ne pas tout comprendre au premier coup.
@ bientôt
LouReeD