Afficher une cellule d'un classeur dans une TextBox d'un UserForm

Bonsoir à tous,
ma question est assez simple pour vous mais un vrai casse tête pour moi.
je viens de faire un userform avec deux textbox. j'arrive à le faire apparaitre en cliquant sur un bouton mais les deux textbox sont vide.Le curseur est dans la textbox1 et il faut appuyer sur n'importe quelle touche pour voir apparaitre la valeur d'une cellule définie et il faut cliquer sur la deuxième text box pour que le curseur y soit et réappuyer sur une touche pour voir apparaitre la valeur de la deuxième cellule.
Est-ce qu'il serait possible de seulement cliquer sur le bouton et que les valeurs apparaissent directement.Pour l'instant j'ai juste mis ces codes-ci.

Code:

---

1 2 3

Sub Bouton1_Clic() UserForm1.Show End Sub

---

(Dans le Classeur1 - Module(code))

Code:

---

1 2 3

Private Sub TextBox1_Change() TextBox1.Text = ThisWorkbook.Sheets("Feuil2").Range("B3").Value End Sub

---

Code:

---

1 2 3

Private Sub TextBox2_Change() TextBox2.Text = ThisWorkbook.Sheets("Feuil2").Range("B2").Value End Sub

---

(Dans le Classeur1 - Userform1(code))

Merci d'avance pour vos conseils éclairés.

Bonjour PPLILH2008,

Désolé mais je n'ai absolument rien compris...
Que souhaites tu afficher dans ta box? Le contenu de plusieurs cellules? Le contenu de plusieurs cellules "mis en forme" (qu'appelles tu mise en forme dans une box?) ?

bonjour HurGeek,

je suis vraiment désolé du manque de limpidité de mon premier message. De plus j'ai complètement changé d'optique. J'ai modifié mon massage de départ et là je crois que c'est plus claire.

Merci de ta réponce

bonjour PPLILH2008 HurGeek le forum. le code il faut le mettre dans initialise de l'user ou dans activate

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() TextBox1 = Sheets("Feuil2").Range("B3") TextBox2 = Sheets("Feuil2").Range("B2") End Sub

---

Bonjour laetitia

Merci beaucoup c'est exactement ce qu'il me fallait.