Philippe Tulliez

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.



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.



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



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 <CRITERIA> du modèle de la formule par le nom de l'onglet sélectionné
Code de la procédure

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub RefreshList()
  Const FormulaPattern As String = "=FILTER(t_CRM,t_CRM[Statut]=<Criteria>)"
  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 <Criteria>
    '    par le nom de l'onglet sélectionné
    FormulaText = Replace(FormulaPattern, "<Criteria>", Chr(34) & Text & Chr(34))
   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

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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 <Criteria>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FILTER(t_CRM,t_CRM[Statut]=<Criteria>)

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é



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