posts

Les UserForms sont des boîtes de dialogue personnalisées. Elles reposent sur l’utilisation de l’objet UserForm. Cette section va vous montrer comment les utiliser pour créer des interfaces utilisateur adaptées à vos projets pour afficher mais aussi saisir des données.

Définition d’une UserForm

Pour définir une UserForm dans le projet en cours, rendez-vous dans la fenêtre Microsoft Visual Basic pour Applications et lancez la commande UserForm dans le menu Insertion. Un objet UserForm est alors ajouté dans la fenêtre Projet, sous Feuilles (1) et la boîte de dialogue personnalisée apparaît dans l’interface (2) :

Personnalisation de la boîte de dialogue personnalisée

Vous pouvez librement redimensionner votre boîte de dialogue personnalisée en agissant sur ses poignées de redimensionnement. Pour l’afficher en mode exécution, appuyez simplement sur la touche de fonction F5 ou lancez la commande Exécuter Sub/UserForm dans le menu Exécution :

Les propriétés de la boîte de dialogue personnalisée sont regroupées dans la fenêtre Propriétés, dans l’angle inférieur gauche de la fenêtre Microsoft Visual Basic pour Applications. Il suffit de les modifier pour changer l’allure de votre UserForm :

Toutes ces propriétés sont faciles à comprendre. Personnellement, j’utilise essentiellement les propriétés suivantes :

Si vous insérez une image d’arrière-plan dans un UserForm et que vous changez d’avis, vous vous demandez peut-être comment la supprimer. Eh bien, il suffit de sélectionner la valeur de la propriété Picture dans la fenêtre Propriétés et d’appuyer sur la touche Suppr du clavier :

Vous pourriez également choisir de supprimer l’image d’arrière-plan à l’exécution de la boîte de dialogue personnalisée (même si la suppression de l’image dans les propriétés de votre UserForm semble plus « propre »). Pour cela, insérez la commande suivante dans la procédure UserForm_Activate() :

UserForm1.Picture = LoadPicture()

Dans les articles à venir, nous allons passer en revue les différents contrôles utilisables dans une boîte de dialogue personnalisée et montrer comment y accéder à l’aide d’instructions VBA.

Avant tout, commencez par afficher la boîte à outils avec la commande Boîte à outils dans le menu Affichage :

Remarque

Si la commande Boîte à outils est grisée dans le menu Affichage, c’est certainement parce que vous êtes en mode d’affichage Code et non Objet. Appuyez simultanément sur les touches Maj et F7 ou lancez la commande Objet dans le menu Affichage. La commande Boîte à outils devrait maintenant être accessible dans le menu Affichage.

De très nombreuses fonctions sont accessibles dans Excel. Ces fonctions peuvent parfois rendre de grands services en VBA et éviter la saisie de nombreuses instructions. Les fonctions d’Excel sont accessibles via l’objet WorksheetFunction.

Voici quelques exemples d’utilisation.

Min, Max et Average

Supposons que vous recherchiez les valeurs minimales et maximales d’une plage de cellules et que vous vouliez calculer la moyenne des valeurs de la plage. Pour cela, vous pouvez utiliser les fonctions Min(), Max() et Average() d’Excel.

Nous allons partir de cette feuille de calcul. La plage examinée sera A1:B5 :

Voici le code utilisé :

Dim minimum, maximum As Integer

Dim moyenne As Single

Set plage = Worksheets("Feuil1").Range("A1:B5")

minimum = Application.WorksheetFunction.min(plage)

maximum = Application.WorksheetFunction.max(plage)

moyenne = WorksheetFunction.Average(plage)

MsgBox "Valeur minimale : " & minimum

MsgBox "Valeur maximale : " & maximum

MsgBox "Moyenne : " & moyenne

Et voici le résultat :

Nombre de cellules supérieures à 20

Toujours à partir de la même feuille de calcul, calcul du nombre de cellules de la plage A1:B5 dont la valeur est supérieure à 20 :

Dim grand As Integer

grand = WorksheetFunction.CountIf(Range("A1:B5"), ">20")

MsgBox "Nombre de cellules supérieures à 20 : " & grand

Voici le résultat :