Librairie de contrôles arbres, grilles et listes pour Access et Excel

Office ne propose pas d'arbre ou de liste élaborée dans sa liste de contrôles standards.

Il existe des contrôles ActiveX (Common Controls VB6) qui peuvent vous donner satisfaction : Microsoft TreeView ou ListView.
Mais ces contrôles Microsoft ne sont pas compatibles avec les versions 64bits d’Office.

Les contrôles de cette librairie ont été développés en VBA à l'aide de clGdiplus ou clGdi32.

Ce ne sont pas des contrôles ActiveX ; ils se présentent sous la forme d’une librairie qu’il faut référencer à son projet (il est également possible d’importer les éléments de la librairie).

Ils sont compatibles 64bits et fonctionnent sur les versions d’Access et Excel 2000 ou supérieures.

Voici un aperçu de ce qu'il est possible de réaliser :

TGL signifie Tree Grid List.

Cette librairie fonctionne avec Access et Excel 2000 ou supérieur, 32 ou 64bits.

Merci à jacques_jean pour sa relecture orthographique.

La librairie existe en deux versions : Gdi+ ou Gdi32.

La version Gdi+ offre en plus :

• l'accès aux données Exif des photos, notamment la miniature Exif pour un affichage rapide ;
• un lissage plus efficace des images ;
• un plus grand nombre de formats d'images reconnus ;
• la transparence des menus du contrôle « Liste d'images ».

Privilégiez la version Gdi+, sauf si vous ciblez des versions de Windows antérieures à XP.

Gdi32 est intégré à toutes les versions de Windows.
Gdi+ est intégré à Windows à partir de la version XP.
Pour une utilisation de Gdi+ avec une version de Windows plus ancienne, placez le fichier gdiplus.dll dans le même répertoire que votre application.
Lien vers la libraire Gdi+ en téléchargement sur Microsoft.com

Les droits d’administrateur ne sont pas nécessaires.

  Téléchargez la librairie LibTGL pour Access :

• version mdb (à partir d’Access 2000) : Version Gdi32 ou Version Gdi+ ;
• version accdb (à partir d’Access 2007) : Version Gdi32 ou Version Gdi+.

  Placez le fichier téléchargé et décompressé LibTGL32.mdb ou LibTGLplus.mdb (ou accdb) dans le même répertoire que l’application que vous développez (ou dans un sous-dossier de l’application).

  Ouvrez ensuite l'éditeur VBA dans votre application :

Raccourci clavier : ALT + F11.

Ou par le menu :

  Ouvrez la fenêtre des références :

Dans le menu : Outils => Références ….

Cliquez sur le bouton Parcourir et sélectionnez le fichier LibTGL32.mdb ou LibTGLplus.mdb (ou accdb).
Pensez à choisir le type de fichier mdb (ou accbd) dans la liste déroulante en bas de la fenêtre pour pouvoir sélectionner le fichier.

Cliquez sur ouvrir pour ajouter la librairie en référence du projet.

La librairie LibTGL apparaît alors dans les références :

  Ensuite il est nécessaire d'importer un formulaire de la librairie dans votre application :

Recherchez le fichier LibTGL32.mdb ou LibTGLplus.mdb (ou accdb).

Puis choisissez le formulaire subFormLibTGLControl et cliquez sur OK.

  Votre application est maintenant prête à utiliser les contrôles de la librairie.

Les droits d’administrateur ne sont pas nécessaires.

  Téléchargez la librairie LibTGL pour Excel :

• Version xla (à partir d’Excel 2000) : Version Gdi32 ou Version Gdi+ ;
• Version xlam (à partir d’Excel 2007) : Version Gdi32 ou Version Gdi+.

  Placez le fichier téléchargé et décompressé LibTGL32.xla ou LibTGLplus.xla (ou xlam) dans le même répertoire que l’application que vous développez (ou dans un sous-dossier de l’application).

  Ouvrez ensuite l'éditeur VBA dans votre application :

Raccourci clavier : ALT + F11.

Ou par le menu :

Si vous ne voyez pas l’onglet « Développeur » :

Pour Excel 2007 : Bouton Office => Options => Standard :

Pour Excel 2010 et supérieur : Bouton Fichier => Options => Personnaliser le ruban :

  Ouvrez la fenêtre des références :

Dans le menu : Outils => Références ….

Cliquez sur le bouton Parcourir et sélectionnez le fichier LibTGL32.xla ou LibTGLplus.xla (ou xlam).
Pensez à choisir le type de fichier xla ou xlam dans la liste déroulante en bas de la fenêtre pour pouvoir sélectionner le fichier.

Cliquez sur ouvrir pour ajouter la librairie en référence du projet.

La librairie LibTGL apparaît alors dans les références :

  Votre application est maintenant prête à utiliser les contrôles de la librairie.

Lorsque vous déployez votre application, vous devez fournir le fichier librairie LibTGLxxx.

Le chemin où est déposée l’application sur les postes utilisateurs n’importe pas.

Il faut par contre respecter le chemin relatif dans lequel est placé le fichier de librairie LibTGLxxx.

Si vous ne souhaitez pas gérer une librairie externe à votre application, vous pouvez importer les objets.

Dans cas, la référence à LibTGL est bien entendu inutile.

Importez au minimum :

Puis en fonction des contrôles utilisés :

Modifiez ensuite le module ModLibTGL importé :

Mettez à False les constantes qui correspondent aux contrôles que vous n’utilisez pas :

