XL 2010 Gestion de l'inventaire

[Mody200]

Bonjour à tous،
Je veux le solde de l'article avec le client après avoir soustrait la vente de l'achat et ajouté le retour de vente et le retour d'achat dans Sheet2 lors du choix entre Textbox 1 et ComboBox 2

 

[cp4]

Bonjour,

Si tes explications ne sont pas claires et que tu ne réponds pas aux questions qu'on te pose.
Je ne vois vraiment pas comment on va pouvoir t'aider.
D'ailleurs, tu ouvres une seconde discussion pour le même problème avec un autre titre.
Chose qui n'est pas bien vu sur le forum.

Bonne chance.

 

[Mody200]

Bonjour,

Si tes explications ne sont pas claires et que tu ne réponds pas aux questions qu'on te pose.
Je ne vois vraiment pas comment on va pouvoir t'aider.
D'ailleurs, tu ouvres une seconde discussion pour le même problème avec un autre titre.
Chose qui n'est pas bien vu sur le forum.

Bonne chance.

Voir le code dans la zone de userform1 textbox1.

 

[cp4]

Voir le code dans la zone de userform1 textbox1.

C'est trop brouillon. Sur la sheet2 quelle est la colonne 'magasin converti'.
Je ne suis même parvenu à alimenter la listbox.
Pourquoi tu as mis 2 plages identiques pour 'type de mouvement'
une se nomme 'bbb' et une autre 'all' (mieux vaut utiliser la plage nommée all).

J'attends ton retour

 

[Mody200]

C'est trop brouillon. Sur la sheet2 quelle est la colonne 'magasin converti'.
Je ne suis même parvenu à alimenter la listbox.
Pourquoi tu as mis 2 plages identiques pour 'type de mouvement'
une se nomme 'bbb' et une autre 'all' (mieux vaut utiliser la plage nommée all).

J'attends ton retour

C'est trop brouillon. Sur la sheet2 quelle est la colonne 'magasin converti'.
Je ne suis même parvenu à alimenter la listbox.
Pourquoi tu as mis 2 plages identiques pour 'type de mouvement'
une se nomme 'bbb' et une autre 'all' (mieux vaut utiliser la plage nommée all).

J'attends ton retour

Bonsoir, dans la feuille 2 dans la colonne y2: y1000 il y a une équation pour sumproduct et sumifs.Je veux la même équation pour userform1 textbox1 et combobox6 et combobox 7
Je veux afficher la quantité nette dans la zone de texte12

 

[cp4]

Bonjour,
C’est du n'importe quoi. La colonne y est vide.

 

[cp4]

Bonjour cp4
je crois qu'il y a des données dans la Colonne "y"
voir première photo colonne en rouge a Gauche !
Bonne Journée
jean marie

Bonjour @ChTi160 ,

Sur la photo pas dans le fichier. De plus il a ouvert 3 ou 4 discussions pour le même sujet.
Bonne journée.

 

[Mody200]

Bonjour @ChTi160 ,

Sur la photo pas dans le fichier. De plus il a ouvert 3 ou 4 discussions pour le même sujet.
Bonne journée.

 

[Mody200]

Bonjour,
je veux afficher la dernière quantité de stock dans un magasin spécifique dans le combobox6 et lui montrer la quantité dans la zone de textbox12, telle que la feuille 2 colonne y

 

[Mody200]

Voir la boîte cod textbox1
C'est la même idée dans la colonne Cheet2

Private Sub TextBox1_Change()

If Me.ComboBox4.Value = "" Then MsgBox "Veuillez d'abord saisir le type de mouvement": Exit Sub
TextBox85 = ""
TextBox4 = ""
'Me.TextBox6.Enabled = False
Dim iii
Dim ws As Worksheet, Rng As Range, Sel As Variant

Set ws = Sheets("Sheet2")
Sel = Me.TextBox1.Value
If Sel <> "" Then
Set Rng = ws.Columns(2).Find(Sel, lookat:=xlWhole)
If Not Rng Is Nothing Then
Me.TextBox1.Value = ws.Cells(Rng.Row, "b")
Me.TextBox2.Value = ws.Cells(Rng.Row, "c")
Me.TextBox3.Value = ws.Cells(Rng.Row, "d")
Me.TextBox4.Value = ws.Cells(Rng.Row, "h")

Me.TextBox89.Value = WorksheetFunction.SumIfs(ws.Range("f:f"), ws.Range("b:b"), Me.TextBox1, ws.Range("s:s"), Me.ComboBox4, ws.Range("p"), Me.ComboBox6)
Me.TextBox12.Value = WorksheetFunction.SumIfs(ws.Range("f:f"), ws.Range("b:b"), Me.TextBox1, ws.Range("s:s"), Me.ComboBox4, ws.Range("p"), Me.ComboBox6)
Me.TextBox12 = Val(Me.TextBox89.Value) - Val(Me.TextBox12.Value) '- Val(Me.TextBox82.Value)
End If
End If
Sheet3.Activate
iii = 2
Do Until Sheet3.Cells(iii, "g").Text = ""
If Me.TextBox1.Text = Sheet3.Cells(iii, "g").Text Then
Cells(iii, "g").Activate


Me.TextBox2 = ActiveCell.Offset(0, 1).Text
Me.TextBox3 = ActiveCell.Offset(0, 2).Text
Me.TextBox4 = ActiveCell.Offset(0, 3).Text
Exit Sub
Else

End If
iii = iii + 1
'TextBox58.SetFocus
Loop

