Les objets et collections en VBA

1. Propriétés

L’objet est une entité que l’on peut distinguer grâce à ses propriétés (sa couleur, ses dimensions, par exemple). Si l’on prend par exemple un livre, il est caractérisé par ses propriétés : nombre de pages, titre, nombre de chapitres, éditeur, contenu, etc. Chacune de ses propriétés peut être spécifique à chaque livre, mais tous les livres possèdent fondamentalement les mêmes propriétés. Certaines propriétés des objets peuvent être modifiées (vitesse d’une voiture par exemple) et d’autres non (une marque de voiture).

En programmation VBA, la syntaxe générale d’accès aux propriétés d’un objet est la suivante :

UnObjet.SaPropriete 

On accède ici à la propriété SaPropriete de l’objet UnObjet. La combinaison MonObjet.SaPropriete aura le même comportement qu’une variable classique, pouvant prendre une valeur ou retourner une valeur avec l’utilisation de l’opérateur =.

Par exemple, il est possible de lire le contenu SQL d’une requête Access et de l’afficher avec le code suivant :...

1. L’objet Application

L’objet Application correspond à l’application Microsoft Access active.

1. Instruction Set

Contrairement à l’affectation d’une valeur à une variable de type simple (numérique, booléen, date, etc.), l’affectation d’une valeur à une variable ayant comme type un objet s’effectue à l’aide du mot-clé Set.

La syntaxe générale est la suivante :

Set monObjet = [New] InstructionMenantAlObjet 

Le mot-clé New permet de créer une nouvelle instance d’un objet. Si l’objet est déjà existant, il n’est pas nécessaire d’utiliser ce mot-clé. InstructionMenantAlObjet peut correspondre au nom d’un objet ou à une variable objet de même type.

Par exemple ici, si l’on souhaite affecter à la variable tbl la table ENI_CONTRAT_CON, le code sera le suivant :

Dim tbl As TableDef 
Set tbl = CurrentDb.TableDefs("ENI_CONTRATS_CON") 

Réinitialisation de la variable objet

Il est possible de réinitialiser une variable objet grâce à l’instruction suivante :

Set MonObjet = Nothing 

2. Instruction With/End With

Pour modifier les différentes propriétés d’un objet, il peut être long et lassant pour le programmeur de répéter le chemin d’accès à cet objet pour chaque propriété que l’on souhaite modifier.

Par exemple avec les lignes de manipulation d’un formulaire :

'Le formulaire F_EMPLOYE_Detail est préalablement ouvert 
Forms("F_EMPLOYE_DETAIL").Caption = "Nouvelle Fiche" 
Forms("F_EMPLOYE_DETAIL").Controls("EMP_DEBUT_EMPLOI").Value=Date 
Forms("F_EMPLOYE_DETAIL").Controls("EMP_DEBUT_EMPLOI").SetFocus 

L’instruction With permet d’effectuer toutes ces manipulations du même objet sans avoir à le répéter...

1. Les modules de classes

Afin de manipuler des objets qui seront créés par le développeur, on pourra utiliser les modules de classes.

Les modules de classes se définissent ainsi :

Une fois ces éléments définis dans un module de classe, on peut créer un nouvel objet correspondant à cette définition. La syntaxe générale pour y arriver est la suivante :

Dim NomObjet As New NomDeClassePersonnalisee 

L’appel aux modules de classes reste une utilisation qui s’adresse d’abord aux développeurs chevronnés.

Dans la suite des exemples, nous définirons une classe représentant un contrat.

Nous utiliserons donc une classe nommée clsContrat. Dans le menu Insertion, on sélectionne Module de classe :

Dans la zone...