#Const useCtrlTree = True
#Const useCtrlTreeExplorer = False
#Const useCtrlImageList = False
#Const useCtrlImageListExplorer = False
#Const useCtrlGrid = False
#Const useCtrlGridExplorer = False

Et enfin, gérez les arguments de compilation du projet VBA :

Dans le menu de l’éditeur VBA, « Outils » => « Propriétés de XXX… ».

Si vous utilisez clGdiplus, ajoutez un argument TGLUseGdiplus = -1 :

Si vous utilisez Excel, ajoutez un argument TGLUseUserform = -1.

Si vous utilisez à la fois clGdiplus et Excel, écrivez les deux constantes séparées par un signe deux points : TGLUseGdiplus = -1 : TGLUseUserform = -1.

Ces opérations seront à refaire ou vérifier à chaque mise à jour de cette librairie.

Pour débuter, nous allons créer un arbre et le remplir avec quelques éléments.

VII-A. Ajout du contrôle sur un formulaire▲

VII-A-1. Pour Access▲

Chaque contrôle de la librairie est hébergé dans un sous-formulaire.

Dans votre formulaire, ajoutez donc un sous-formulaire :

Utilisez en objet source le formulaire importé de la librairie : subFormLibTGLControl.

Donnez au contrôle sous-formulaire un nom parlant : subFormTree par exemple, nous allons créer un arbre pour notre premier contrôle.

Redimensionnez le sous-formulaire à la taille désirée.

Vous pouvez à partir d'Access 2007 utiliser les paramètres d'ancrage pour redimensionner automatiquement le contrôle sous-formulaire lors du redimensionnement du formulaire parent.

VII-A-2. Pour Excel▲

Chaque contrôle de la librairie est hébergé dans un cadre contenant une image (contrôle de type Frame).

Ajoutez un cadre (bouton XYZ) à votre formulaire, et placez-y un contrôle image (bouton avec la montagne).

Donnez au contrôle cadre un nom parlant : subFormTree par exemple, nous allons créer un arbre pour notre premier contrôle.

Le nom du contrôle image n’a pas d’importance.

Videz la propriété « Caption » du cadre, sinon l’affichage ne sera pas correct.
Il ne doit pas y avoir de titre en haut à gauche du cadre.

VII-B. Initialisation du contrôle▲

Private WithEvents oTree As CtrlTree

Private Sub Form_Load()
Set oTree = CreateTGLControl(CtrlTree, Me.subFormTree)
End Sub

VII-C. Ajout d'élément au contrôle▲

Private Sub Form_Load()' UserForm_Initialize pour Excel
Set oTree = CreateTGLControl(CtrlTree, Me.subFormTree)
' Ajoute un élément racine
With oTree.ElementAdd("Element Racine n°1")
    ' Ajoute 2 fils à cet élément (.key est l'identifiant de l'élément)
    oTree.ElementAdd "Element Fils 1", , .Key
    oTree.ElementAdd "Element Fils 2", , .Key
End With
' Ajoute un deuxième élément racine
With oTree.ElementAdd("Element Racine n°2")
    ' Ajoute 3 fils à cet élément
    oTree.ElementAdd "Element Fils 1", , .Key
    oTree.ElementAdd "Element Fils 2", , .Key
    oTree.ElementAdd "Element Fils 3", , .Key
End With
' Redessine le contrôle
oTree.Refresh
End Sub

VII-D. Utilisation du contrôle▲

Affichez le formulaire : vous voyez les deux éléments racines.

Double-cliquez sur un nœud pour le dérouler ou le replier.

VII-E. Gérer les événements du contrôle▲

Chaque contrôle expose des événements très utiles.

Les événements sont utilisables si la variable objet à été définie avec le mot-clé WithEvents, ce que nous avons fait.

Pour accéder à ces événements, choisissez votre variable objet dans la liste déroulante en haut à gauche du module de code.

Puis sélectionnez l'événement dans la liste déroulante en haut à droite du module de code.

La procédure événementielle se crée, il suffit ensuite d'ajouter le code souhaité à l'intérieur :

Procédure événementielle

Sélectionnez

Private Sub oTree_ActiveElementChanged(pElement As LibTGL.CtrlTreeElement)
            
End Sub

Par exemple on affiche le texte de l'élément actif dans la barre d'état (barre en bas de l'application).

Si aucun élément n'est actif on réinitialise la barre d'état.

Affichage de l'élément actif dans la barre d'état

Sélectionnez

Private Sub oTree_ActiveElementChanged(pElement As LibTGL.CtrlTreeElement)
If pElement Is Nothing Then
    SysCmd acSysCmdClearStatus
Else
    SysCmd acSysCmdSetStatus, "Sélection de " & pElement.Text
End If
End Sub

VIII-A. Objets contrôles▲

VIII-B. Autres objets▲

VIII-C. Enumérations▲

  Téléchargez la librairie LibTGL pour Access :

• version mdb (à partir d’Access 2000) : Version Gdi32 ou Version Gdi+ ;
• version accdb (à partir d’Access 2007) : Version Gdi32 ou Version Gdi+.

  Téléchargez la librairie LibTGL pour Excel :

• version xla (à partir d’Excel 2000) : Version Gdi32 ou Version Gdi+ ;
• version xlam (à partir d’Excel 2007) : Version Gdi32 ou Version Gdi+.

  Téléchargez les applications de démonstration :

• version Access mdb (à partir d’Access 2000) : Version Gdi32 ou Version Gdi+ ;
• version Excel xla (à partir d’Excel 2000) : Version Gdi32 ou Version Gdi+.