4. Entraînez-vous avec 5 exemples prêts à l'emploi

Excel : Concevez un tableau annuel

Objectif

Ce programme construit un classeur annuel afin de vous épargner les recopies manuelles des tableaux mensuels, ainsi que la saisie des noms des mois dans les onglets des douze feuilles de calcul.

Comment ça marche

Après la définition des variables, le programme calcule le nombre de feuilles contenues dans le classeur (propriété Count). L’instruction Application.DisplayAlerts désactive les messages de confirmation qui s’affichent lors de la suppression des feuilles de calcul.

Un test conditionnel (If..Then..Else) élimine les feuilles en trop car seule la première, renommée “janv 2001”, contient le tableau à recopier. Pour effacer les feuilles, l’emploi d’une boucle While..Wend évite un message d’erreur dû à la modification, à la volée, des index des pages.

Le programme rétablit ensuite l’affichage des messages d’alerte. La première feuille est copiée onze fois en utilisant la fonction Format() afin de déterminer les intitulés de chaque mois de l’année.

Après avoir saisi le listing, construisez et mettez en forme votre tableau dans la première feuille de calcul. Puis exécutez le programme.

Niveau de difficulté

Utilisateur débutant.

Word : Créez une liste HTML de vos fichiers

Objectif

Vous souhaitez établir la liste de toute une série de documents Word regroupés dans un répertoire, puis la convertir en page HTML afin de l’afficher dans votre site Web.

Comment ça marche

Avant de commencer à saisir le programme, cliquez sur le menu Outils de VBE, puis sur Références. Vérifiez que la case [Microsoft Office 8.0 Object Library] (pour Word 97) ou [Microsoft Office 9.0 Object Library] (pour Word 2000) soit bien cochée.

Le programme exploite l’objet FileSearch d’Office, plus simple d’utilisation que l’instruction Dir. En effet, il suffit de lui indiquer le répertoire (récupéré grâce à une fenêtre de dialogue InputBox) via la propriété LookIn, et le type de document à trouver (propriété Filetype), puis de lancer la recherche (méthode Execute). Les résultats sont consignés dans l’objet FoundFiles.

Le programme insère alors le nom des fichiers trouvés dans le document Word et les transforme en liens hypertextes (objet Hyperlinks). Le programme comporte quelques limitations. Ainsi, le nom du dossier saisi ne doit pas se terminer par le caractère sous peine de provoquer une erreur.

De plus, un document vierge doit être ouvert dans Word. Modifiez donc la macro pour supprimer ces restrictions.

Niveau de difficulté

Intermédiaire.

PowerPoint : Sauvegardez votre présentation

Objectif

Contrairement à Excel ou Word, PowerPoint n’offre pas d’option pour créer à chaque enregistrement un fichier de sauvegarde du document. Avec ce programme, vous apprendrez aussi à gérer les erreurs.

Comment ça marche

Le programme récupère le nom de la présentation déjà enregistrée auquel il conserve l’extension .ppt. Il affiche une fenêtre de dialogue (Instruction Inputbox()) qui vous demande de saisir l’intitulé du dossier de sauvegarde.

Si vous entrez le nom et le chemin d’un répertoire qui n’existe pas, le programme affichera une fenêtre vous indiquant le type d’erreur et l’objet qui en est l’origine.

L’instruction On Error Resume Next n’interrompt pas l’exécution du programme lorsque celui-ci rencontre une erreur. En fonction du numéro de celle-ci (Err.Number), vous pouvez afficher des messages ou déclencher des actions spécifiques.

Si la présentation n’a pas encore été enregistrée, elle prendra le nom PrésentationX.bak, où X représente un chiffre.

Niveau de difficulté

Utilisateur averti.

Access : Construisez une barre d’outils

Objectif

En fonction de la base de données sur laquelle vous travaillez, vous avez besoin de recourir à des outils particuliers, répondant à des besoins précis.

Comment ça marche

Contrôlez la présence d’une marque dans la case [Microsoft Office 8.0 Object Library] (pour Access 97) ou [Microsoft Office 9.0 Object Library] (pour Access 2000) de la fenêtre Références dans VBE.

Puis créez une barre d’outils, nommée MaBarreOutils, en y intégrant, par exemple, vos macros de formulaire. Le programme détaillé ci-dessous teste si la barre d’outils est affichée et, le cas échéant, la fait apparaître.

La méthode Add offre la possibilité d’ajouter des contrôles, c’est-à-dire des icônes prédéfinies (dans notre exemple) ou personnalisées, mais également des menus ou d’autres objets dans les barres d’outils.

Niveau de difficulté

Utilisateur débutant.

Excel : Repérez les formules dans une plage

Objectif

Avec de grands tableaux, comportant plusieurs centaines de lignes ou de colonnes, on oublie rapidement où sont situées les formules. La macro VBA proposée ci-dessous colore le fond de toutes les cellules de la sélection contenant une formule.

Comment ça marche

Ce programme fait largement appel à la propriété Offset qui permet de sélectionner des cellules de manière dynamique. ActiveCell.Offset(1,2) indique que la cellule active de la sélection se trouvera une ligne en dessous et deux colonnes à droite de la cellule active par défaut, servant de point de repère.

Par défaut, elle se situe en haut à gauche du bloc sélectionné (Selection.Cells(1,1).Activate).

Puis, il faut parcourir l’ensemble des cellules de la plage. Pour cela, nous avons utilisé deux boucles For..Next. Une condition If..Then..End If détermine la présence d’une formule grâce à la propriété HasFormula.

Niveau de difficulté

Utilisateur débutant.

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.

La rédaction