Cours gratuits » Cours informatique » Cours programmation » Cours VBA » Cours VBA les objets courants de la suite Office

Cours VBA les objets courants de la suite Office

Problème à signaler:

Télécharger



★★★★★★★★★★3.5 étoiles sur 5 basé sur 1 votes.
Votez ce document:

Cours VBA les objets courants de la suite Office

...

Pourquoi le terme de macro ?

Macro sous entends macro commandes c'est à dire un ensemble de commandes destinées à réaliser une ou plusieurs actions sans intervention de l'utilisateur. Les macros sont aux logiciels ce que les scripts ou "batchs" sont aux systèmes d'exploitation.

Très souvent, dès qu'un logiciel comporte un nombre important de commandes ou de fonctions distinctes, il est accompagné d'un langage de macro programmation . MS Office ne déroge pas à cet usage. La particularité d'u

ne macro est d'être "attachée" à un logiciel spécifique. Il est impossible de l'exécuter depuis un autre logiciel que celui qui l'a créée ( il y a cependant une exception partielle avec VBA5).

Historique du langage.

Le 1er tableur de Microsoft, Multiplan, était déjà doté d'un langage de programmation. Son successeur, Excel mais également les autres applications de bureautique ont bénéficié d'un tel outil. Jusqu'à la version 4 d'Excel, la macro programmation consistait à écrire une suite de fonctions dans une feuille spécifique. Les fonctions ou mots clés des macros avaient la même syntaxe que les fonctions du tableur. Le code ainsi écrit était exécuté séquentiellement c'est à dire ligne par ligne et n'était en aucun cas transposable à une autre application Microsoft. Dans le même temps, MS proposait des langages de proprammation destinés à écrire des programmes autonomes ou directement exécutables depuis un système d'exploitation (on parle alors de langages compilés). Ces langages étaient aussi de type séquentiels jusqu'à QuickBasic inclu. Les langages séquentiels étaient assez bien adaptés aux systèmes dit de "commandes en lignes" comme MS-DOS mais il était difficile de développer des applications graphiques.

Au début des années 90, la firme de Seattle a donc proposé un nouveau langage pour le développent d'applications autonomes: Visual Basic (VB). Il est conçu pour programmer dans un environnement graphique comme Windows.

A partir de la version Excel5, MS à remplacé le langage de macro programmation propre à chacune de ses applications par des adaptations de Visual Basic à MS-Office rédigé en "langue étrangères" . Autrement dit, il existait un langage Visual Basic Applications pour chacune des langues dans lesquelles MS-Office était écrit. Cela a contraint Microsoft à écrire un traducteur de macros afin de permettre aux programmes écrits dans une langue d'être exécuté dans une application d'une autre langue.

Malheureusement, ce traducteur fonctionna tellement mal que le fabriquant décida de supprimer l'adaptation aux "langues étrangères" c'est pourquoi VBA5 est écrit uniquement en Anglais.

Quelques mots sur la Programmation Orientée Objet (POO)

La définition d'un objet en programmation est différente de celle des objets de la vie quotidienne puisqu'il s'agit généralement d'objets virtuels. Mais comme dans la vie, un objet a des propriétés et des méthodes. Une voiture a des propriétés: la couleur, la carrosserie, le moteur. Elle a des méthodes: accélerer, freiner, rouler ...

Il en va de même pour un objet informatique. Un document Excel a des propriétés:son nom, sa version... Il a des méthodes: ajouter une feuille.

On appliquera la méthode "add" à l'objet workbook (document) et l'on déterminera ses propriétés en lui attribuant un nom, des options de protections ...

Créer un objet en lui attribuant des propriétés définies s'appelle l'instanciation.

L'intérêt de la POO est qu'il n'est pas necéssaire de connaitre toutes les propriétés d'un objet pour l'utiliser mais seulement celles sur les quelles on veut agir.

Un objet peut contenir d'autres objets. C'est le cas de l'objet application (Excel par exemple) qui peut contenir les objets worbooks qui eux mêmes peuvent contenir des objets worksheets (feuilles) qui eux mêmes contiennent des objets ranges (cellules ou plages de cellules). On parle alors de conteneurs.

Comment situer VBA parmi les autres langages ?

Il n'est évidement pas possible de citer tous les langages de programmation. On ne parlera que des outils les plus utilisés à l'INRA.

...

* L'appartenance de Visual Basic au groupe POO est quelques fois l'objet de polémiques.

