Les modéle Objet d’ EXCEL 1. Les objets La programmation VBA consiste a travailler sur une hiérarchie d’ objets. Tout en haut de cette higrarchie trdne l'objet Application, qui représente ici Excel lui-méme, mére de tous les objets. Lobjet Application contient d'autres objets, dont voici une liste partielle : * Addin (macro complément Window (fenétre). © Workbook (classeur). * WorksheetFunction (fonction de feuille de calcul). Chacun des objets présents dans l’objet Application peut en contenir d'autres. Voiei par exemple une liste d’objets susceptibles de se trouver dans l'objet Workbook * Chart (une feuille de graphique). © VBProject (projet Visual Basic). * Window (fenétre) * Worksheet (feuille de calcul) A leur tour, chacun de ces objets peut en contenir d'autres. Prenons par exemple un objet Worksheet, qui se trouve dans l'objet Workbook, qui lui-méme appartient a l'objet Application. Les objets que peut contenir cet objet sont Comment (commentaire) Hyperlink (lien hypertexte). ‘Name (nom). PageSetup (mise en page). PivotTable (tableau croisé dynamique). Range (plage de cellules) 2. Les collections Les collections sont un autre concept-clé de la programmation VBA. Une collection est un. groupe d’objets du méme type. Et c’est aussi un objet. collection de tous les objets Workbook (classeur) actuellement ouverts + collection de tous les objets Worksheet (feuille de calcul) contenus dans ‘un objet Workbook douné. # Charts : collection de tous les objets Chart (feuille de graphique) contenus dans un objet Workbook donné. Remarque : grice 4 ce concept, le code VBA peut passer en revue tous les membres dune méme collection et leur appliquer une ou plusieurs actions désirées.3. Lraccés aux objets ‘VBA permet de faize référence & un objet de différentes fagons. On peut soit utiliser le auméro de sa position dans la collection, soit son nom. “permet de faire référence & la plage de cellules A1:B4 et renvoie un objet Range Worksheets(1) ‘permet de faire référence 4 la premiére feuille de calcul du classeur actif et renvoie un objet “Worksheet. Workbooks("[Link]").Worksheets("Feuili") “permet de faire référence a la feuille de calcul de nom Feuill du classeur de nom *[Link] et renvoie un objet Worksheet. Remarque : La notation Workbooks("Classeurl xls"), Worksheets("Feuill") est une notation raccourcie pour Application. Workbooks("Classeurl .xls"), Worksheets("Feuill"). Lobjet Application peut, en effet, toujours étre omis, 4. Les propriétés des objets Chaque objet est défini par un ensemble de propriétés, qui représentent les caractéristiques de objet. [Link] La propriété Value en VBA pour Excel est utilisée pour lire ou écrire la valeur d'une cellule. Cette propriété est extrémement polyvalente et peut étre utilisée dans divers contextes, que ce soit pour assigner une valeur 4 une cellule, récupérer la valeur d'une cellule ou méme effectuer des opérations basées sur la valeur d'une cellule. Exempl ‘Workbooks(""[Link]" ).Sheets("Feuil2").Range("A4").Value = "vba" ‘donner une valeur a la Cellule A4 de la feuille 2 du classeur 2 4.2. Font Font en VBA permet de définir les attributs de police pour le texte dans une cellule, tels que la taille, le style, la couleur, etc. Exemple : Range("C3").[Link] = 14 ' Définition de la taille de la police 14 points Range("C3")[Link] = True ' Activation de la mise en gras du texte Range("C3").Font Italic = False ' Désactivation de litalique du texte Range("C3")[Link] = RGB(0, 0, 255) ' Définition de la couleur de la police en bleu Range("B2") Interior. Color = RGB(O, 128, 0) ‘Définition de la couleur de fond de la cellule[Link] Liutilisation de lobjet Borders implique de spécifier le type de bordure que fon soubaite modifier (bordure supérieure, inférieure, gauche, droite, ete.) Exempl Range("A1").[Link] = x1Continuous ' Définir le style de la bordure Range("A1").[Link] = RGB(255, 0, 0) ' Définir la couleur de toutes les bordures 5. Les méthodes des objets ‘Une méthode est une action effectuée avec un objet. Elle peut modifier les propriétés d°un objet ou faire en sorte que l'objet effectue une certaine action. Exempl Range("A1:A12").ClearContents ‘effacer le contenu de douze cellules de la feuille active ‘Worksheets("Feuil1”). Activate * activer la feuille de caleul "Feuill” Range("A1"),Copy Range("B1") "copier le contenu de la cellule "Ai" dans la cellule "B1" Worksheets. Add * ajouter une nouvelle feuille au classeur actif Range("AL:B6") Select ‘sélecionner la plage de cellule "A1:B6" Selection Font-Bold = True "Ia mettre en gras Selection. Value = "Bonjour" "tui affecter la chaine de caractére "Bonjour" 6. Linstruction With ... End With Liinstruction With ... End With est utilisée lorsque les références & un objet sont répétés plusieurs fois dans une petite section de code. Exemple: Sub ModifiePolice(MaPlage As Range) MaPlage Select Selection. Font Size = 12 Selection. Font Colorindex = 3 Selection Font Italic = True End Sub La macro ModifiePolice peut étre réécrite plus simplement comme suit : Sub ModifiePolice(MaPlage As Range) MaPlage Select With Selection Font Size= 12ColorIndex = 3 Italic = True End With End Sub Remarque : Tout ce qui commence par un point dans un bloc d’instructions With...End With est une propriété ou une méthode de I’objet qui suit l'instruction With 7. La boucle For each Cette boucle permet de parcourir les cellules, une & une, d'une plage de cellule sélectionnée. Exemple : Dim cellule, zone as Range Set zone= Range(“AL:DS”) For Each cellule in zone Cellule. Value Cellule, Value+1 Next cellule