Chapitre 5

Chapitre 5 : Feuilles utilisateur



Les feuilles utilisateur sont des fenetres ou des boites de dialogue qui permettent de saisir des donnees. Elels sont plus puissantes que les fonctions ou les instructions InputBox et MsgBox. Elles integrent toute une panoplie de controles comme les zones de texte, les cases d'options ou les cases a cocher.
Notre exemple gerera une liste de prospects pour les centres de remise en forme "MuscleTou".
-Cliquez Nouveau


Base de donnees

En premier lieu, definissons la base de donnees des prospects.
-Tapez le nom des colonnes comme dans la capture d'ecran ci-apres
-A1 = Titre -F1 = Nb relances
-B1 = Nom -G1 = Mensuel
-C1 = Prenom -H1 = Annuel
-D1 = Telephone -I1 = Gym
-E1 = Pro/Perso -J1 = Sauna
-Double-cliquez l'onglet Feuil1 puis tapez Base ↵
La colonne Pro/Perso indique si le telephone est professionnel ou personnel. Nous utiliserons des cases d'option.
La colonne Nb relances indique le nombre de relances telephoniques. Nous utiliserons une barre de defilement.
Les colonnes Mensuel, Annuel, Gym et Sauna indiquent les centres d'interet des clients. Nous utiliserons des cases a cocher.
La colonne Titre contiendra Madame, Mademoiselle ou Monsieur. Nous utiliserons une zone de liste modifiable. Les valeurs de la zone seront contenues dans une feuille de calcul.
-Cliquez le menu Insertion Feuille
-Double-cliquez l'onglet Feuil2 puis tapez Titres ↵
-Tapez Madame ↵ Mademoiselle ↵ Monsieur ↵


Creer une feuille utilisateur

-Cliquez Visual Basic Editor dans la barre d'outils Visual Basic
-Cliquez Ajouter une feuille utilisateur dans la barre d'outils
Excel ajoute une feuille UserForm1 dans une nouvelle fenetre. Une Boite a outils propose tous les objets necessaires a la realisation de la feuille.

Proprietes des objets
Chaque objet de la feuille possede des proprietes modifiables a la creation.
Modifions la barre de titre de la feuille
-Cliquez Fenetre Proprietes dans la barre d'outils
-Double-cliquez la propriete Caption. Double-cliquez le mot Caption et non le contenu UserForm1
-Tapez Gestion des prospects dans la propriete Caption
-Utilisez les poignees de redimensionnement pour agrandir la feuille (environ une fois et demie plus large et une fois et demie plus haute)

Intitules

Les intitules sont de simples textes que l'utilisateur ne peut pas modifier.
-Cliquez Intitule A dans la Boite a outils
-Cliquez et faites glisser en haut de la feuille pour ajouter l'intitule
-Tapez MuscleTou dans la propriete Caption
-Cliquez la propriete Font puis cliquez ...
-Selectionnez Bold pour Style et 20 pour Taille puis cliquez OK
-Selectionnez 1 - FmSpecialEffectRaised dans la propriete SpecialEffect
-Selectionnez 2 - FmTextAlignCenter dans la propriete TextAlign
-Au besoin, ajustez la taille de l'intitule avec les poignees


Zones de liste modifiables

En choisissant ce type de zone pour les donnees Titre, il sera possible, soit de selectionner une des valeurs predefinies (feuille Excel Titres), soit d'en taper une nouvelle (Maitre, Societe, etc.).
[La Boite a outils n'est plus visible quand on clique la fenetre des Proprietes. Pour qu'elle apparaisse de nouveau, cliquez le fond de la feuille Gestion des Prospects.]
-Cliquez Zone de liste modifiable dans la Boite a outils
-Cliquez et faites glisser pour ajouter la zone de liste modifiable
Relions cette liste a la plage A1:A3 de la feuille Titres.
-Tapez Titres!A1:A3 dans la propriete RowSource
La base de donnees se trouve dans la feuille Base. Les nouveaux prospects seront toujours inseres dans la ligne 2. Relions la liste a la cellule correspondante.
-Tapez Base!A2 dans la propriete ControlSource
-Ajoutez un Intitule A a gauche de la liste deroulante
-Tapez Titre : dans la propriete Caption
-Selectionnez 3 - FmTextAlignRight dans la propriete TextAlign


Zones de texte