Un programme compilé est du code directement lisible par le système . "On parle alors de langage machine". La phase de compilation consiste à traduire du code "intelligible" à l'homme en code binaire. L'élaboration d'un programme compilé comprends donc une étape supplémentaire par rapport aux langages interprétés mais son exécution est plus rapide. En dehors de Java et du C, tous les langages compilés cités ici sont des produits commerciaux.

Le code d'un langage interprété est exécuté (interprété) en l'état ou il a été écrit mais son déroulement étant dépendant d'un ou plusieurs logiciels, il est sensiblement plus lent.

Les produits dit "interprétés" sont gratuits ou fourni avec leur logiciel "maitre".

Classement par type de fonctionnement:

...

Prise en main de l'éditeur VBA5

On accéde à l'éditeur depuis les menus d'application MS-Office, XL pour ce qui nous concerne:

menbu Outils puis Macros puis Visual Basic Editor ou en appuyant simultanément sur ALT+F11.

L'écran est divisé en cadres.L'explorateur de projets liste les documents ouverts et leur compositions (feuilles, modules ...).

La fenêtre de propriétés indique les propriétés du document sélectionné. Si la fenêtre de code n'est pas à l'écran, double-cliquez sur ThisWorkbook dans l'explorateur d'objets. Nous verrons plus tard comment appeler d'autres eléments de l'éditeur VBA5. L'explorateur d'objet a 3 boutons qui permettent de se déplacer dans les objets.

L'éditeur est semblable à un petit logiciel de traitement de texte avec des fonctions propres. Si vous écrivez dans le module sub nom(), il ajoute automatiquement 2 lignes plus bas les mots clés End Sub et place le curseur à une tabulation en retrait. Il place également des commentaires en cas d'enregistrement. Tout ce qui est placé à gauche d'une apostrophe (') est un commentaire. L'éditeur les écrit en vert.Vous pouvez bien entendu personnaliser ces paramètres de couleur.

Le cacactère invisible de fin de ligne est traité comme la fin de l'instruction. Lorsqu'une instruction ne peut pas tenir sur une seule ligne vous indiquez au système de lire la suite dans la ligne suivante en mettant un espace et un "tiret bas" ( _ ) après le dernier caractère de la 1ère ligne.

Mise en forme du code.

Bien que tout à fait facultatif, il est d'usage de mettre en retrait les instructions faisant partie d'un bloc. Cela améliore la lisibilité du texte.

Premières macros

Enregistrement de la 1ère macro

Revenez dans la feuille XL.

Il est très pratique de pouvoir changer le mode de référencement des cellules en cours d'enregistrement. Assurez vous que la barre d'outils "Arrêter l'enregistrement de macro" est cochée depuis le menu Affichage puis barres d'outils puis Personnaliser et enfin l'onglet Barres d'outils. Tapez une valeur quelconque dans une cellule. Faites en sorte que la cellule soit sélectionnée. Allez dans le menu Outils puis Macro et Nouvelle macro. Dans le champ Nom de la macro, écrivez essai1. Nous verrons plus loin comment utiliser les autres champs. Cliquez sur Ok .

Allez dans le menu Format puis cellule cliquez sur l'onglet Police choisissez gras.

Allez dans le menu Outils puis Macro et choisissez Arrêter l'enregistrement.

( En fonction de votre configuration, il est possible que la barre d'outils macros s'affiche à l'écran. Dans ce cas, utilisez ses boutons)

Activez l'éditeur VBA. Vous constatez que le document actif contient un élément supplémentaire nommé Modules qui lui même contient Module1. Double-cliquez le. Vous voyez le code que vous venez d'enregistrer.

Refaite un enregistrement nommé "essai2" en utilisant non pas le menu Format ... Mais en cliquant sur l'icône "Gras" et comparez le code de essai1 et essai2. Vous voyez que la macro "essai2" est beaucoup plus compacte! Dans essai1, VBA a renseigné chaque option (les propriétés de l'objet) du menu Format alors que essai2 s'est limité aux instructions de mise en forme du texte. Tenez compte de cette différence avant d'enregister une macro. Vous obtiendrez un code beaucoup plus facile à comprendre!

Testez maintenant ces deux programmes:

Dans la feuille XL, entrez une valeur dans une autre cellule et allez dans le menu Outils puis Macro et encore Macros. Sélectionnez essai1 et cliquez sur Exécuter. recommencez ensuite avec le programme essai2.

Ecrire la 1ère macro

Généralement, la 1ère leçon de programmation commence par l'écriture du programme: "Hello World". Je n'ai aucune raison de vous éviter cela!

Allez dans l'éditeur VBA. A la fin de "essai2", écrivez:

Sub hello()

