Formule excel

[captainejack]

Boujour le Forum
Pouvez vous m'aider à trouver une solution sur une formule excel
J'enregistre les donées par l'intermédiare d'un formulaire
Je joints le fichier
En vous remerciant
Slts
Dan

 

[Compte Supprimé 979]

Re : Formule excel

Salut CaptaineJack,

Pourquoi mettre un "Spinbutton" dans ton USF ?

Sinon les entrée les inscrire en positif, les sorties en négatif
Comme ça ta somme sera bonne

A+

 

[captainejack]

Re : Formule excel

Bonsoir BrunoM45
Le SpinButton sert à visualiser les fiches. Je m'en sert pour revenir sur les fiches pour ajouter des saisies. Le formulaire joint est seulement une partie de celui qui va me servir pour l'enregistrement des saisie, juste pour visualiser le problème
En final, le formulaire regroupe 3 feuilles .
Merci
Slts

Dan

 

[Papou-net]

Re : Formule excel

Bonsoir Dan, Bruno,

Dan,

Quand tu reportes les quantités sur ta feuille, les valeurs sont considérées comme du texte, et de plus, tu effaces les formules dans tes cellules.
Ces formules sont d'ailleurs inutiles si tu modifies ton code comme je te le propose, et tu peux les supprimer :

Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1

With Sheets("Feuil3")
  .Cells(y, 1) = EntréeSortie.Value
  .Cells(y, 2) = CDate(Calendar1)
  .Cells(y, 3) = DésignationArticle
  Select Case EntréeSortie.ListIndex
    Case 0
      .Cells(y, 4) = [COLOR="red"]Quantité.Value[/COLOR]
    Case 1
      .Cells(y, 4) = 0 - [COLOR="red"]Quantité.Value[/COLOR]
  End Select
End With

IniUsf '<---------

End Sub

Espérant t'avoir renseigné.

Cordialement.

 

[captainejack]

Re : Formule excel

Bonjour Papou-net et tout le forum

Merci pour le code . Je l'ai essayé mais il ya un soucis lors de la saisie "sortie". Pour les "entrée", c'est sans problème mais dès que je fais un retour sur ma fiche et que je sélectionne "Sortie" , j'ai une incompabilité de type et cette ligne de code est surlignée: .Cells(x, 4) = 0 - Quantité.Value
Merci pour votre aide
Slts
Dan

 

[Papou-net]

Re : Formule excel

Bonjour Papou-net et tout le forum

Merci pour le code . Je l'ai essayé mais il ya un soucis lors de la saisie "sortie". Pour les "entrée", c'est sans problème mais dès que je fais un retour sur ma fiche et que je sélectionne "Sortie" , j'ai une incompabilité de type et cette ligne de code est surlignée: .Cells(x, 4) = 0 - Quantité.Value
Merci pour votre aide
Slts
Dan

Bonjour Dan,

Ca fonctionne car j'ai testé chez moi.

Essaies en remplaçant .Cells(x, 4) par .Cells(y, 4).

Cordialement

 

[Papou-net]

Re : Formule excel

Je ne t'ai pas transmis ton fichier modifié.

Voici l'oubli réparé.

Cordialement.

 

[captainejack]

Re : Formule excel

Bjr Papou-netIf . Merci

J'ai comparé ton fichier corrigé et le mien.Je n'avait pas cette ligne:If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = "", quand j'ai fait la modif
Donc, je pense que le soucis venait de là. Il me reste plus qu'à mettre la formule pour faire le total...
Je te remercie bien de ton aide en attendant , je découvre le vba et je m"aperçois qu'il me reste beaucoup à apprendre
Cordialement
Dan

 

[Papou-net]

Re : Formule excel

Bjr Papou-netIf . Merci

J'ai comparé ton fichier corrigé et le mien.Je n'avait pas cette ligne:If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = "", quand j'ai fait la modif
Donc, je pense que le soucis venait de là. Il me reste plus qu'à mettre la formule pour faire le total...
Je te remercie bien de ton aide en attendant , je découvre le vba et je m"aperçois qu'il me reste beaucoup à apprendre
Cordialement
Dan

Non, le souci n'était pas dû à cette ligne, mais au fait que tu avais écrit un x au lieu du y comme je te l'ai souligné dans mon message précédent.

J'ai modifié la ligne que tu cites uniquement pour ne pas avoir le signe négatif dans la zone de texte (s'il s'agit d'une sortie) quand tu défiles avec les flèches.

Tu découvres VBA, alors ne te décourage pas, et tu découvriras peu à peu la puissance et la richesse d'Excel. C'est très gratifiant.

Cordialement.

 

[captainejack]

Re : Formule excel

Re bonsoir Papou-Net et le forum

je cherche à présent la formule , qui me donnerai le nombre d'articles dans le stock.
dans la colonne D, quantité, ça me donne le nombre d'article entrée et sortie, et en
E6, je souhaiterai avoir le nombre d'article réel en stock, et là j'avoue que je sèche un peu.Sur 5 articles "entrée", et 3articles "sortie" , donc il doit me rester 2 articles dans le stock
est ce que dans mes codes, il faut que je sépare mes entrée de mes sorties ou peut on le faire ainsi avec une formule à condition?
Encore merci pour votre aide
Slts
Dan

 

[jeanpierre]

Re : Formule excel

Bonsoir captainejack, Papou-net,

En E6 : =SOMMEPROD(($C$6:$C6=C6)*$D$6:$D6)

A tirer vers le bas.

Bonne soirée.

Jean-Pierre

 

[jeanpierre]

Re : Formule excel

Re,

Avec aussi : =SOMME.SI($C$6:C6;C6;$D$6: D6)

Jean-Pierre

 

[captainejack]

Re : Formule excel

Bonsoir JP
Merci pour ton aide
J'ai mis la formule en E6 et tiré vers le bas et voici les résultats et voici le résultat
-1;0;-1;1;0
Sur mon tableau il doit me rester 2 articles sur les 5 enregistrées
Slts
Dan

 

[jeanpierre]

Re : Formule excel

Re,

J'avais cru comprendre que tu voulais le stock en fonction des articles, ce que donnent mes formules.

Dans ton fichier de 20h39 on trouve : -1, 1, -1, 1, -1, cela ne fait pas 2 mais -1

Sinon, si c'est le stock de tous les articles confondus, alors :

=SOMME($D$6: D6) où le résultat sera, là aussi, progressif.

Jean-Pierre

 

[captainejack]

Re : Formule excel

Bsr JP
Je rentre des articles ds le stock par le moyen d'USF. Sur cette USF j'ai un un SpinButton qui me permet de revenir sur les articles pour les sortir du stocK. A L'enregistrement , la veuleur "entrée" dans la colonne A, est remplacé par le statue "Sortie. En quantité , il se met en négatif. Dons mon stock change au fur et mesure que l'etat"entrée ou sortie" change

Slts
Dan