Bonjour ,
Pour finaliser une appli VBA de rangement de fichiers Mails , je cherche à permettre de temporiser l'affichage d'une UF , indiquant clairement l’étape en cours. (Un MsgBox améliorée...)
Je ne parviens pas à faire fonctionner ma UF :
fm_MsgBoxTemp
Elle est appelée depuis une sub :
Sub AffMess_1(Msg, Col, AffTerm)
fm_MsgBoxTemp.Label1.BackColor = Col
fm_MsgBoxTemp.BackColor = Col
fm_MsgBoxTemp.Label1.Caption = Msg
fm_MsgBoxTemp.Show
Dans la UF :
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:04")
Unload fm_MsgBoxTemp
End sub
Private Sub UserForm_Terminate()
AffTerm = 1
End Sub
L'affichage de l'UF se produit bien mais bloque (en auto comme en pas a pas) au moment de l'activation , avec message erreur 438 : "Propriété ou méthode non géré par cet objet"
Que faire ?
Cdlt.
max60
Pour finaliser une appli VBA de rangement de fichiers Mails , je cherche à permettre de temporiser l'affichage d'une UF , indiquant clairement l’étape en cours. (Un MsgBox améliorée...)
Je ne parviens pas à faire fonctionner ma UF :
fm_MsgBoxTemp
Elle est appelée depuis une sub :
Sub AffMess_1(Msg, Col, AffTerm)
fm_MsgBoxTemp.Label1.BackColor = Col
fm_MsgBoxTemp.BackColor = Col
fm_MsgBoxTemp.Label1.Caption = Msg
fm_MsgBoxTemp.Show
Dans la UF :
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:04")
Unload fm_MsgBoxTemp
End sub
Private Sub UserForm_Terminate()
AffTerm = 1
End Sub
L'affichage de l'UF se produit bien mais bloque (en auto comme en pas a pas) au moment de l'activation , avec message erreur 438 : "Propriété ou méthode non géré par cet objet"
Que faire ?
Cdlt.
max60