Formater le code, copié dans la discussion, à l'aide du bouton...
Private Sub CommandButton1_Click()
Dim part_name As String
Dim part_prix As Currency
If Me.Cbx_article >= 0 And Me.Txt_nombre <> "" Then
If Me.List_order.ListCount >= 20 Then 'si il y a plus de 20 articles
MsgBox "trop d'article pour cette commande il faut creer une nouvelle commande"
Else
On Error GoTo erreur
part_name = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 2, 0)
part_prix = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 4, 0)
'remplir la zone de liste
With Me.List_order
.AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = part_name
.List(memoire, 2) = CCur(part_prix)
.List(memoire, 3) = Me.Txt_nombre
End With
Me.Cbx_article = ""
Me.Txt_nombre = ""
memoire = memoire + 1
ThisWorkbook.Save
L'indenter aide également le lecteur et le rédacteur...
A+