Un splash screen, c’est un message qui apparaît automatiquement à l’ouverture d’un classeur puis – tous aussi automatiquement – disparaît ensuite après quelques secondes.
Supposons que nous souhaitions afficher le message ci-dessous à l’ouverture d’un classeur, et ce pendant trois secondes. Pour cela, il faut d’abord insérer une UserForm en VBA, puis créer la zone de texte voulue (le message en bleu ci-dessous).
Il ne reste plus qu’à ajouter une macro liée à ThisWorkbook :
Private Sub Workbook_Open()
UserForm1.Show
End Sub
… à créer une macro (cf. image ci-dessus) associée à l’événement Initialize de la UserForm …
… et enfin à créer un module dans lequel on loge la macro suivante :
Sub Fermer()
Unload UserForm1
End Sub
Supposons que nous souhaitions afficher le message ci-dessous à l’ouverture d’un classeur, et ce pendant trois secondes. Pour cela, il faut d’abord insérer une UserForm en VBA, puis créer la zone de texte voulue (le message en bleu ci-dessous).
Il ne reste plus qu’à ajouter une macro liée à ThisWorkbook :Private Sub Workbook_Open()
UserForm1.Show
End Sub
… à créer une macro (cf. image ci-dessus) associée à l’événement Initialize de la UserForm …
… et enfin à créer un module dans lequel on loge la macro suivante :
Sub Fermer()
Unload UserForm1
End Sub
Super! merci
RépondreSupprimerune petite série d'instructions qui permet de se passer du "MsgBox".
Certes, mais au prix quand même de créer un dialogue. C'est plus lourd que le MsgBox, mais on peut en revanche mieux le personnaliser (police, taille, couleur...).
RépondreSupprimer