MsgBox "Salut tout le monde", vbOKOnly, "hi"

End sub

Revenez dans Xl et exécutez la macro hello.

Depuis l'éditeur, copier le l'instruction: MsgBox "Salut tout le monde", vbOKOnly, "hi" dans essai2 et exécutez cette dernière.

Vous venez de voir 2 aspects complémentaires de VBA. La macro essai2 contient maintenant du code dont une partie a été enregistré et le reste a été écrit par vous même. Développer en VBA consiste donc à enregistrer tout ce qu'il est possible et à compléter par du code écrit "à la main". Le développeur devra écrire le code quand il voudra:

- Afficher une boite de dialogue pour informer l'utilisateur ou lui demander d'intervenir

- Créer des variables

- mettre des tests dans le programme.

Ce sont ces 3 points que nous allons détailler mais auparavant, regardons la structure de nos 3 programmes.

Vous avez pu constater que chaque programme commence par sub() et se termine par End sub . Sub doit être interprété comme sous routine. Quand vous écrivez le mot clé sub(), l'éditeur l'interpréte comme l'annonce d'un nouveau programme et il écrit automatiquement End sub sur la ligne inférieure. Sub doit être suivi par le nom de la macro. Ce nom doit commencer par une lettre.

La commande msgbox

Sélectionnez le mot clé msgbox dans l'éditeur VBA et appuyez sur la touche F1 pour obtenir de l'aide. Voici la syntaxe:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

prompt est le message contenu dans la boîte de dialogue.Le texte doit être écrit entre guillemets Anglais (" ").

Les crochets signalent que cet argument est facultatif.

buttons vous permet de choisir un type de bouton. VbOkOnly affiche une seul bouton. VbOkCancel affiche 2boutons. Chacun de ces boutons renvoie une valeur que vous pourrez exploiter par exemple avec un test IF (si) pour exécuter une action en fonction de la réponse de l'utilisateur. Vous pouvez voir dans l'aide qu'il y a beaucoup de types de boutons disponibles.

title donne un titre à la boîte qui doit être écrit lui aussi entre guillemets

Les arguments de commandes doivent toujours être séparés par des virgules.

Pour en savoir plus, voir le chapitre: Les boîtes de dialogue

Enregistrement et sauvegarde des programmes

Depuis XL, allez dans les menus Outils puis Macros et nouvelle macro.

Le champ Touche de raccourci vous permet d'affecter un raccourci clavier à la macro que vous vous apprêter à enregistrer. Afin de limiter les risques de création de raccourcis déjà affectés dans le tableur, il est conseillé d'utiliser pour les macros des raccourcis utilisant les touches Ctrl+Shift+lettre.

Le champ Enregistrer la macro dans: permet de choisir la destination du programme. Si elle est enregistrée dans "ce classeur", elle ne sera disponible que si le fichier est ouvert. Si elle est enregistrée dans le classeur de macros personnelles, elle sera disponible chaque fois que XL sera lancé. Il y a cependant une différence en fonction des systèmes d'exploitation "sécurisés" ou non. Sous NT et dans certains cas sous W9*, il existe un classeur de macros personnelles pour chaque utilisateur.

Intervention de l'auteur dans le code des programmes

VBA5 étant un langage macro ayant la faculté d'enregistrement des programmes, le rôle de l'auteur est très limité par rapport aux autres langages. Cependant il est loin d'être insignifiant. Ce paragraphe est destiné à rappeler quels types d'interventions doivent être réalisées pour rendre les programmes fonctionnels.

Se positionner dans le document (Les adresses de cellules ou de plages):

Pendant l'enregistrement, les déplacements sont notés en position relative de la cellule active ou en références absolues par rapport au coin supérieur droit de la feuille mais il est très fréquent d'avoir à modifier ces valeurs.

Mémoriser une valeur afin de la réutiliser (les variables):

Exécuter une action en fonction d'une condition, d'un état, d'une valeur (les conditions):

Vous aurez souvent besoin d'exécuter un programme en fonction d'une valeur, par exemple traiter différement les lignes d'une feuille en fonction d'une valeur précise (nom d'élèves, numéros de placettes Etc). Dans ce cas, vous devrez utiliser les conditions IF ou Select Case.

Paramétres de l'utilisateur (les boîtes de dialogue):

Une macro n'est réutilisable que si l'utilisateur peut entrer des valeurs ou des références de cellules ou des noms de fichiers. Les boîte de dialogues et les userforms sont des moyens de communication avec l'utilisateur (les userforms ou feuilles VBA destinées à la création d'interface graphiques complexes ne sont pas traitées dans ce document en raison de leur complexité pour des débutants) .

