Discussion :

[As.Plate]

Bonjour,

Tout est dans le titre.

Pour l'exemple:

Ce code n'est-il pas correct?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
 
UserForm1.Show
 
End Sub

Mais mon label1 est vide...

Où est l'erreur?

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub UserForm_Initialize()
End Sub

et toi, tu a mis le nom :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Marc-L]

Bonjour,

et bien vu Robert !

[As.Plate]

merci...

ça marche beaucoup mieux....

On oublie tout et on recommence à zéro?

(Quelle truffe)

++