'Me.TextBox6.Enabled = False
'TextBox12.BackColor = &H80FFFF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ComboBox1 = ""
'TextBox2 = ""
'TextBox3 = ""
'TextBox4 = ""
'TextBox5 = ""
'Dim i As Long
'Dim dsrc As Range
'Set dsrc = searchs()
'If Not dsrc Is Nothing Then
'i = dsrc.Row
'Me.ComboBox1.Value = Cells(i, 7).Value
'Me.TextBox2.Value = Cells(i, 8).Value
'Me.TextBox3.Value = Cells(i, 9).Value
''Me.TextBox4.Value = Cells(i, 10).Value
'Else
'End If
'ComboBox1.Enabled = False
'ComboBox1 = ""
'ComboBox2 = ""
'ComboBox3 = ""
'ComboBox4 = ""
'ComboBox5 = ""
'TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
'TextBox6 = ""
'TextBox7 = ""
TextBox8 = ""
TextBox9 = ""

Me.TextBox12.Enabled = False
Me.NoCommande.Enabled = False

TextBox12.BackColor = &H80FFFF

End Sub

En bref, je veux montrer la quantité d'inventaire dans le textbox12 code, le type de magasin ou le fournisseur

 

[cp4]

Bon! je vais être très direct avec toi. Je veux bien t'aider mais i faudrait que tu fasses l'effort de nous expliquer les tenants et aboutissants de ton fichier. Et, surtout répondre aux questions que l'on te pose.
En effet, tu as ouvert déjà 5 discussions autour du même fichier. Tu as eu des propositions que tu n'as pas exploiter.
Alors dans quel but modifies-tu le caption de l'userform1 (code ci-dessous corrigé)

Private Sub ComboBox4_Change()
Dim operation As String
operation = ComboBox4.Text
TextBox1 = ""

Select Case operation
    Case "facture de vente"
UserForm1.Caption = "facture de vente"
     Case "reçu"
UserForm1.Caption = "facture d'achat"
      Case "retour de vente"
    
      Case "Retour d'achat"
   UserForm1.Caption = "Le solde de la première durée"
    
      Case "premier solde"
    
  End Select
End Sub

En attente de ton retour

A+

 

[cp4]

Pour éditer un code c'est comme ça

 

[Mody200]

Bon! je vais être très direct avec toi. Je veux bien t'aider mais i faudrait que tu fasses l'effort de nous expliquer les tenants et aboutissants de ton fichier. Et, surtout répondre aux questions que l'on te pose.
En effet, tu as ouvert déjà 5 discussions autour du même fichier. Tu as eu des propositions que tu n'as pas exploiter.
Alors dans quel but modifies-tu le caption de l'userform1 (code ci-dessous corrigé)

Private Sub ComboBox4_Change()
Dim operation As String
operation = ComboBox4.Text
TextBox1 = ""

Select Case operation
    Case "facture de vente"
UserForm1.Caption = "facture de vente"
     Case "reçu"
UserForm1.Caption = "facture d'achat"
      Case "retour de vente"
 
      Case "Retour d'achat"
   UserForm1.Caption = "Le solde de la première durée"
 
      Case "premier solde"
 
  End Select
End Sub

En attente de ton retour

A+

Ce code n'a pas de problème

Bon! je vais être très direct avec toi. Je veux bien t'aider mais i faudrait que tu fasses l'effort de nous expliquer les tenants et aboutissants de ton fichier. Et, surtout répondre aux questions que l'on te pose.
En effet, tu as ouvert déjà 5 discussions autour du même fichier. Tu as eu des propositions que tu n'as pas exploiter.
Alors dans quel but modifies-tu le caption de l'userform1 (code ci-dessous corrigé)

Private Sub ComboBox4_Change()
Dim operation As String
operation = ComboBox4.Text
TextBox1 = ""

Select Case operation
    Case "facture de vente"
UserForm1.Caption = "facture de vente"
     Case "reçu"
UserForm1.Caption = "facture d'achat"
      Case "retour de vente"
 
      Case "Retour d'achat"
   UserForm1.Caption = "Le solde de la première durée"
 
      Case "premier solde"
 
  End Select
End Sub

En attente de ton retour

A+

Je veux modifier le code textbox1

Je veux afficher la quantité de stock dans la zone de texte12
Je suis désolé de vous déranger

 

[cp4]

Ce code n'a pas de problème

Je veux modifier le code textbox1

Je veux afficher la quantité de stock dans la zone de texte12
Je suis désolé de vous déranger

Dans ces conditions, je constate que tu fais les mêmes que moi à mes débuts en vba.
Tu crois dur comme fer que ton intuition est la bonne. C'est à dire trouver une solution vba en se base sur la manipulation classique d'excel (formule).
Sans vouloir te décourager, ton code à beaucoup de problème.
Désolé, je m'arrête là car tu perds ton temps et le notre.

Bonne continuation.

 

[Mody200]

Dans ces conditions, je constate que tu fais les mêmes que moi à mes débuts en vba.
Tu crois dur comme fer que ton intuition est la bonne. C'est à dire trouver une solution vba en se base sur la manipulation classique d'excel (formule).
Sans vouloir te décourager, ton code à beaucoup de problème.
Désolé, je m'arrête là car tu perds ton temps et le notre.

Bonne continuation.

Je suis désolé d'avoir perdu votre temps avec moi. Puis-je savoir quels sont les nombreux problèmes logiciels que j'ai ?