« Macros-commandes VBA/Création de Formulaire » : différence entre les versions

{{remarque|contenu=

La propriété ''Name'' peut aussi s'appliquer sur la propriété ''Parent'' de l'objet. Par exemple dans Excel :

Dim F As Excel.Worksheet

Set F = ActiveSheet

MsgBox "La feuille " & F.Name & " se trouve dans le fichier " & F.Parent.Name & " de l'application " & F.Parent.Parent.Name

}}

 

Pour un exemple où il s'agit d'intégrer différentes projets, il faut agir comme suit :

 

Private Sub UserForm_Initialize()

'Cette procédure renseigne le ComboBox1 avec des valeurs

ComboBox1.AddItem "Projet 3"

End Sub

Ou

 

Private Sub UserForm_Initialize()

'Cette procédure renseigne la ListBox1 avec des valeurs

ListBox1.AddItem "Projet 3"

End Sub

 

 

'''''Illustration :'''''

 

Private Sub UserForm_Initialize()

For Each projet in range("data!A1:A20")

If left(projet.value,1)="1" then ComboBoxchoixProjet.AddItem (projet.value)

End Sub

 

''Il est à noter qu’il existe également la méthode RemoveItem mais celle-ci fait exactement l'inverse de la méthode AddItem : elle permet de supprimer un élément de la ComboBox ou ListBox.''

* Rechercher la propriété Value et lui donner comme valeur ‘Choisir’

* Poser un bouton de commande et entrer le code suivant :

Private Sub CommandButton1_Click()

Label1.caption = ComboBox1.Value

End Sub

 

* Enfin, exécuter le programme pour s’assurer de son bon fonctionnement

'''''Illustration :'''''

 

Private Sub RemplirCombo()

ComboBoxProjet.List = Array("Un", "Deux", "Trois", "Quatre")

End Sub

 

C’est utile dans le sens où cela évite de devoir créer un tableau avec les données nécessaires dans un classeur excel. C'est donc pratique uniquement s’il n’y que quelques éléments connus d'avance à ajouter dans la liste de choix.

Il faut créer un bouton dans la feuille (partie développeur → insérer → bouton - > cliquer sur la cellule choisie) et lui affecter la macro suivante.Une fois le bouton installé vous devez inscrire une instruction qui lance l’affichage d'un formulaire en appelant par son nom :

 

Private Sub CommandButtonformulaire_Click()

UserFormprojet.Show

End Sub

 

Cette instruction lance l’affichage du formulaire en commençant par la macro UserFormprojet.Show. Si Excel vous affiche un message d'erreur à ce stade, lancez votre formulaire en mode pas à pas : mettez vous dans l'éditeur VBA cliquez dans le formulaire et appuyez sur la touche F8 de façon répétée. Le code défile et vous verrez où se situe votre erreur.

* Faire un double-clic sur la première (pour afficher le code) et taper le code suivant :

 

Private Sub TextBox1_Change()

[A1] = UserForm1.TextBox1

End Sub

 

Ceci affiche dans la cellule A1 le texte tapé de la zone de texte 1 (TextBox1)

* Idem pour la deuxième mais avec ce code ci ⇒ http://bdiemert.free.fr/wikiversity/VBA/FRMNomPrenom.jpg

 

Private Sub TextBox2_Change()

[B1] = UserForm1.TextBox2

End Sub

 

** <code>Change()</code> est un des évènements prédéfinis qui surviennent lors des manipulations de zone de texte, comme les suivants

Maintenant nous allons concaténer le nom et le prénom dans la cellule C1. Pour cela, nous allons créer un bouton, et rentrer dans la propriété "Caption", y écrire "Valider", puis dans la propriété ⇒ Apparence ⇒ (Name) le nommer : "Bt_Valider", Double-cliquer sur ce bouton et taper ce code :

 

Private Sub Bt_Valider_Click()

[C1] = UserForm1.TextBox1 & " " & UserForm1.TextBox2

End Sub

 

Maintenant, nous allons afficher le formulaire, taper le nom dans la zone de texte 1 et le prénom dans la 2 puis cliquer sur le bouton « Valider » ⇒ http://bdiemert.free.fr/wikiversity/VBA/IDENomPrenomValider.jpg

