Contenu récent par Mody200

S'il vous plaît, aidez-vous d'experts VBA En résolvant mon problème

Merci pour les précisions crocrocro je veux une macro Quand je déduis la quantité de Feuil8(Inventaire) Si nous supposons que le code article est dans la cellule A4 SM004.0032 Le magasin dans la cellule L4 est OA01 La quantité est dans la cellule D4 Elle a 20 ans Lors de l'ajout du montant...

Bonjour Il n'est pas possible de déduire la quantité produite pour l'entrepôt d'où elle est sortie Quel est le problème avec ce code ?

mais je voulais que ça marche dans la list box, et c'est ce qu'il faut Bonjour, J'ai une feuille complexe contenant des centaines de données contenant des produits expirés Je dois également fournir une liste de produits qui expireront tous les 3, 6 ou 12 mois (période de deux ans). J'ai...

Merci, ça marche, mais je voulais que ça marche dans la list box, et c'est ce qu'il faut

Bonjour, J'ai une feuille complexe contenant des centaines de données contenant des produits expirés Je dois également fournir une liste de produits qui expireront tous les 3, 6 ou 12 mois (période de deux ans). J'ai configuré le formulaire utilisateur, mais je n'arrive pas à obtenir le code...

Merci beaucoup, j'ai beaucoup profité de vous

Bonsoir.Dranreb Merci, c'est ce qui est requis Mais quel est le problème avec le code du mod ? C'est censé être une fonction qui convertit une valeur en entier

Dim QtTot As Double, Unit As Double, Cartons As Long TextBox7.Value = Val(TextBox4.Value) + Int(Val(TextBox5.Value) / CSng(TextBox3.Value)) Unit = Val(TextBox3.Text) QtTot = Val(TextBox4.Text) * Unit + Val(TextBox5.Text) Cartons = Int(QtTot / Unit) TextBox8.Text = Cartons...

Bonjour S'il vous plaît aidez-moi J'ai quelques articles en stock en cartons et en pièces Lorsque je convertis des valeurs en entiers, le code fonctionne pour moi si la valeur est positive, mais lorsqu'il appelle d'autres classes et qu'elles sont négatives, cela ne fonctionne pas pour moi. Au...

Y a-t-il quelqu'un ici ? Le problème n'est pas résolu. Il y a deux codes différents et le processus n'a pas abouti. J'ai joint le fichier

Ce code ne fonctionne pas non plus. Y a-t-il quelqu'un qui peut m'aider ?

For a = 1 To Me.ListBox1.ListCount - 1 Me.ListBox1.List (ListBox1.ListCount 1, 8) Val (Me.ListBox1.List (a - 1, 8)) + Val (Me.ListBox1.List (a, 6)) Val (Me.ListBox1.List (a, 7)) Next a Next i Me.ListBox1.Selected (0) =True End Sub

sumproduct dernière colonne Jusqu'à ce que le solde augmente