Ajoutons une zone de texte pour saisir le nom du client.
-Cliquez Zone de texte dans la Boite a outils
-Cliquez et faites glisser en-dessous de la liste deroulante
Relions la zone de texte a la cellule correspondante.
-Tapez Base!B2 dans la propriete ControlSource
-Ajoutez un Intitule A a gauche de la liste deroulante
-Tapez Nom : dans la propriete Caption
-Selectionnez 3 - FmTextAlignRight dans la propriete TextAlign
-De la meme maniere, ajoutez des zones de texte et des intitules pour le Prenom et le Telephone relies aux cellules C2 et D2

Cases d'options

Ajoutons deux cases d'options dans un cadre pour le type de numero de telephone.
-Cliquez Cadre dans la Boite a outils
-Cliquez et faites glisser en-dessous de l'etiquette Telephone
-Tapez Type de telephone dans la propriete Caption
-Cliquez Bouton d'option dans la Boite a outils et faites glisser a l'interieur du cadre Type de telephone
-Tapez Personnel dans la propriete Caption
-Tapez Base!E2 dans la propriete ControlSource
-De la meme maniere, ajoutez un Bouton d'option nomme Professionnel
Comme il n'y a que deux boutons, ce dernier n'est pas relie a une cellule puisqu'il change la valeur de l'autre bouton quand on clique dessus.


Compteurs et barres de defilement

Les compteurs et les barres de defilement permettent de faire varier des valeurs numeriques en utilisant la souris. Pour connaitre leur valeur courante, il faut les associer a un intitule ou a une zone de texte. La mise a jour se fait avec VB.
-Ajoutez un intitule Nombre de relances : en-dessous du cadre Type de telephone
-Selectionnez 2 - FmTextAlignCenter dans la propriete TextAlign
-Cliquez Defilement et faites glisser en-dessous de l'intitule
La valeur de la barre variera entre les valeurs des proprietes Min et Max.
-Tapez 10 dans la propriete Max
La valeur de la barre augmente ou diminue du SmallChange quand on clique sur les fleches de droite ou de gauche. Elle augmente ou diminue du LargeChange quand on clique a l'interieur de la barre.
-Tapez 2 dans la propriete LargeChange
-Tapez Base!F2 dans ControlSource


Cases a cocher

-Cliquez Case a cocher dans la Boite a outils et faites glisser a droite de la zone de liste Titre
-Tapez Abonnement Mensuel dans la propriete Caption
-Tapez Base!G2 dans ControlSource
-De la meme maniere, ajoutez 3 cases a cocher nommees Abonnement Annuel, Salle de gym et Sauna/Hammam liees aux cellules H2, I2 et J2


Bouton de commande

Pour valider ou annuler les donnees saisies et fermer la feuille, ajoutons deux boutons de commande.
-Cliquez Bouton de commande dans la Boite a outils puis faites glisser a droite du cadre Type de telephone
-Tapez OK dans la propriete Caption
-De la meme maniere, ajouter en-dessous un bouton Annuler
-Au besoin, deplacez et redimensionnez les controles pour obtenir le meme agencement
-Cliquez Enregistrer et nommez le classeur Prospects

Nom des controles

A leur creation, VB donne un nom par defaut aux objets (type d'objet suivi d'un numero chronologique).
-Cliquez la case a cocher Abonnement Mensuel
La propriete Name donne le nom attribue. VB ne reattribue pas un numero supprime sauf si c'est le dernier. Si l'on supprime la CheckBox5 alors qu'il existe une CheckBox6, la prochaine case a cocher portera le nom CheckBox7.
Si vous avez supprime un controle pendant la constitution de la feuille, il est possible qu'un objet porte un autre nom. Comme on utilise ces noms pour acceder aux objets avec VB, il faut les nommer explicitement.
-Cliquez la feuille UserForm1 et tapez Saisie dans la propriete Name
-Cliquez l'intitule Nombre de relances et tapez Compteur dans la propriete Name
-Cliquez la barre de defilement et tapez Relances dans la propriete Name
-Cliquez l'option Personnel et tapez Perso dans la propriete Name
-Donnez a la liste et aux trois zones de texte les noms Titre, Nom, Prenom, et Telephone
-Donnez aux quatre cases a cocher les noms Mensuel, Annuel, Gym et Sauna


Procedures evenementielles

