Label dans une userform avec texte variable

chrischrisfr Messages postés 2 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 16 juin 2009 - 16 juin 2009 à 01:36
chrischrisfr Messages postés 2 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 16 juin 2009 - 16 juin 2009 à 13:14
Bonsoir,
Je suis nouveau dans le monde de VB et je galère un peu.
Je cherche à remplir un label dans une userform avec un texte qui est sur une autre feuille.
Ma userform se nomme frmreservation et je cherche à remplir le label avec le contenu de la cellule B1 de feuil 1, le code que j'ai emploi est le suivant:

Private Sub Label8_Initialize()
frmreservation.Label8.Caption = Sheets("Feuil1").Range("b1").Text
End Sub

Mais lorsque que je lance la userform, le label s'appelle Label8

Merci d'avance.

2 réponses

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
16 juin 2009 à 10:45
mets le plutot dans l'évenemrnt "Activate" de ta userform
comme ceci
Private Sub UserForm_Activate()
    Label8.Caption = Sheets("Feuil1").Range("b1").Text
End Sub

et fais attention où tu postes le VBA d'excell n'a rien à voir avec le VB.NET

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE
0
chrischrisfr Messages postés 2 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 16 juin 2009
16 juin 2009 à 13:14
Bonjour,
Désolé j'ai pas fait attention où j'ai posté, il était un peu tard.
J'ai trouvé une solution qui fonction:

Private Sub Userform_Initialize()
lblmag.Caption = Sheets("Feuil1").Range("b1").Value
End Sub

Merci pour ta réponse.
0
Rejoignez-nous