Suite MsOffice
Travaux pratiques >
TP3
Remplir un tableauObjectif
Le programme demande à l'utilisateur un nom et un prénom puis remplit la première ligne vide d'un tableau avec ces données.
RéalisationOuvrir un nouveau classeur et dans la cellule A1, taper : Nom (en gras) puis en B1 : Prénom (également en gras) Puis créer un bouton, changer sa propriété Caption pour afficher Saisie et sa propriété Name en BtonSaisie. Quand on clique sur ce bouton, une boîte de dialogue doit apparaître pour demander à l'utilisateur le nom. S'il valide sa saisie par le bouton Ok, la première ligne vide de la première colonne du tableau doit se remplir et une deuxième boîte de dialogue doit apparaître pour demander le prénom. En validant le prénom par le bouton Ok, la deuxième colonne sur la même ligne du tableau doit se remplir et ainsi de suite, tant que l'utilisateur ne clique pas sur le bouton Annuler pour le nom, les boîtes de dialogue doivent s'enchaîner sinon le processus doit s'interrompre. CodeDans l'environnement de développement (Alt + F11), afficher la fenêtre de code de la Feuil1 du Classeur1. Dans cette fenêtre, créer une fonction Position à laquelle on ne passe aucun argument mais qui renvoie le numéro de la première ligne vide (tester la première cellule vide dans la colonne du Nom). Utiliser la structure Do...Loop Dans la liste des objets, chercher le bouton de commande BtonSaisie et dans sa procédure de l'évènement Click (sélectionné par défaut), taper le code nécessaire pour :
- déclarer une variable locale à la procédure de type Integer pour mémoriser le numéro de ligne ;
- affecter cette variable par le numéro de la première ligne vide (valeur renvoyée par la fonction Position) ;
- commencer une boucle Do...Loop et dans cette boucle :
| - activer la cellule de la colonne relative au nom sur la première ligne vide ; |
| - afficher la boîte de dialogue pour la saisie du nom (utiliser la fonction prédéfinie InputBox) ; |
| - vérifier que l'utilisateur n'a pas cliquer sur le bouton Annuler de cette boîte : |
| ¤ auquel cas la chaîne renvoyée par la fonction InputBox est vide et il faut sortir de la boucle par l'instruction Exit Do ; |
| ¤ sinon écrire le nom dans la cellule active. |
| - activer la cellule la colonne relative au prénom sur la ligne en cours ; |
| - afficher la boîte de dialogue pour la saisie du prénom (on ne fait pas de vérification, pour le momemnt) ; |
| - écrire le prénom (éventuellement chaîne vide) dans la cellule active ; |
| - incrémenter le numéro de ligne pour passer à la ligne suivante (pour un nouveau tour dans la boucle) ; |
Tester le programme. Amélioration
Modifier le programme pour que la saisie du prénom soit obligatoire (utiliser une boucle Do Until ... Loop dans la boucle Do ... Loop existante).
Ressources (documents à télécharger)
- Correction du TP (format Word)
- Fichier Excel (fichier Zip) complété
- Ressources du TP (format Word)
