Préambule
Dans un billet précédent, titré Comment créer dynamiquement les onglets d'un contrôle TabStrip à l'aide d'une fonction générique, j'ai montré comment créer dynamiquement les onglets d'un objet TabStrip.
637494
Qu'est-ce qu'un TabStrip ?
Son aspect est proche de l'objet MultiPage mais la manière de l'utiliser est totalement différente.
Dans un MutliPage on peut afficher des contrôles différents par onglet tel que TextBox, ListBox, OptionButton, etc. alors que le TabStrip ne peut visuellement qu'avoir les mêmes contrôles.
Son usage est donc très approchant d'un OptionButton sa propriété Value renvoie un numéro. Le fait que l'on clique sur un onglet, le rend plus convivial à utiliser dans certaine circonstance.
Le but lorsque l'on sélectionne l'onglet d'un TabStrip étant d'obtenir les données correspondantes à cette sélection.
L'exemple
Pour illustrer ce billet, j'ai choisi comme exemple, d'afficher des données filtrées d'une liste des données de clients, Prospectou Suspects en fonction de la sélection d'un onglet du TabStrip
Pour rendre plus simple la compréhension de l’article et surtout pour se concentrer sur le sujet, à savoir, l’affichage dans un ListBox de données filtrées, on considérera que pour les contrôles :
- ListBox : les propriétés ColumnCount et ColumnWidth sont déjà définies
- TabStrip que le nombre d’onglet et la propriétés Caption sont définis.
Je me concentrerai donc dans cet article sur la procédure qui permet de filtrer les données en fonction de la sélection d’un onglet du TabStrip
La donnée source
La source de données est un tableau structuré nommé t_CRM et contient les données de Client, Prospect et Suspect. Le statut de ceux-ci est défini dans la colonne éponyme de la table.
637500
Le UserForm
Le UserForm nommé usf_TabStrip_Exemple contient 2 contrôles
- TabStrip nommé tabClient
Qui contient 3 onglets (Collection Tabs) dont la propriété Caption a comme valeur pour Tabs(0) Client, Tabs(1) Prospect, Tabs(2) Suspect
- ListBox nommé lst_Client
Il contient également 3 procédures : RefreshList qui actualise le ListBox et deux procédures événementielles UserForm_Activate et tabClient_Click qui n'ont comme rôle que d'invoquer la procédure RefreshList
637502
La procédure RefreshList
Cette procédure actualise le ListBox nommé lst_Client en évaluant la fonction FILTRER (FILTER pour VBA) et modifie le titre du formulaire
Au préalable elle remplace la balise
Code de la procédure
Private Sub RefreshList()
Const FormulaPattern As String = "=FILTER(t_CRM,t_CRM=
Dim Text As String
Dim FormulaText As String
With Me
With .tabClient
Text = .Tabs(.Value).Caption
' Remplace le texte de la formule en remplacant la balise
' par le nom de l'onglet sélectionné
FormulaText = Replace(FormulaPattern, "
End With
.Caption = "CRM - Liste des " & Text ' Modifie le titre du formulaire
.lst_Client.List = Evaluate(FormulaText) ' Charge le ListBox
End With
End Sub
Les procédures événementielles
Private Sub UserForm_Activate()
RefreshList '
End Sub
Private Sub tabClient_Click(ByVal Index As Long)
RefreshList '
End Sub
La fonction FILTRE / FILTER
La fonction FILTRE, FILTER pour la version anglaise est utilisée dans la procédure RefreshList par évaluation (fonction Evaluate de VBA). Cette fonction qui n'est disponible que pour les versions 365 pour Windows et Mac ainsi que pour le version Excel Web permet de filtrer des données suivant un ou plusieurs critères
Dans l'illustration on peut constater les données filtrées par rapport au mot qui se trouve en cellule C1 qui est le paramètre. Dans la procédure RefreshList on devra pratiquer de la même façon.
Le texte générique de la formule est la valeur de la constante FormulaPattern, ci-dessous, et le paramètre est représenté par la balise
=FILTER(t_CRM,t_CRM=) Pour obtenir le texte entier de la formule on utilisera la fonction Replace pour remplacer cette balise par la valeur de la propriété Caption de l'onglet sélectionné
637509
Ressources
Voici une liste de tutoriels ou billets en rapport avec cet article.
- VBA-Excel - Comment créer dynamiquement les onglets d'un contrôle TabStrip à l'aide d'une fonction générique
- Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
- Excel: Les tables de données en VBA
- Utiliser les UserForm en VBA Excel
- Utiliser les contrôles dans un UserForm, en VBA Excel
Un fichier de démonstration en téléchargement
Soutenez le club developpez.com en souscrivant un abonnement pour que nous puissions continuer à vous proposer des publications.