XL 2010 Gestion d'entrepôt plus d'un fournisseur

[Mody200]

Bonjour à tous,
je veux que tu m'aides
Code vba du formulaire utilisateur : recherche de la valeur du stock en fonction du nom du fournisseur et du nom du produit après ajout, remise de vente et retours de bons, sachant qu'il y a plus d'un fournisseur et plus d'un article

 

[ChTi160]

Bonjour Mody200
Pas de fichier cette fois ci ?
Bonne journée
Jean marie

 

[Mody200]

مرحبا Mody200
لا يوجد ملف هذه المرة؟
اتمنى لك يوم جيد
جان ماري

Le fichier a été joint

 

[cp4]

Bonjour Jean Marie😉, @Mody200 🙂,

@Mody200 : Tu es sur un forum Francophone. Personnellement, je ne lis pas l'arabe. Merci de nous traduire au moins les msgbox en Français ou en Anglais.

Si j'ai bien compris, il s'agit de l'userform1. Dans ton code tu fais référence à la textbox90 qui n'existe pas (code ci-dessous)

Private Sub cmdAdd_Click()
Dim i As Long, ii As Long, j As Integer
Dim Ary()

ListBox1.Clear
iNdx = ""

With Worksheets("sheet2")
    For i = 2 To .Cells(Rows.Count, "a").End(xlUp).Row
        If InStr(.Cells(i, "a"), CStr(Me.TextBox90)) = 1 Then
        .....suite du code

Bonne journée

 

[ChTi160]

Bonjour le Fil , le Forum
Bonjour cp4
La traduction de ce que j'ai dit si ça peut t'aider Lol😁😀🤣

مرحبا Mody200
لا يوجد ملف هذه المرة؟
اتمنى لك يوم جيد
جان ماري

Bonjour Mody200
Pas de fichier cette fois ci ?
Bonne journée
Jean m

En attendant plus et mieux Lol
Bonne Journée
Jean marie

 

[cp4]

Bonjour le Fil , le Forum
Bonjour cp4
La traduction de ce que j'ai dit si ça peut t'aider Lol😁😀🤣



En attendant plus et mieux Lol
Bonne Journée
Jean marie

Re, @ChTi160 merci pour ton retour. En fait, il a joint un fichier au post#1😉

 

[ChTi160]

Re
Ok !
Je faisais juste un peu d'humour ! Lol 😉
Bonne journée
Jean marie

 

[cp4]

Re
Ok !
Je faisais juste un peu d'humour ! Lol 😉
Bonne journée
Jean marie

Oui, j'ai bien compris ton humour. Je pensais que tu ne t'es pas rendu qu'il avait ajouté son fichier aux images jointes. A moins que je sois un peu en retard sur les événements.

Bonnes fêtes de fin d'année😎

 

[ChTi160]

Re
Bonnes fêtes de fin d'année à toi et tes proches !
Prends soin de toi !
Bonne journée
Jean marie

 

[Mody200]

Bonjour Jean Marie😉, @Mody200 🙂,

@Mody200 : Tu es sur un forum Francophone. Personnellement, je ne lis pas l'arabe. Merci de nous traduire au moins les msgbox en Français ou en Anglais.

Si j'ai bien compris, il s'agit de l'userform1. Dans ton code tu fais référence à la textbox90 qui n'existe pas (code ci-dessous)

Private Sub cmdAdd_Click()
Dim i As Long, ii As Long, j As Integer
Dim Ary()

ListBox1.Clear
iNdx = ""

With Worksheets("sheet2")
    For i = 2 To .Cells(Rows.Count, "a").End(xlUp).Row
        If InStr(.Cells(i, "a"), CStr(Me.TextBox90)) = 1 Then
        .....suite du code

Bonne journée ر

Je veux connaître le solde du produit dans un magasin particulier après avoir soustrait la vente de l'achat vba excel

 

[cp4]

Bonsoir,

J'ai utilisé google traduction pour te répondre.
نحن لا نفهم بعضنا. Textbox90 غير موجود.

 

[Mody200]

Je veux le solde de l'article avec le client après avoir soustrait la vente de l'achat et ajouté le