Aide vba gestion entrée sortie

  • Initiateur de la discussion Initiateur de la discussion Nicolas14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Nicolas14

XLDnaute Nouveau
Bonjour tout le monde

Je possède un userform avec un onglet modification pièces:
dans cette onglet je sélectionne à l'aide de ma combobox mes références de la colonne A
-Une fois sélectionné ma référence, ma description en colonne B apparaît sur un TextBox ainsi que le nombre de pièces en stock sur un autres.

J'ai un textbox entrée pièces relié au textbox pièce en stock
J'ai un textbox sortie pièces relié au textbox pièce en stock
Ma question est comment une fois la valeur du TextBox pièce en stock modifiée l'appliqué dans la ligne prévue

Voici le code de lecture du combobox
Private Sub ComboBox1_Change()

a = ComboBox1.ListIndex + 3
TextBox14 = Sheets("Stock").Range("B" & a)
TextBox11 = Sheets("Stock").Range("F" & a)

11 étant les pièces en stock
 
Bonjour Nicolas
Sans doute comme ceci
a = ComboBox1.ListIndex + 3
Sheets("Stock").Range("B" & a)=TextBox14.Value
Sheets("Stock").Range("F" & a)=TextBox11.Value

si décimales il faut utiliser avant
TextBox14=Replace(TextBox14,".",",")' remplace du point en virgule
Sheets("Stock").Range("B" & a)=cdbl(TextBox14)'en numeric
Bruno
 
Merci mais il faut que ma nouvelle valeur dans le textbox 11 soit remplacer par celle dorigine
Ex:
-Je choisie ma reference par le combobox, dans mon (textbox11 stock pièce) j'ai 10 qui s'affiche.
-Lorsque j'ajoute 10 à mon (textbox 13 entrée pièce) j'ai bien 20 qui s'affiche sur mon textbox 11
Maintenant lorsque je fait valider j'aimerais que la valeur 20 s'affiche dans ma colonne d'origine et non 10
 
Sans fichier dur de comprendre
si textbox11=20 soit le nouveau stock
Voir si F est bien la bonne colonne
a = ComboBox1.ListIndex + 3
Sheets("Stock").Range("F" & a)=TextBox11.Value

sinon tu peux aussi additionner les 10
a = ComboBox1.ListIndex + 3
Sheets("Stock").Range("F" & a)=Sheets("Stock").Range("F" & a)+TextBox14.Value

Bruno
 
Merci beaucoup je me suis débrouillé avec ton code pour la suite, J'aimerais maintenant une derniere chose dans l'onglet Ajout ajouter un textbox stock alerte
Par ex: dans ce textbox j'inscrit 5 en stock alerte j'aimerais faire clignoter la celulle en rouge ( cellule piecè en stock) si elle est inferieur à 5
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
742
Réponses
12
Affichages
430
Retour