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

[admin59]

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]

Bonjour.
Essayez comme ça :

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

 

[admin59]

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

 

[admin59]

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