Double-cliquer sur la zone de liste (ComboBox) et rentrer ce code:

 

Private Sub ComboBox1_Change()

[C3] = UserForm1.ComboBox1

End Sub

 

=== Utiliser un bouton Option ===

* Double-cliquer sur le premier bouton (Fille) et entrer ce code:

 

Private Sub OptionButton1_Click()

If Controls("OptionButton1").Value = True Then

End If

End Sub

 

Ce qui écrira dans la cellule C4 "Vous êtes une fille" lorsque ce bouton sera coché

* Double-cliquer sur le deuxième bouton (Garçon) et saisir le code :

 

Private Sub OptionButton2_Click()

If Controls("OptionButton2").Value = True Then

End If

End Sub

 

Cela écrira dans la cellule C4 "Vous êtes un garçon" lorsque ce bouton sera coché ⇒ ''''16{{e}} image'''' {{lien brisé|consulté le=2017-07-23|url=http://imageshack.com/a/img191/7605/nwl1.jpg}}

# Programmer le bouton "Valider" via un double-clic et la saisie du code suivant :

 

Private Sub CommandButton1_Click()

If Controls("Textbox1") = "" Then

[A1] = UserForm1.TextBox1

End Sub

 

Tant qu'au moins une lettre du prénom ne sera pas saisie, le focus replacé sur la TextBox1, sinon le prénom s'affichera en A1 ⇒ ''''18{{e}} image'''' {{lien brisé|consulté le=2017-07-23|url=http://imageshack.com/a/img51/1829/2z3r.jpg}}

'''Exercice :'''

 

Private Sub RangeBoitesDansCellules()

' se positionne sur la feuille suivi

Next ligne

End Sub

 

 

'''Exercice :'''

 

Private Sub RangeProjetsDansCombo()

' se positionne sur la feuille projet

Next projet

End Sub

 

== Exercices ==

Le code suivant initialise le formulaire en masquant et minimisant Excel, en réglant taille, hauteur, largeur et position

 

Sub monFormulaire_Initialize()

Excel.Application.Visible = False ' on peut masquer les feuilles de calculs

Me.Left = Application.Left + Application.Width - Me.Width ' positionner le plus à droite possible

End Sub

 

=== Exemple de code associé à un contrôle ===

Le code suivant rend visible un bouton quand on coche une case, et le masque quand on la décoche

 

Sub maCasaCocher_Click()

If maCasaCocher.maCasaCocher= True Then

End Sub

End Function

=== Exemple de création d'un formulaire personnalisé ===

Pour qu'un userform se lance automatiquement au démarrage, ajouter le code suivant dans une feuille :

 

Sub workbook_open()

MonFormulaire1.Show vbModeless

End Sub

* On désigne donc le formulaire par son nom (MonFormulaire1 ci-dessus). Mais dans le code du formulaire, on peut utiliser ''Me'' à la place.

* Supprimer la mention ''vbModeless'' ci-dessus entraine l'impossibilité d'ouvrir d'autres fichiers Excel pendant l’utilisation du formulaire.

Le code suivant initialise le userform qui le contient, en effet le nom de cette fonction est connu et la lance automatiquement au lancement :

 

Sub UserForm_Initialize()

Excel.Application.Visible = False ' on peut masquer les feuilles de calculs

Me.Left = Application.Left + Application.Width - Me.Width ' le plus à droite possible

End Sub

 

Ensuite, en mode création la boite à outil permet d'ajouter des objets dans le userform (boutons, champs...). Nommer ces objets dans leur propriété permet de le appeler ensuite :

 

MonFormulaire1.MonChamp1 = "Hello the world !"

 

 

 

Celle ci-dessous affiche un bouton quand on coche une case, et le masque quand on la décoche :

Sub MaCasaCoche_Click()

If Me.MaCasaCoche = True Then

End If

End Sub

 

== Inventaire des composantes d'un formulaire ==

Pour lister tous les objets que contient un formulaire :

Dim ctrl As MSForms.Control

For Each ctrl In Me.Controls

MsgBox ctrl.Name

Next

 

== Compiler un exécutable ==