XL 2016 Afficher msgbox en avant plan de userform

_Thierry à dit:

Bonsoir @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

Cliquez pour agrandir...

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

VIARD à dit:

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

Cliquez pour agrandir...