Microsoft 365 Créer une gestion de stock

[Zangief]

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

 

[fanfan38]

Bonjour
Sans fichier difficile de te répondre...
Si tu veux j'ai fait cette appli avec un boucher

Gestion vente

Une appli pour gérer un commerce les clients, les ventes, les commandes et stock

www.excel-downloads.com

A+ François

 

[Zangief]

salut Fanfan38,
je met le fichier en pcs jointe.
merci

 

[JM27]

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

 

[Zangief]

Bonjour,
Après essayer cela ne fonctionne toujours pas. tjr le additem surligne en bleu.
merci

 

[JM27]

as tu remplacé ta textbox par une listbox ?

un début de solution

 

[fanfan38]

Bonjour
sans fichier je n'aurai jamais trouvé
Ci joint ma solution
comme le dit JM27 un textbox n'a pas de additem

A+ François

 

[fanfan38]

Si tu fais
Private Sub list_order_Change() à chaque saisie tu auras une commande et tu utilise pas le bouton Commander
j'ai corrigé l'enregistrement de la commande
A+ François

 

[fanfan38]

j'ai fait les fournisseurs et les clients et j'ai ajouté les fournisseurs à order
A+ François

 

[Zangief]

Je vous remercie infiniment, fanfan38 respect merci et merci a toi JM27.
je vais pouvoir continuer