message dans le userform a l ouverture

[ktran]

hello,

a l ouverture du userform, je souhaite qu un message s affiche., jai cree le Label et coder ci bas :

Dim Label2 As String
Sub InitializeUSF1()
frm_input.Repaint
End Sub
Sub button1_click()
frm_input.Show
Label2.Caption = "Process in progress"
End Sub
Private Sub UserForm_Initialize()
InitializeUSF1
End Sub

cependant, j ai un message d erreur

 

[soenda]

Re : message dans le userform a l ouverture

Bonsoir le fil, ktran

Au vu de la pièce jointe, je me dis dis que tu as peut-être écrit par inattention, "Labe12" au lieu de "Label2".

A plus

 

[ktran]

Re : message dans le userform a l ouverture

j ai verifie et j ai bien ecrit Label2, toujours le meme message d erreur

 

[Staple1600]

Re : message dans le userform a l ouverture

Bonjour

Avec un seul Userform

Private Sub UserForm_Initialize()
Me.Label2.Caption = "Process in progress"
End Sub

Avec 2 userforms
Userform1

Private Sub CommandButton1_Click()
frm_input.Show
End Sub

frm.input

Private Sub UserForm_Initialize()
InitializeUSF1
frm_input.Label2.Caption = "Process in progress"
End Sub

Sub InitializeUSF1()
frm_input.Repaint
End Sub

Cela fonctionne

Mais est-ce le résultat souhaité ?​

 

[ktran]

Re : message dans le userform a l ouverture

super cela fonctionne, merci Staple 1600