Microsoft 365 Créer une gestion de stock

Zangief

XLDnaute Nouveau
Bonjour à tous,
Je suis nouveaux sur ce forum est je suis embêter avec une formule si je peux appeler cela comme ça.
dans développeur quand je veux tester pour ajouter un article j'ai additem qui est surligne en bleu et je ne comprend pas pourquoi.
Merci de votre aide.
Private Sub CommandButton1_Click()

Dim part_name As String
Dim part_prix As Currency

If Me.Cbx_article.ListIndex >= 0 And Me.Txt_nombre <> "" Then
If Me.list_order.LineCount >= 30 Then 'si il ya plus de 30 articles
MsgBox " trop d'article pour cette commande il faut créer une autre commande"
Else


'rechercher dans article

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
memoire = memoire + 1

'vider l'article et le nombre

Me.Cbx_article = ""
Me.Txt_nombre = ""
End If

End If

End Sub
 

JM27

XLDnaute Accro
Bonjour
Me.list_order
n'est pas une listbox mais une textbox

et n'a pas de propriété
Me.list_ordre.linecount

mais Me.list_ordre.ListCount

de plus il ya un mélange Me.list_ordre et Me.list_order


entre autre
 
Dernière édition:
Haut Bas