Renvoi valeur label.captionen fonction de la valeur d'un textBox sur un meme Userform

admin59 · 3 Mars 2019

Bonjour à tous,

Je bute sur un problème qui vous paraitra certainement facile.
J'ai tant bien que mal mis en place une petite gestion de stock.
J'ai un Userform qui me sert à effectuer entrées et sorties avec archivage des mouvements ( Userform2).
En fonction de la valeur renseignée ( numéro ID d'un produit, voire TextBox1, j'aimerai que le label6 de ce Userform2 renvoi au libellé correspondant.

Je n'arrive pas à associer le textBox et le label 6

Auriez vous une piste.

Dans l'attente de votre retour,

Bien cordialement.

Ci joint fichier en pièce jointe

Dranreb · 3 Mars 2019

Bonjour.
Essayez comme ça :

VB:

Private Sub TextBox1_Change()
   Label6.Caption = ""
   On Error Resume Next
   Label6.Caption = Worksheets("Stock").Cells(CLng(TextBox1.Text) + 1, "B").Value
   End Sub

admin59 · 3 Mars 2019

Dranreb à dit:
Private Sub TextBox1_Change() Label6.Caption = "" On Error Resume Next Label6.Caption = Worksheets("Stock").Cells(CLng(TextBox1.Text) + 1, "B").Value End Sub

admin59 · 3 Mars 2019

Bonjour,

Cela fonctionne très bien.
Cela parait si simple......

En tous cas, un grand merci pour votre aide et je vous souhaite une bonne fin de semaine

Cordialement

Renvoi valeur label.captionen fonction de la valeur d'un textBox sur un meme Userform

admin59

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

admin59

XLDnaute Nouveau

admin59

XLDnaute Nouveau

Discussions similaires