Comment assigner la valeur d'une cellule au label d'un UserForm?

Bonjour,

Tout est dans le titre.

Pour l'exemple:

Ce code n'est-il pas correct?

Code:

---

1 2 3 4 5

Private Sub UserForm1_Initialize()   Me.Label1.Caption = Sheets("Feuil1").Range("A1").Value   End Sub

---

j'ouvre mon UserForme avec un bouton sur ma feuil1:

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click()   UserForm1.Show   End Sub

---

Mais mon label1 est vide...

Où est l'erreur?

Bonjour As, bonjour le forum,

Non ce n'est pas correct ! La procédure d'initialisation d'une UserForm se fait, quel qu'en soit son nom par :

Code:

---

1 2	Private Sub UserForm_Initialize() End Sub

---

et toi, tu a mis le nom :

Code:

---

1 2 3

Private Sub UserForm1_Initialize() Me.Label1.Caption = Sheets("Feuil1").Range("A1").Value End Sub

---

Donc l'initialisation ne se fait pas... Enlève le 1 et tu verras comme tout ira mieux...

Bonjour,

et bien vu Robert ! :plusser:

:oops: merci...

ça marche beaucoup mieux....

On oublie tout et on recommence à zéro? :mouarf:

(Quelle truffe)

++