Sumifs Stock de stockage

Bonjour

Je mets le code "Debug.Print sForm" et le résultat est le même Le problème vient de ce code

Set ws = Sheets("Cashing")
Ur = Sheet4.Range("b" & Rows.Count).End(xlUp).Row
Set ws = Sheets("sale invoice")
Ur1 = Sheet12.Range("b" & Rows.Count).End(xlUp).Row

Récupère la sortie dans textbox14 uniquement en fonction du dernier événement

Set ws = Sheets("sale invoice")
Ur = Sheet12.Range("b" & Rows.Count).End(xlUp).Row
sForm1 = "sumifs(f2:f" & Ur & ",b2:b" & Ur & "," & Chr(34) & Me.TextBox1.Value & Chr(34) _
& ",r2:r" & Ur & "," & Chr(34) & Me.ComboBox2.Value & Chr(34) & ",s2:s" & Ur & ",""sale invoice"")"
Debug.Print sForm, sForm1
Me.TextBox14.Value = Evaluate(sForm1) - Evaluate(sForm)

Application.ScreenUpdating = True

Bonjour Mody

Commencez pas savoir utiliser le forum SVP

Votre demande en dehors des balise du code....

A+

Bonjour BrunoM45

Je suis tellement désolé de ne pas avoir remarqué
Mais je voulais attirer votre attention pour résoudre mon problème, et je voulais que les administrateurs du forum répondent rapidement à ma demande
Je suis vraiment, vraiment désolé

Bonsoir Mody,

Il serait bien lorsque vous faites vos demandes de mettre le code identique à celui que vous avez CTL+C / CTRL+V

Aucun des codes du fichier ne correspondent à ce que vous nous avez donné ! Je pense que vous vous moquez de nous...

En plus quand je vois ça

With Ur = Worksheets("Cashing").Range("b" & Rows.Count).End(xlUp).Row

Je vois que vous n'avez rien compris à l'instruction With

Commencez par apprendre VBA et revenez nous voir

A+

Bonjour BrunoM45

je ne plaisante pas avec toi

Je suis débutant en VBA et je ne voulais plus que vous m'aidiez

Merci beaucoup

Je pense que je t'ai trop dérangé avec mon problème

Nous sommes désolés pour cela

Bonjour Mody,

Je ne plaisante pas non plus

Si vous voulez être aidé correctement, faites les choses correctement ou passé votre chemin

A bon entendeur

Bonjour BrunoM45

Merci pour ton aide
J'ai fait ce que tu m'as demandé mais le problème persiste

Me.TextBox14.Value = Évaluer(sForm1) - Évaluer(sForm)

Il ne collecte que le dernier code (sForm1).

Private Sub test()
Dim sForm As String, sForm1 As String, Ur As Long, Ur1 As Long
Application.ScreenUpdating = False
Ur = Worksheets("Cashing").Range("b" & Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets("Cashing").Activate
sForm = "sumifs(f2:f" & Ur & ",b2:b" & Ur & "," & Chr(34) & Me.TextBox1.Value & Chr(34) _
& ",r2:r" & Ur & "," & Chr(34) & Me.ComboBox2.Value & Chr(34) & ",s2:s" & Ur & ",""Cashing"")"
Ur1 = Worksheets("Cashing").Range("b" & Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets("sale invoice").Select
sForm1 = "sumifs(f2:f" & Ur1 & ",b2:b" & Ur1 & "," & Chr(34) & Me.TextBox1.Value & Chr(34) _
& ",r2:r" & Ur1 & "," & Chr(34) & Me.ComboBox2.Value & Chr(34) & ",s2:s" & Ur1 & ",""sale invoice"")"
Debug.Print sForm, sForm1
Me.TextBox14.Value = Evaluate(sForm1) - Evaluate(sForm)
Application.ScreenUpdating = True
End Sub

A+

Re,

Pourriez-vous mettre le bon fichier avec la procédure donnée SVP, car je ne la vois pas

A+

Bonjour BrunoM45
Lors du choix du nom stockeur ! Hassan Ahmed
Lors du choix du nom code produit ! 100
La quantité apparaît dans La quantité restante ! 284
Le montant exact est ! 255

Re,

Quand on sait comment utiliser votre fichier

Voici le code qu'il vous faut, bien plus rapide que la fonction EVALUATE()

Private Sub test()
  Dim sForm As String, sForm1 As String, Ur As Long, Ur1 As Long
  Dim Qt1 As Single, Qt2 As Single
  Dim ShtC As Worksheet, ShtSI As Worksheet
  ' Définir la feuille
  Set ShtC = ThisWorkbook.Worksheets("Cashing")
  ' Dernière ligne de la feuille
  Ur = ShtC.Range("B" & Rows.Count).End(xlUp).Row
  ' Quantité de l'article dans Cashing
  Qt1 = Application.WorksheetFunction.SumIfs(ShtC.Range("F2:F" & Ur), ShtC.Range("B2:B" & Ur), Me.TextBox1.Value, _
     ShtC.Range("R2:R" & Ur), Me.ComboBox2.Value, ShtC.Range("S2:S" & Ur), "Cashing")
  ' Définir la feuille
  Set ShtSI = ThisWorkbook.Worksheets("sale invoice")
  ' Dernière ligne de la feuille
  Ur1 = ShtSI.Range("B" & Rows.Count).End(xlUp).Row
  ' Quantité de l'article dans Sale iovoice
  Qt2 = Application.WorksheetFunction.SumIfs(ShtSI.Range("F2:F" & Ur1), ShtSI.Range("B2:B" & Ur1), Me.TextBox1.Value, _
   ShtSI.Range("R2:R" & Ur1), Me.ComboBox2.Value, ShtSI.Range("S2:S" & Ur1), "sale invoice")
  ' Inscrire la différence
  Me.TextBox14.Value = Qt1 - Qt2
  '
  Set ShtSI = Nothing: Set ShtC = Nothing
End Sub

Bonjour BrunoM45

Merci beaucoup, c'est ce que je veux vraiment 😍😍😍

Je suis très content, ce code m'a tellement épuisé, et je n'ai pas trouvé de solution pour ça Avec votre aide, rien n'est impossible Tu es vraiment génial

Re