Récupérer la valeur d'une cellule dans une textbox

Bonjour à tous,

Pouvez-vous m'aider résoudre mon problème qui est le suivant :

J'ai créer un userform avec trois textbox, et je souhaite que lorsque la valeur de ma première textbox est égale à celle
de ma cellule A1, il soit afficher la valeur de la cellule B1 dans la textbox2 sans que j'ai a entrer quoi que ce soit dans cette
textbox2 manuellement. j'ai essayer la fonction find ça n'as pas marcher j'ai donc essayer ce codage :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize()   If TextBox1.Value = shest("Stock du Mois").Range("B2") Then TextBox2 = Sheets("Stock du Mois").Range("A1") End If   End Sub

---

sa ne marche toujours pas, même lorsque je le met en userform_activate().

Pouvez-vous me dire ou est mon erreur et m'aider a coorriger et comprendre s'il vous plait.
Je vous remercie d'avance.

bonjour,

Pour lier un textbox à une cellule en initialisation il est facile de remplir la propriété "Rowsource" et vous pouvez ainsi être en interaction comme dans un formulaire
Pièce jointe 201635

ce qui donne :

Pièce jointe 201636

C'est aussi possible de réaffecter le "rowsource" dans le code

Bonne journée

Geogeo

Bonjour geogeo,

Merci pour votre reponse. comme vous pouvez le voir dans la capture ecran de mon tableau Pièce jointe 201644

lorsque une des valeurs se trouvant dans la colonne B de mon tableau est ecrite dans la textbox1 automatiquement l'a designation correspondant apparaisse dans la textbox2. j'essaie de faire un codage pour chaque ligne pour que lorsque la valeur en B1 par exemple est entrer dans la trextbox1, le fichier aille chercher la valeur de la cellule en A1.

essaie de le mettre en

Code:

---

Private Sub TextBox1_Change()

---

Le Userform_Initialize() c'est quand tu charges le formulaire a priori il est vide au chargement il pourra jamais t'afficher ton truc

bonsoir
Il vaut mieux utiliser un combobox qui cible les valeurs de "Symbole" et un textbox pour les valeurs correspondantes "Désignation".

un exemple de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub ComboBox1_Change() Dim dest As Range   Application.EnableEvents = False Set dest = Range("A2:A6") If ComboBox1.ListIndex = -1 Then TextBox2.Text = "" Else TextBox2.Text = dest.Cells(ComboBox1.ListIndex + 1, 1) 'listindex commence à zéro donc ligne+1 End If Application.EnableEvents = True End Sub   Private Sub UserForm_Initialize() Dim dest As Range     ComboBox1.ListIndex = 0 'initialise à la première ligne Set dest = Range("A2:A6") TextBox2.Text = dest.Cells(ComboBox1.ListIndex + 1, 1) End Sub

---

Pièce jointe 201689

Pièce jointe 201681

Bonne soirée

geogeo