Pour chaque controle il existe des procedures evenementielles. Elles sont executees quand l'utilisateur intervient sur l'objet (en cliquant un bouton, en tapant dans une zone de texte, en cliquant un bouton, en tapant dans une zone de texte, en cliquant une barre de defilement, etc.).
Pour que notre intitule Compteur varie en fonction de la barre de defilement Relance, il faut ajouter une procedure evenementielle.
-Double-cliquez la barre de defilement Relance
Une nouvelle feuille de module affiche la structure de la procedure. Le nom de la procedure est constitue du nom de l'objet et du type d'evenement.
L'evenement Change est propose par defaut car c'est le plus couramment utilise pour une barre de defilement.
-Cliquez la fleche de la liste Procedure dans la fenetre Saisie (Code)
On trouve ici tous les evenements possibles pour ce type d'objet.
-Tapez Echap pour fermer la liste Procedure
Pour mettre a jour l'intitule Compteur (Propriete Caption) il suffit d'y placer la valeur de la barre de defilement Relance (Propriete Value).
-Tapez Compteur.Caption = "Nombre de relances : " & Relances.Value ↵

Executer une feuille utilisateur

-Cliquez Affichage Microsoft Excel dans la barre d'outils
-Cliquez l'onglet Base
Comme pour les objets de la feuille utilisateur, il est plus simple de donner un nom aux objets d'Excel (les plages de cellules par exemple). Donnons un nom a la base de donnees.
-Selectionnez la plage A1:J2
-Cliquez Zone Nom (a gauche de la barre de formule) et tapez ListeProspects ↵ pour donner un nom a la liste.
[Il est indispensable d'appuyer sur la touche ↵ pour que le nom soit pris en compte.]
Les donnees de la liste seront triees sur les noms. Nommons la colonne des noms pour y acceder plus facilement.
-Selectionnez la colonne B en cliquant B
-Cliquez Zone Nom et tapez Nom ↵
La feuille sera ouverte par un bouton de commande.
-Cliquez Boite a outils Controles dans la barre d'outils Visual Basic
-Cliquez Bouton de commande dans la barre d'outils Commandes
-Cliquez et faites glisser dans la feuille Base pour ajouter le bouton
Les objets proposes dans la barre d'outils Commandes sont les memes que dans la Boite a outils de VB.
-Cliquez Proprietes dans la barre d'outils Commandes
-Tapez OuvrirSaisie dans la propriete Name
-Tapez Ajouter un prospect dans la propriete Caption
-Cliquez x pour fermer la fenetre Proprietes
Nous allons creer la procedure qui ouvre la feuille Saisie.
-Double-cliquez le bouton Ajouter un prospect
[Pour acceder aux procedures des objets, le bouton Mode creation doit etre enfonce.]
-Tapez 'Ouverture de la feuille Saisie ↵
Les valeurs seront toujours inserees dans la premiere ligne de la liste, apres les en-tetes de colonnes.
-Tapez Worksheets("Base").Rows(2).Select ↵
-Tapez Selection.Insert ↵
Chaque objet d'une feuille utilisateur conserve la derniere valeur saisie dans sa propriete Value, Text ou Caption. Quand on ouvre une feuille, les anciennes valeurs apparaissent. Il faut donc remettre a zero tous les controles pour obtenir une feuille vierge.
-Tapez les lignes suivantes :
With Saisie
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Telephone.Text = ""
.Compteur.Caption = "Nombre de relances"
.Relances.Value = 0
.Perso.Value = True
.Mensuel.Value = False
.Annuel.Value = False
.Gym.Value = False
.Sauna.Value = False
End With
[N'oubliez pas le point avant chaque controle.]
Initialisons aussi les valeurs par defaut des cases d'option et des cases a cocher dans la feuille Base.
-Tapez Range("E2") = True ↵
Ne cochons pas les quatre cases a cocher.
-Tapez Range("G2:J2") = False ↵
Pour afficher une feuille, il faut utiliser la methode Show.
-Tapez Saisie.Show ↵


Fermeture de la feuille utilisateur

Avant meme de tester la feuille, il faut penser a sa fermeture. Nous disposons de deux boutons qui ferment la boite.

Bouton OK
Si l'utilisateur clique le bouton OK, les donnees doivent etre triees dans l'ordre croissant des noms.
De plus, les cases d'option et les cases a cocher etant converties en valeur True (case cochee) ou en valeur False (case non cochee), nous devons les remplacer par des valeurs plus explicites (Pro, Perso, Oui et Non).
-Double-cliquez Saisie dans la fenetre Projet
-Double-cliquez le bouton OK pour ouvrir la procedure evenementielle Click
Fermons la feuille utilisateur Saisie.
-Tapez Saisie.Hide ↵
Pour eviter une interaction entre les donnees de la feuille utilisateur et celles de la feuille de calcul, il faut modifier les donnees sur une autre ligne. Inserons une nouvelle ligne pour modifier les donnees en ligne 3.
-Tapez Rows(2).Select ↵
-Tapez Selection.Insert ↵
Remplacons le type de telephone par Pro ou Perso a la place de VRAI ou FAUX.
[Si les cases d'options et les cases a cocher contiennent les valeurs True ou False, ce sont en revanche des valeurs VRAI ou FAUX qui apparaissent dans la feuille de calcul.]
-Tapez If Range("E3") = True Then ↵
Pour la valeur True, c'est la case Personnel qui est cochee.
-Tapez Range("E3") = "Perso" ↵
Pour la valeur False, c'est la case Professionnel qui est cochee.
-Tapez Else ↵
-Tapez Range("E3") = "Pro" ↵
-Tapez End if ↵
Remplacons les valeurs Vrai ou Faux des quatre cases a cocher par des valeurs Oui ou des cellules vides. Pour simplifier le code, nous utilisons une boucle For...Next. On accede ici aux cellules avec la methode Cells. Les valeurs se trouvent dans les colonnes 7 a 10.
-Tapez For i = 7 To 10 ↵
-Tapez If Cells(3, i) = True Then ↵
-Tapez Cells(3, i) = "Oui" ↵
-Tapez Else ↵
-Tapez Cells(3, i) = "" ↵
-Tapez End if ↵
-Tapez Next i ↵
Supprimons maintenant la ligne inseree au debut de la procedure.
-Tapez Selection.Delete ↵
Comme des donnees ont ete inserees, il faut maintenant trier la liste ListeProspects.
-Tapez Range("ListeProspects").Sort Key1:="Nom", Header:=xlYes ↵
-Key1 : correspond a la colonne sur laquelle s'effectue le tri (colonne B que nous avons appelee Nom)
-Header : indique que la liste contient des en-tetes de colonne qui ne doivent pas etre triees avec les donnees

Bouton Annuler
Si l'utilisateur clique le bouton Annuler, la ligne ajoutee dans la liste doit etre supprimee.
-Double-cliquez Saisie dans la fenetre de Projet
-Double-cliquez le bouton Annuler pour ouvrir la procedure evenementielle Click
Fermons la feuille utilisateur Saisie.
-Tapez Saisie.Hide ↵
Supprimons la liste precedemment inseree.
-Tapez Worksheets("Base").Rows(2).Select ↵
-Tapez Selection.Delete ↵
-Cliquez x pour fermer la fenetre Saisie (Code)


Ordre de tabulation

Il existe un ordre de saisie des donnees dans une feuille quand l'utilisateur appuie sur la touche ⇆ pour passer d'un controle a un autre controle.
-Cliquez le menu Afichage Ordre de tabulation
-Vers le haut, Vers le bas : selectionnez l'objet a deplacer dans la liste Ordre de tabulation puis cliquez sur un de ces boutons pour changer l'ordre de tabulation
-Cliquez OK dans la boite Ordre de tabulation
-Cliquez x pour fermer la fenetre Microsoft Visual Basic


Proprietes des controles

Les controles possedent des proprietes modifiables directement.
-Cliquez avec le bouton droit le bouton de commande Ajouter un prospect
-Cliquez Format de controle dans le menu contextuel
-Cliquez l'onglet Proprietes dans la boite Format de controle
Quand on insere une nouvelle ligne dans la liste des prospects, la bouton Ajouter un prospect est deplace avec le reste de la feuille.
-Cliquez Ne pas deplacer ou dimensionner avec les cellules pour que le bouton reste toujours a sa place
-Cliquez OK pour fermer la boite Format de controle


Saisir des prospects

Nous allons maintenant saisir des prospects
-Cliquez Desactiver le mode creation pour qu'il ne soit pas enfonce
-Cliquez Ajouter un prospect pour ouvrir la feuille Gestion des Prospects
-Tapez les donnees comme dans l'exemple ci-dessous. Utilisez la touche ⇆ pour passer d'un controle a l'autre. Selectionnez Madame dans la liste Titre, ou tapez simplement M.
-Nom : Oderie
-Prenom : Agathe
-Telephone : 01.23.45.67.89
-Personnel
-1 relance
-Abonnement Mensuel
-Cliquez sur OK pour mettre a jour les donnees dans la liste
-Cliquez le bouton Ajouter un prospect
-Ajoutez le second prospect
-Titre : Monsieur
-Nom : Toune
-Prenom : Guy
-Telephone : 01.98.76.54.32
-Professionnel
-2 relances
-Salle de gym
-Sauna/Hammam
-Cliquez sur OK pour fermer la boite de dialogue
-Cliquez sur le bouton de commande Ajouter un prospect
-Tapez les donnees de votre choix
-Cliquez sur Annuler pour fermer la boite de dialogue
Excel n'a pas ajoute ces donnees dans la liste.
-Enregistrez et fermez le classeur.