Une partie de programme doit être répétés (Les boucles):

L'utilisateur peut fournir des informations inadaptées ou exécuter le programme en dehors de son champ

(Gestion des erreurs)

Les variables

Les variables sont destinées à stocker des valeurs en vue de leurs réutilisations ultérieures. Elles sont de plusieurs types. La méthode de déclaration est la suivante:

dim nom_de_variable As type ; exemple de variables contenant du texte:

dim toto As string crée la variable toto et la déclare de type chaîne de caractères mais toto est vide. Vous pouvez maintenant lui affecter une valeur:

toto = "Hello World"

la variable toto existe et a pour valeur "Hello World". Vous pourriez écrire le programme hello comme ceci:

sub hello2()

dim txt as string ' déclaration

dim titre as string ' déclaration

txt = "Hello World" 'affectation

titre="Salut" 'affectation

MsgBox txt, vbOKOnly, titre 'utilisation des variables dans une instruction

end sub

L'avantage de ce programme est de vous permettre de réutiliser ultérieurement les variables sans être obligé de reécrire le contenu et votre code gagne en "lisibilité".

Tout ce qui est à droite d'une apostrophe (') est du commentaire et n'est pas lu par le programme. Vous n'êtes pas obligés de déclarer la variable. Vous pouvez directement lui affecter une valeur ex:

sub hello3()

txt = "Hello World"

titre="Salut"

MsgBox txt, vbOKOnly, titre

end sub

Quand vous procédez ainsi, VBA déclare la variable pour vous. Vous pouvez aussi méler du texte et une variable dans une instruction, ex:

sub hello4()

dim txt as string

dim titre as string

txt = "Hello World"

titre="Salut"

MsgBox "Exemple de texte et de variable: "& txt, vbOKOnly, titre

' le symbol et commercial (&) lie la chaîne et la variable

end sub

Chaque fois que vous déclarez une variable, le système lui réserve un espace mémoire. Comme pour les variables "string", vous n'êtes pas obligé de les déclarer ni de leur affecter une dimension. Cependant, si vous devez développer des programmes gourmands en ressources ou si vous voulez les exécuter sur des systèmes limités, vous avez intérêt à définir précisement vos variables. Pour limiter la longueur d'une chaîne:

dim variable as string * nb_caractères ex: dim txt as string * 11 lime la chaîne à 11 caractères.

...

Les variables de type matrice ou de type array encore appelées variable tableau

Les variables que nous avons vu jusquà présent ne stockent qu'une seule valeur. Les matrices stockent une liste d'éléments. Il est obligatoire de les déclarer:

dim nom(nb_ éléments) as type

ce qui revient à :

dim toto(5) as integer déclare la variable tableau de type "entier" ayant la possibilité de recevoir 5 valeurs. Attention, l'index commence à zéro. Avec ce type de déclarations, les éléments du tableau seront indexés de 0 à 4. Vous pouvez modifier l'index dans la déclaration:

dim toto(1 to 5 ) as integer

Exemple de création de matrice:

sub matrice1()

dim devinette(1 to 8) as string

devinette(1) = "M et Mme Froid ont 7 enfants, quels sont leurs prénoms ?"

devinette(2) = "Eva"

devinette(3) = "Aude"

devinette(4) = "Dan"

devinette(5) = "Marc"

devinette(6) = "Samson"

devinette(7) = "Gilles"

devinette(8) = "Ella"

'fin de la création du tableau

' Ce qui suit est une boucle qui va afficher8 fois une boite de dialogue avec chacune des valeurs du tableau

for compteur = 1 to 8

msgbox devinette(compteur)

next compteur

end sub

L'exemple précédent utilise une matrice unidimensionnelle mais un tableau peut être multidimensionnel exemple:

dim tab(1 to 10, 1 to 10) as integer

crée un tableau à 2 dimensions où chaque vecteur contient 10 valeurs. Ce type de tableau est très utilisé pour stocker des valeurs lues dans une plage de feuille XL. Vous pourrez créer des tableaux ayant autant de lignes et de colonnes que la plage.

Accéder aux valeurs d'un tableau

Si une seule valeur vous intéresses et que vous connaissez ses coordonnées dans le tableau, il suffit d'écrire:

A=tableau(3) pour affecter la variable "A" de la 3ème valeur de tableau(). Nous verrons dans le chapitre sur les boucles comment rechercher une valeur dans un tableau.

Les variables de type object

