Stock entre et sortie ?

[WDAndCo]

Bonjour le Forum

Voila mon problème lors d'entrée ou de sortie dans ma base de matériels je n'arrive pas modifier dans la base le nombre d'unité. Voir le Fichier joint.

C'est dans menu - Saisie - Mouvement que cela ce passe !

Je récupère les infos en ligne 1 sur la droite du tableau (Car je ne sais pas le faire en VBA), certaines boite sont bloquées, elles ne sont la que pour infos.
Voila ce que j'aimerais faire avec votre aide :
Stock actuel visible mais non modifiable
Entre + attends une valeur
Sortie - attends une valeur
Stock MAJ = Stock actuel + (Entre +) - (Sortie -) visible mais non modifiable si ce n'est que par entre + ou/et sortie -
Et une fois valider cela change la valeur du stock dans le tableau a la bonne ligne !

D'avance merci et bon dimanche a tous.

[WDAndCo]

Bonsoir le Forum

Tout le monde n'est pas déjà en wacance quand même !


Une bonne soirée aux autres !

[Excel-lent]

Slt WDAndCo,

J'ai regardé ton fichier la nuit dernière, il est vraiment très complexe!

Peux-tu nous indiquer où se trouve la macro qui pose problème? Qu'elle est son nom?

A bientôt

PS. : non tu n'es pas seul

[jeanpierre]

Bonsoir WDAndCo, et pour rire un peu......

Si, tout le monde est en Wacances, des légales, des administratives (3 mois au moins)....

J'ai peur de me faire encore quelques amis à l'éducation nationale.......

Mais c'est pas trop grave.

A te lire, j'espère que ton stock (liquide) est conséquent pour la patience.... mais comme l'été aussi ne touche pas trop à l'évaporation cette année..... tout est permis....

Allez patience.....

Bonne soirée, c'était pour rire.

Jean-Pierre

[ChTi160]

Salut Dominique
Bonsoir le Fil

arff je croyais avoir fait un truc, qui correspondait à ce que tu demandes Lol
voilà ce que j'ai modifé dans la procèdure

Private Sub CommandButton1_Click()
 Dim lign As Integer
Application.Calculation = xlCalculationManual

With UserForm3
                    lign = .ComboBox1.ListIndex
   If .TextBox2 = "" And .TextBox3 = "" Then Exit Sub
   If .TextBox2 <> "" And .TextBox3 <> "" Then Exit Sub
If IsNumeric(.TextBox2) Then .TextBox5.Value = CInt(.TextBox5) + CInt(.TextBox2): _
 .TextBox2 = "": Worksheets("Base").Cells(2 + lign, 3) = CInt(.TextBox5)
If IsNumeric(.TextBox3) Then .TextBox5.Value = CInt(.TextBox5) - CInt(.TextBox3): _
 .TextBox3 = "": Worksheets("Base").Cells(2 + lign, 3) = CInt(.TextBox5)
  End With
Application.Calculation = xlCalculationAutomatic
End Sub

cela ajoute ou enlève la valeur entrée dans + ou - dans la cellule de la colonne 3 à la ligne choisie
et entre le résultat sans possibilité de le modifier dans le TextBox Stock Actuel
je n'ai pas compris à quoi correspond le TextBox Stock mis à jour .

Je n'ai peut être pas compris la demande
si c'est le cas dis le moi , enfin tu m'expliques lol
Bonne fin de Soirée

[WDAndCo]

Bonsoir le Forum, Excel-lent, JeanPierre et Jean Marie

Jean-Marie comme dab pile poil, pour le TextBox Stock mis à jour il ne peut ce mettre a jour car Application.Calculation = xlCalculationManual donc tu laisses tomber.
Par contre une petite requete : il est possible d'avoir des stocks < a 0, il est possible de faire un moins 2 ou il y a 1 en stock !

Une bonne nuit a vous tous !

Je prépare ma nouvelle question pour demain.

Dominique

[Excel-lent]

Envoyé par WDAndCo

il est possible d'avoir des stocks < a 0

J'espère que ton expert comptable est en vacance et n'a pas vu ton post

[WDAndCo]

Bonsoir le Forum !

Voila les modifs que j'ai fait pour éviter d'avoir un stock > à 0

Private Sub CommandButton1_Click()
Application.Calculation = xlCalculationAutomatic
Range("M1") = ComboBox1.Value ' N° du Lot
TextBox4 = Range("R1") 'Libellés
TextBox5 = Range("P1") 'Nombre d'unités
Dim lign As Integer
Application.Calculation = xlCalculationManual
With UserForm3
TextBox5 = Range("P1")
TextBox6.Visible = True
lign = .ComboBox1.ListIndex
If IsNumeric(.TextBox2) Then .TextBox6.Value = CInt(.TextBox5) + CInt(.TextBox2)
If IsNumeric(.TextBox3) Then .TextBox6.Value = CInt(.TextBox5) - CInt(.TextBox3)
If .TextBox2 = "" And .TextBox3 = "" Then Exit Sub
If .TextBox2 <> "" And .TextBox3 <> "" Then Exit Sub
If .TextBox3 > .TextBox5 Then MsgBox "Impossible !", , "Message BASE"
If .TextBox3 > .TextBox5 Then Exit Sub
If IsNumeric(.TextBox2) Then .TextBox5.Value = CInt(.TextBox5) + CInt(.TextBox2): _
.TextBox2 = "": Worksheets("Base").Cells(2 + lign, 3) = CInt(.TextBox5)
If IsNumeric(.TextBox3) Then .TextBox5.Value = CInt(.TextBox5) - CInt(.TextBox3): _
.TextBox3 = "": Worksheets("Base").Cells(2 + lign, 3) = CInt(.TextBox5)
End With
Application.Calculation = xlCalculationAutomatic
UserForm3.Hide
End Sub

Mais j'ai encore du mal a mettre a jour les boites comme la TextBox4 lors du changement de la ComboBox1 et la TextBox6 qui est le nombre d’unité si le mouvement est validé en + et ou en – comment le mettre a jour lorsque TextBox2 ou TextBox3 change de valeur ?

"J'ai regardé ton fichier la nuit dernière, il est vraiment très complexe!" j'ai du faire des trucs pour récupérer des infos ce qui complique la feuille, je suis sur que cela dois pouvoir ce faire par VBA mais je ne sais pas faire !

Une bonne soirée a vous.
Et a votre bien bonne santé !

[WDAndCo]

Bonsoir le Forum

J'ai bricolé le fichier, j'ai ajouté des boutons et voila cela ne marche plus !
sa se passe dans le menu modification.

Donc si on est en mouvement les Plus ou les Moins ne marche plus ! Ils devrais s'ajouter ou s'ôter du Stock actuel.
Et si on est en inventaire La mise a jour du Stock devrait remplacer le stock actuel.

Et c'est deux code ne marche pas ou plus ! Plus moyen de remplir les boites. donc encore moins de remplir le tableau. Le Fichier est la.

Merci d'avance a tous.


Dominique

[ChTi160]

Salut Dominique

arff la bidouille lol
je suis moi même avec un Chti d'Avion qui est venu me préter la main pour finir de monter une cheminée lol moi j'ai le vertige Lol
donc je n'ai pas trop le temp ,mais j'y regarde et te posse quelques questions dès que possible.
Bonne journée

[WDAndCo]

Bonsoir le Forum

Alors pas d'idées, j'ai vraiment trop BRICOLER le fichier ?


A plus