A voir également:
- [VB/VBA] commande sendkey
- Invite de commande - Guide
- Commande terminal mac - Guide
- Vb - Télécharger - Langages
- Commande dism - Guide
- Diskpart commande - Guide
3 réponses
bonsoir,
j'ai adapté un code trouvé via google :
tu utilises un popup plutôt qu'un msgbox.
il faut référencer windows script host object model pour que ça marche. (remarque je n'ai pas essayé sans ce référencement)
cordialement
j'ai adapté un code trouvé via google :
Sub Caseàcocher1_QuandClic()
Set wshshell = CreateObject("WScript.Shell")
madurée = 2 '2 secondes
wshshell.Popup "mon message", madurée, "montitre"
End Sub
tu utilises un popup plutôt qu'un msgbox.
il faut référencer windows script host object model pour que ça marche. (remarque je n'ai pas essayé sans ce référencement)
cordialement
ok je vais essayer ca et te remercie bocou
je te tiens au courant
je te tiens au courant
Bonjour antic80,
Au lieu d'une MsgBox, tu peux te faire un petit UserForm (FormPopUp dans l'exemple) contenant seulement un label dans lequel tu écris ce que tu veux.
Tu appelles ce UserForm quand ta case est cochée :
Dans l'Initialise de FormPopUp, tu lances la macro qui va le renvoyer 5 secondes plus tard, avec la commande OnTime qui lance la macro CéFini :
Au lieu d'une MsgBox, tu peux te faire un petit UserForm (FormPopUp dans l'exemple) contenant seulement un label dans lequel tu écris ce que tu veux.
Tu appelles ce UserForm quand ta case est cochée :
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
FormPopUp.Show
End If
End Sub
Dans l'Initialise de FormPopUp, tu lances la macro qui va le renvoyer 5 secondes plus tard, avec la commande OnTime qui lance la macro CéFini :
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "CéFini"
End Sub
Sub Céfini()
Unload FormPopUp
End Sub