A voir également:
- Vba msgbox yes no
- Msgbox yes no - Meilleures réponses
- Msgbox vb yes no - Meilleures réponses
- MsgBox Yes No question - Forum - Visual Basic
- Excel vba msgbox yes no - Conseils pratiques - Visual Basic / VB.NET
- MsgBox "" ,vbYesNo - Forum - Visual Basic
- Vb net msgbox yes no ✓ - Forum - Visual Basic
- Vba msgbox choix multiple - Guide
4 réponses
Bonjour ,
Possibilité de remplacer MsgBox par Popup avec un timer.
Const TIMEOUT = 10
Set objShell = WScript.CreateObject("WScript.Shell")
Reponse = objShell.Popup(vbCrLf & _
"Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
"ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
"Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
"MsgBox personnalisé",vbYesNo + vbQuestion)
Select Case Reponse
Case vbYes: objShell.Popup "Vous avez cliqué sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
Case vbNo: objShell.Popup "Vous avez cliqué sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
Case -1: Wscript.Quit
End Select
Set objShell = Nothing
jean-marc
Possibilité de remplacer MsgBox par Popup avec un timer.
Const TIMEOUT = 10
Set objShell = WScript.CreateObject("WScript.Shell")
Reponse = objShell.Popup(vbCrLf & _
"Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
"ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
"Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
"MsgBox personnalisé",vbYesNo + vbQuestion)
Select Case Reponse
Case vbYes: objShell.Popup "Vous avez cliqué sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
Case vbNo: objShell.Popup "Vous avez cliqué sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
Case -1: Wscript.Quit
End Select
Set objShell = Nothing
jean-marc
Bonjour
Sinon, essaye de prévoir un comportement par défaut, tu peux utiliser un attribut dont tu définit la valeur pour savoir si la fermeture est automatique ou manuelle.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Sinon, essaye de prévoir un comportement par défaut, tu peux utiliser un attribut dont tu définit la valeur pour savoir si la fermeture est automatique ou manuelle.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)