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

Contenu supprimé Contenu ajouté
Richardbl (discussion | contributions)
Ligne 522 :
==== Modifier les couleurs d'un bouton ====
 
Cliquer sur le bouton "CommandButton1", puis affichage => Fenêtre Propriétés
 
http://bdiemert.free.fr/wikiversity/VBA/IDEFenetrePropriete.jpg
 
Dans la liste des Propriétés => Affichage "Par catégorie" => Menu "Apparence" => Propriété "BackColor" pour la couleur du fond (ou Propriété "ForeColor" Pour la couleur du texte) => Dans la liste déroulante à droite => Affichage "Palette" et sélection de la couleur
 
http://bdiemert.free.fr/wikiversity/VBA/IDEFenetrePaletteCouleurs.jpg
Ligne 532 :
==== Modifier le texte et la police du bouton ====
 
Dans la liste des Propriétés => Affichage "Par catégorie" => Menu "Apparence" => Propriété "Caption" => Entrer le libellé : "Quitter"
 
Pour modifier la police => Menu "Police" => Propriété "Font" et sélectionner la police, le style et la taille
 
http://bdiemert.free.fr/wikiversity/VBA/IDEFenetrePolice.jpg
Ligne 546 :
Pour cet exemple nous allons créer 2 zones de texte, une pour le nom l'autre pour le prénom, 2 intitulés et un bouton "Valider".
 
* Placer 2 intitulés sur le formulaire, (le contrôle avec un « A ») l'une à côté de l'autre, dans la propriété "Caption" de la première taper : « Nom », dans la deuxième : « Prénom », puis utiliser les propriétes "BackColor, ForeColor, Font ou autres pour la mise en forme ==> http://bdiemert.free.fr/wikiversity/VBA/IDEBoiteOutilsLabel.jpg
* Sous chaque intitulé nous placerons 2 zones de texte (le contrôle avec « ab| ») ==> http://bdiemert.free.fr/wikiversity/VBA/IDEBoiteOutilsTexte.jpg
* Faire un double-clic sur la première (pour afficher le code) et taper le code suivant :
 
Ligne 558 :
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
 
<source lang=vb>
Ligne 574 :
==== Bouton "Valider" ====
 
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 :
 
<source lang=vb>
Ligne 582 :
</source>
 
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
 
=== Programmer une zone de liste (ComboBox) ===
Ligne 596 :
Dans les cellules A1 à A15 de la feuille 2 (Feuil2) du classeur entrer des noms de ville. ''''11{{e}} image'''' http://imageshack.com/a/img89/4760/5wnz.jpg
 
Revenir à l'éditeur Visual Basic (« Alt » + « F11 »), sélectionner le formulaire, y placer une zone de liste modifiable ==> ''''12{{e}} image'''' http://imageshack.com/a/img23/6808/nwxn.jpg
 
Dans les propriétés => Données => RowSource, rentrer la zone ciblée : Feuil2!A1:A15 ==> ''''13{{e}} image'''' http://imageshack.com/a/img801/245/3pfh.jpg
 
Double-cliquer sur la zone de liste (ComboBox) et rentrer ce code:
Ligne 610 :
=== Utiliser un bouton Option ===
 
* Pour cet exemple nous allons créer 2 boutons d'option pour choisir entre : « Fille » ou « Garçon », il faut placer avant tout chose un cadre (Frame) sur l'UserForm. Propriété => Caption : « Fille ou garçon » ==> ''''14{{e}} image'''' http://imageshack.com/a/img20/8900/4bvh.jpg
* Il faut ensuite placer sur ce cadre 2 boutons d'option, nommer le 1er : « fille », le 2{{e}} : « garçon », se servir des propriétés « BackColor, ForeColor, Font etc » pour la mise en forme ==> ''''15{{e}} image'''' http://imageshack.com/a/img4/6462/anbj.jpg
* Double-cliquer sur le premier bouton (Fille) et entrer ce code:
 
Ligne 634 :
</source>
 
Cela écrira dans la cellule C4 "Vous êtes un garçon" lorsque ce bouton sera coché ==> ''''16{{e}} image'''' http://imageshack.com/a/img191/7605/nwl1.jpg
 
=== Contrôler une saisie dans une TextBox ===
Ligne 640 :
Nous allons vérifier maintenant la saisie d’une TextBox à l’aide d’un nouvel exemple :
 
# Placer un label en haut du formulaire, Propriété => Caption : Indiquez votre prénom
# Placer une TextBox dessous
# Le bouton de commande tout en bas, Propriété => Caption : Valider ==> ''''17{{e}} image'''' http://imageshack.com/a/img41/4899/bcy4.jpg
# Programmer le bouton "Valider" via un double-clic et la saisie du code suivant :
 
Ligne 655 :
</source>
 
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'''' http://imageshack.com/a/img51/1829/2z3r.jpg
 
== Transfert de données du fomulaire dans le feuille ==
Ligne 728 :
Next projet
End Sub
</source>
 
== Exercices ==