Instancier un Label sur un Module [VBA]

commentcamarcheeay Messages postés 667 Date d'inscription   Statut Membre Dernière intervention   -  
commentcamarcheeay Messages postés 667 Date d'inscription   Statut Membre Dernière intervention   -
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 667 Date d'inscription   Statut Membre Dernière intervention   86
 
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