Dans cet article, vous apprendrez à créer un écran de démarrage.

Avec l’écran de démarrage apparaît lorsque vous ouvrez le fichier Excel impressionnera le spectateur.

Nous devons suivre les étapes ci-dessous pour lancer l’éditeur VB Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

img1

Cliquez sur Insérer puis UserForm

img2

Le formulaire utilisateur s’ouvrira à partir de la boîte à outils; sélectionnez Label & draw dans le Userform

img3

img4

Renommez la zone d’étiquette en «Mon écran de démarrage»

img5

Pour augmenter la taille de la police Cliquez sur la case Étiquette et faites un clic droit sélectionnez Propriétés

img6

Depuis la fenêtre Propriétés; sélectionnez Police et cliquez sur trois points

img7

La boîte de dialogue Police s’ouvrira

img8

Sélectionnez la police comme vous le souhaitez et augmentez la taille à environ 20 pour l’agrandir

img9

L’étape suivante consiste à insérer l’image à partir de la boîte à outils, sélectionnez l’image et dessinez un peu plus grand

img10

img11

Faites un clic droit sur l’image et sélectionnez Propriétés Cliquez sur trois points dans le menu Image dans Propriétés

img12

Sélectionnez le chemin où l’image est enregistrée

img13

Voici à quoi ressemble le formulaire utilisateur

img14

Double-cliquez sur ThisWorkbook dans le volet Projet

img15

Entrez le codage suivant

Sous-classeur privé_Open ()

UserForm1.Show

End Sub

img16

Pour initialiser le formulaire utilisateur; double-cliquez sur le formulaire utilisateur autre que l’étiquette ou l’image Le codage suivant apparaîtra

===

Sous-utilisateur privé UserForm_Click ()

===

End Sub

img17

Remplacez le code ci-dessus par le code suivant

Sous-utilisateur privé UserForm_Activate ()

Application.OnTime Now + TimeValue (« 00:00:05 »), « Quitter le formulaire »

End Sub

img18

Maintenant, nous devons ajouter du code à Quitform que nous avons attribué à Userform pour être activé après 5 secondes.

Cliquez sur Insérer puis Module

img19

Cela créera un nouveau module.

Entrez le code suivant dans le module

Sous Quitform ()

Décharger UserForm1

End Sub

===

img20

Enregistrez le fichier, puis ouvrez-le.

img21

De cette façon, nous pouvons créer un écran de démarrage dans Excel.