Un objet peut désigner un classeur (workbook), une feuille (sheet) ou tout autre partie de l'application. Une fois la variable de type object declarée (obligatoire dans ce cas), vous lui affecter une valeur avec le mot clé SET :

set C = activeworkbook affecte la variable C du nom du document actif

Portée et durée des variables

Jusqu'à présent, nous avons déclaré les variables entre les mots clés sub() et end sub. Cette pratique limite la portée des variables à ce module. Si vous appelez plusieurs modules depuis un projet et que vous souhaitez rendre certaines variables utilisables par tous les modules, vous devrez soit les faire précéder du mot clé public , soit les déclarer à l'extérieur d'un module.

Références des cellules

Se déplacer dans la feuille est interprété comme de la manipulation de l'objet range qui représente une ou plusieurs cellules. En plus de range, vous utiliserez cells qui est une collection de toutes les cellules du document actif. Les propriétés row et column donnent le numéro de la ligne et de colonne. Activecell renvoie un objet range indiquant la cellule sélectionnée. select sélectionne un objet. offset décale par rapport à une plage indiquée et activate active un objet .

Références absolues

C'est le mode d'enregistrement par défaut. Le bouton Enregistrement relatif de la barre d'outils macro permet le passage d'un mode à l'autre.

L'expression: range("A1").select sélectionne ou active la cellule A1.

L'expression: range("A1:B10").select sélectionne une plage de A1 à B10

L'expression: range("A1, B10").select sélectionne les cellules non contiguës A1 et B10.

Le code:

range("A1, B10").select

range("B10").activate

sélectionne les cellules A1 et B10 et donne le focus à la cellule B10.

Ce type de références est autorisé même si la feuille active a un système de notation de type L1C1

Pour faire référence à une seule cellule, vous pouvez aussi utiliser:

cells(1,1).select 'sélectionne la cellule A1

Attention cependant, les valeurs entre les parenthèses (n° de ligne et n° colonne) sont des références absolues. cells(1,1) indique la ligne1 et colonne 1. Vous pourriez aussi remplacer ces valeurs par des variables.

Références relatives

Ce type de références n'est pas très bien fait dans VBA5 et constitue la principale difficulté du débutant.

Une référence relative est généralement une adresse à partir de la cellule active. L'expression:

activecell.offset(0,1).range("A1").select

ou

activecell.offset(0,1).select

déplace (offset) la sélection vers une cellule placée sur la même ligne et une colonne à droite.

Pour se déplacer vers la gauche ou vers le haut, il suffit de donner des valeurs négatives:

activecell.offset(0,-1).select

pour sélectionner une plage de 4 cellules dans la colonne voisine de gauche:

ActiveCell.Offset(0, -1).Range("A1:A4").Select

Quelques exemples de sélection de cellules ou de plages:

Sélection de toutes les cellules non-vides et contiguës de la ligne 1:

Range("A1", Range("A1").End(xlToRight)).Select

Sélection de toutes les cellules non vides autour de la cellule "A1" :

Range("A1").CurrentRegion.Select

(produit le même résultat que le raccourci clavier: Ctrl + * )

Sélection de toutes les cellules non vides autour de la cellule active:

Range(ActiveCell, ActiveCell.CurrentRegion).Select

(produit le même résultat que le raccourci clavier: Ctrl + * )

Sélection de toutes les cellules non vides autour de la cellule active et exclusion de la ligne 1:

Dim Plage As Range

With Selection.CurrentRegion

Set Plage = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count)

End With

(produit le même résultat que les raccourcis clavier: Ctrl + Shift + flèches)

Sélection de toutes les cellules non vides dans une seule colonne en dessous de la cellule active:

Range(ActiveCell, ActiveCell.End(xlDown)).Select

(produit le même résultat que le raccourci clavier: Ctrl + Shift + flèche en bas)

Sélection de toutes les cellules non vides sur une seule ligne et à droite de la cellule active:

Range(ActiveCell, ActiveCell.End(xlToRight)).Select

(produit le même résultat que le raccourci clavier: Ctrl + Shift + flèche en à droite)

(Utilisez les instructions xlToLeft et xlUp pour les autres directions)

Séléction de la dernière cellule non vide de la colonne:

ActiveCell.End(xlDown).Select

Sélection de la dernière cellule du tableau:

Range("A1").SpecialCells(xlLastCell).select

(produit le même résultat que le raccourci clavier: Ctrl + touche fin)

Sélection de la dernière cellule contenant une valeur:

Cells.Find("*", [A1], , , xlByRows, xlPrevious).Select

Déplacer la sélection d'une colonne vers la droite:

Selection.Offset(, -1).Select


914