Ci-dessous, nous examinerons un programme en Excel VBA qui crée un Userform qui convertit tout montant d'un devise dans un autre.
Le formulaire utilisateur que nous allons créer se présente comme suit :
le test dans une fonction if doit être évalué à vrai ou à faux.
Pour créer ce formulaire utilisateur, exécutez les étapes suivantes.
1. Ouvrez le Éditeur Visual Basic . Si l'Explorateur de projets n'est pas visible, cliquez sur Affichage, Explorateur de projets.
2. Cliquez sur Insérer, Formulaire utilisateur. Si la boîte à outils n'apparaît pas automatiquement, cliquez sur Affichage, Boîte à outils. Votre écran doit être configuré comme ci-dessous.
3. Ajoutez les étiquettes, les zones de liste (première à gauche, la seconde à droite), les zones de texte (première à gauche, la seconde à droite) et le bouton de commande. Une fois cette opération terminée, le résultat doit être cohérent avec l'image du formulaire utilisateur présentée précédemment. Par exemple, créez un contrôle de zone de liste en cliquant sur ListBox dans la boîte à outils. Ensuite, vous pouvez faire glisser une zone de liste sur le formulaire utilisateur.
4. Vous pouvez modifier les noms et les légendes des champs. Les noms sont utilisés dans le code Excel VBA. Les légendes sont celles qui apparaissent sur votre écran. C'est une bonne pratique de changer les noms des contrôles, mais ce n'est pas nécessaire ici car nous n'avons que quelques contrôles dans cet exemple. Pour modifier la légende du formulaire utilisateur, le bouton de commande et les étiquettes, cliquez sur Affichage, Fenêtre Propriétés et cliquez sur chaque contrôle.
5. Pour afficher le formulaire utilisateur, placez un bouton de commande sur votre feuille de calcul et ajoutez la ligne de code suivante :
Privé SousCommandButton1_Click()UserForm1.Show
Finir Sous
Nous allons maintenant créer le Sub UserForm_Initialize. Lorsque vous utilisez la méthode Show pour le Userform, ce sous-programme sera automatiquement exécuté.
6. Ouvrez le Éditeur Visual Basic .
7. Dans l'Explorateur de projets, cliquez avec le bouton droit sur UserForm1 et puis cliquez sur Afficher le code.
comment totaliser une colonne dans Excel
8. Choisissez Userform dans la liste déroulante de gauche. Choisissez Initialiser dans la liste déroulante de droite.
9. Ajoutez les lignes de code suivantes :
Privé SousUserForm_Initialize()AvecListBox1
.AddItem 'Euro'
.AddItem 'US Dollar'
.AddItem 'Livre britannique'
Finir Avec
AvecListBox2
.AddItem 'Euro'
.AddItem 'US Dollar'
.AddItem 'Livre britannique'
Finir Avec
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Value = 1
TextBox2.Value = 0.722152
Finir Sous
Explication : dans un premier temps, les deux list box sont remplies. Ensuite, la devise dollar américain est définie par défaut dans la première zone de liste et la devise EURO est définie par défaut dans la deuxième zone de liste. Enfin, la valeur 1 est saisie dans la première zone de texte et la valeur 0,722152 est saisie dans la deuxième zone de texte.
Nous avons maintenant créé la première partie du Userform. Bien que cela ait déjà l'air soigné, rien ne se passera encore lorsque nous cliquerons sur le bouton Go.
10. Dans l'Explorateur de projets, double-cliquez sur UserForm1.
11. Double-cliquez sur le bouton Aller.
comment créer une nouvelle règle de mise en forme conditionnelle dans Excel
12. Ajoutez les lignes de code suivantes :
Privé SousCommandButton1_Click()Rientarifs(0ÀvingtÀ2)Comme Double, jeComme Entier, jComme Entier
taux (0, 0) = 1
taux (0, 1) = 1,38475
taux (0, 2) = 0,87452
taux (1, 0) = 0,722152
taux (1, 1) = 1
taux (1, 2) = 0,63161
taux (2, 0) = 1,143484
taux(2, 1) = 1.583255
taux(2, 2) = 1
Pourje = 0À2
Pourj = 0À2
SiListBox1.ListIndex = iEtListBox2.ListIndex = jPuisTextBox2.Value = TextBox1.Value * taux(i, j)
Prochainj
Prochainje
Finir Sous
Explication : tout d'abord, nous déclarons un tableau. Le tableau a deux dimensions. Il se compose de 3 lignes et 3 colonnes. Ensuite, nous initialisons chaque élément du tableau. Par exemple, rates(1,0) est le taux de change du dollar américain à l'euro. Ensuite, nous commençons une double boucle. Selon les devises sélectionnées dans les zones de liste, Excel VBA convertit le montant entré dans la première zone de texte et affiche le résultat dans la deuxième zone de texte.
Exemple : si i = 2 et j = 1 et que nous entrons la valeur 2 dans la première zone de texte, Excel VBA place la valeur 2 * rates(2,1) = 2 * 1.583255 = 3.16651 dans la deuxième zone de texte.
13. Testez le formulaire utilisateur.
Résultat:
Aller au chapitre suivant : Varier
