La msgbox est conditionnée et lancée à l'ouverture de l'userformBonsoir @KTM , le Forum
Si la Msgbox est lancée depuis le Userform, elle est automatiquement en avant plan de ce UserForm...
Je ne comprends pas la question ?
@+Thierry
UserForm1.Show
Dim c As Range
With Sheets("Grille_de_Dispensation").Range("A1:K" & Sheets("Grille_de_Dispensation").Range("A" & Rows.Count).End(xlUp).Row)
Set c = .Find("", .Cells(.Rows.Count, .Columns.Count), xlFormulas)
If Not c Is Nothing Then MsgBox " Le Patient Code " & .Range("A" & c.Row) & Chr(13) & Chr(10) & "N°" & .Range("M" & c.Row) & _
" a des informations manquantes !" & Chr(13) & Chr(10) & " Veuillez Rechercher et corriger", 64
End With
Sub Popup()
CreateObject("wscript.shell").Popup "N'oubliez pas -->" & Chr(10) & _
"Nécessite d'activer la référence" & Chr(10) & _
"Ce message restera quelque seconde affiché" & chr(10) & _
"Visual Basic For Application Extensibility 5.3", 3, "ToTo"
End Sub
Merci à tous pour les contributions.Bonjour à tous
et pourquoi pas un message temporaire, déclenché avant l'apparition de User.
VB:Sub Popup() CreateObject("wscript.shell").Popup "N'oubliez pas -->" & Chr(10) & _ "Nécessite d'activer la référence" & Chr(10) & _ "Ce message restera quelque seconde affiché" & chr(10) & _ "Visual Basic For Application Extensibility 5.3", 3, "ToTo" End Sub
A+ Jean-Paul