Instancier un Label sur un Module [VBA]

Fermé
commentcamarcheeay Messages postés 666 Date d'inscription mercredi 24 février 2010 Statut Membre Dernière intervention 30 mars 2020 - Modifié par commentcamarcheeay le 4/05/2010 à 11:19
commentcamarcheeay Messages postés 666 Date d'inscription mercredi 24 février 2010 Statut Membre Dernière intervention 30 mars 2020 - 4 mai 2010 à 13:11
Bonjour les internautes,

Sur Excel-VBA j'ai créé un UserForm "frmCreateFile" qui contient un Label "lblRead".
Sur le module "Module1" j'ai écrit la macro suivante :


Sub readFile(myFile As String)
Dim lblRendu As Label
Set lblRendu = frmCreateFile.lblRead
lblRendu.Print "test1"
End Sub

La ligne en gras là-haut déclenche le débogage signalant une incompatibilité de type. J'ai compris que j'ai mal instancié mon label. Et j'ai besoin de l'appeler de cette façon parce qu'il y a des codes que j'ai à développer par la suite et qui doivent être programmer de cette manière.
Quelqu'un aurait une explication au problème ou une solution alternative pour instancier un objet d'un UserForm sur un module?

Merci d'avance!


1 réponse

commentcamarcheeay Messages postés 666 Date d'inscription mercredi 24 février 2010 Statut Membre Dernière intervention 30 mars 2020 86
4 mai 2010 à 13:11
Bonjour,

J'ai trouvé une solution qui fonctionne pas mal :
Dim lblRendu As MSForms.Label
Set lblRendu = frmCreateFile.lblRead
lblRendu.Caption = "test1"
End Sub

Cordialement!
0