Accueil site Tableur Programmation Outils XML Tic en stock Téléchargement Informations



Programmation

Travaux pratiques

TP1 
 
Intro
Pour commencer
  Macro et procédure
  Création de l'interface
Travaux pratiques
  TP1
  TP2
  TP3
 
Nom des feuilles d'un classeur
Objectif
Afficher les noms des feuilles d'un classeur et les renommer à partir de deux boutons de commande.
Réalisation
Commencer par ouvrir un nouveau classeur et sur la feuille 1, dessiner deux boutons.


Changer la propriété Titre des boutons comme ci-dessus. On peut également changer la propriété Nom de ces boutons mais ce n'est pas très utile.
Sauver le classeur sous le nom TP1.xls.
Code
Dans la fenêtre Macros OpenOffice Basic (Alt F11), ajouter un module à la bibliothèque représenté par le classeur.
Afficher le nom des feuilles
Dans l'environnement de développement, effacer la procédure Main et écrire une nouvelle procédure AfficherNom dans laquelle il faut :
  • déclarer une variable objet LesFeuilles de type Object ;
  • déclarer une variable i de type Byte pour faire un compteur de boucle ;
  • affecter à la variable objet LesFeuilles la collection des feuilles du classeur actif ;
  • commencer une boucle For ... Next avec la variable i parcourant les valeurs des index des feuilles de la collection LesFeuilles ;
  • faire afficher par un message le nom de la feuille d'index i ;
  • écrire la fin de la boucle ;
  • écrire la fin de la procédure.
Affecter cette procédure à l'évènement Bouton de souris enfoncé du premier bouton (Voir Comment lier une procedure à un évènement).
Enregistrer le classeur et tester le programme.
Renommer les feuilles
Dans le même module que la procédure précédente, créer une deuxième procédure ChangerNom dans laquelle il faut :
  • déclarer une variable objet LesFeuilles de type Object ;
  • déclarer une variable i de type Byte pour faire un compteur de boucle ;
  • déclarer une variable Rep pour mémoriser le nom d'une feuille ;
  • affecter à la variable objet LesFeuilles la collection des feuilles du classeur actif ;
  • commencer une boucle For ... Next avec la variable i parcourant les valeurs des index des feuilles de la collection LesFeuilles ;
  • utiliser la fonction InputBox pour afficher une boîte de dialogue précisant le nom de la feuille d'index i, demander un nouveau nom et proposer par défaut le nom actuel. Affecter à la variable Rep la valeur renvoyée par cette fonction ;
  • affecter à la propriété Name de la feuille d'index i la valeur de la variable Rep ;
  • écrire la fin de la boucle ;
  • écrire la fin de la procédure.
Affecter cette procédure à l'évènement Bouton de souris enfoncé du deuxième bouton (Voir Comment lier une procedure à un évènement).
Enregistrer le classeur et Tester le programme.
Ressources (documents à télécharger)

© FormTice avril 2020 - Tous droits réservés. Limitation à l'usage non commercial, privé ou scolaire.