Filtre via combobox sur tabstrip

Version imprimable

Bonjour,
Je souhaite faire un filtre sur un tabstrip depuis un combobox voir deux (en cascade) mais si c'est déjà un ce serait super.
J'arrive à filtrer sur le nombre de tabs, mais impossible de renommer les tabs et encore moins de modifier les éléments des pages tabs
Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub FiltreAxe_Change() Me.TabStrip1.Value = -1 'tabstrip no index start Do While TabStrip1.Tabs.Count > 1 TabStrip1.Tabs.Remove (1) 'remove all but first tab Loop For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row - 1 'boucle 1 = boucle sur tous les projets de la liste If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then With GestionProjet.TabStrip1 .Tabs.Add .Tabs(i).Caption = Sheets("Liste projet").Cells(i + 1, 4).Value End With Axestrat = Sheets("Liste projet").Cells(i + 1, 2).Value Thème = Sheets("Liste projet").Cells(i + 1, 3).Value NomRéduit = Sheets("Liste projet").Cells(i + 1, 5).Value Réferent = Sheets("Liste projet").Cells(i + 1, 6).Value Datedébutprojet = Sheets("Liste projet").Cells(i + 1, 9).Value Datefinprojet = Sheets("Liste projet").Cells(i + 1, 10).Value End If Next i End Sub
Le début c'est pour effacer les tabs, car on est pas obligé de passer par les filtres, donc lors de l'initialize toute la bdd est affichées.
J'ai donc un bug sur le caption (ligne 13), et les données des contrôles ne se modifie pas lors du changement de tabs (ligne 15 à 20), on a à chaque fois la première valeur issue du filtre.
Sauriez-vous me conseiller?
Cordialement.

18/04/2023, 18h22
Toro74

1 pièce(s) jointe(s)

Voici, si cela peut aider une version expurgée du tableur en question.
19/04/2023, 12h29
Philippe Tulliez

Bonjour,
Mon billet titré VBA - Excel - Comment filtrer et charger des données en fonction de la sélection d'un onglet du TabStrip vous aidera peut-être.

L'exemple qui sert d'illustration est un ListBox mais c'est la même syntaxe que pour un ComboBox
24/04/2023, 09h54
Toro74

Bonjour Philippe,
Je vous remercie pour le lien.
C'est instructif mais je n'ai pas réussi à l'adapter à mon besoin. Sachant que le nombre de tabs n'est pas fixe, il faut peut être passer par une boucle.
24/04/2023, 18h10
Philippe Tulliez

Bonjour,

Citation:

Sachant que le nombre de tabs n'est pas fixe, il faut peut être passer par une boucle

Avez-vous lu l'article qui le précède VBA-Excel - Comment créer dynamiquement les onglets d'un contrôle TabStrip à l'aide d'une fonction générique ?
25/04/2023, 09h18
Toro74

Bonjour Philippe,
La boucle pour la création des tabs fonctionne, c'est le fait de mettre un filtre qui vient poser un problème
"J'ai donc un bug sur le caption (ligne 13), et les données des contrôles ne se modifient pas lors du changement de tabs (ligne 15 à 20), on a à chaque fois la première valeur issue du filtre."

1 pièce(s) jointe(s)

J'ai quand même essayé d'appliquer ce code mais cela ne fonctionne pas.
Erreur membre de méthode ou de donnée introuvable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Function TabStripAddTabs(oTabStrip As MSForms.TabStrip, _
                         Captions As Variant, _
                         Optional MultiLine As Boolean = True, _
                         Optional Orientation As fmTabOrientation)
  ' Philippe Tulliez (https://magicoffice.be)
  ' Arguments
  '   oTabStrip      l'Objet TabStrip
  '   Captions       Array (1 dimension) contenant les noms à passer à la propriété Caption des Tab
  '   [MultiLine]    Si True (défaut), affiche les onglets sur plusieurs lignes si elle ne peuvent pas être affichée sur une seule
  '   [Orientation]  Orientation des Tabs (fmTabOrientationBottom, ..Left, ..Right, ..Top)
  '
  ' Déclaration et affectation
  Dim e As Byte
  With oTabStrip
  .Tabs.Clear                   ' Efface tous les onglets
  .TabOrientation = Orientation ' Orientation des onglets (Tabs)
  .MultiRow = MultiLine         ' Défini la propriété MultiLine
    For e = LBound(Captions) To UBound(Captions)
    .Tabs.Add bstrCaption:=Captions(e)
    Next
  End With
End Function
Option Explicit 'oblige à déclarer toutes les variable
Private i As Integer 'déclare la variable I (Incréments)
 
Private Sub FiltreAxe_Change()
Dim t As Variant
For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row - 1
t = Array(Sheets("GestionProjet").Cells(i + 1, 4).Value)
  With GestionProjet
   TabStripAddTabs oTabStrip:=.tabDynamic, Captions:=t
  .Show
  End With
 
 
Axestrat = Sheets("Liste projet").Cells(i + 1, 2).Value
Thème = Sheets("Liste projet").Cells(i + 1, 3).Value
NomRéduit = Sheets("Liste projet").Cells(i + 1, 5).Value
Réferent = Sheets("Liste projet").Cells(i + 1, 6).Value
Datedébutprojet = Sheets("Liste projet").Cells(i + 1, 9).Value
Datefinprojet = Sheets("Liste projet").Cells(i + 1, 10).Value
End If
Next i
End Sub
 
 
Private Sub TabStrip1_Change()
If FiltreAxe = "" Then
 
Dim i As Integer
For i = 0 To TabStrip1.Tabs.Count - 1
  Select Case TabStrip1.Value
                Case i
Axestrat = Sheets("Liste projet").Cells(i + 1, 2).Value
Thème = Sheets("Liste projet").Cells(i + 1, 3).Value
NomRéduit = Sheets("Liste projet").Cells(i + 1, 5).Value
Réferent = Sheets("Liste projet").Cells(i + 1, 6).Value
Datedébutprojet = Sheets("Liste projet").Cells(i + 1, 9).Value
Datefinprojet = Sheets("Liste projet").Cells(i + 1, 10).Value
 
End Select
Next i
End If
 
If FiltreAxe <> "" Then
For i = 0 To TabStrip1.Tabs.Count - 1
Select Case TabStrip1.Value
                Case i
 
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then Axestrat = Sheets("Liste projet").Cells(i + 1, 2).Value
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then Thème = Sheets("Liste projet").Cells(i + 1, 3).Value
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then NomRéduit = Sheets("Liste projet").Cells(i + 1, 5).Value
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then Réferent = Sheets("Liste projet").Cells(i + 1, 6).Value
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then Datedébutprojet = Sheets("Liste projet").Cells(i + 1, 9).Value
If Sheets("Liste projet").Cells(i + 1, 2).Value = FiltreAxe Then Datefinprojet = Sheets("Liste projet").Cells(i + 1, 10).Value
End Select
 
Next i
End If
 
 
End Sub
 
Private Sub UserForm_Initialize()
With Sheets("liste")
FiltreAxe.List = .Range("A1:S4").Value
FiltreRéférent.List = .Range("B1:B10").Value
End With
 
Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
Me.top = Application.top + Application.Height / 2 - Me.Height / 2
 
For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row - 1 'boucle 1  = boucle sur tous les projets de la liste
 
With GestionProjet.TabStrip1
              .Tabs.Add
              .Tabs(i).Caption = Sheets("Liste projet").Cells(i + 1, 4).Value
End With
Next i
 
TabStrip1.Tabs(0).Visible = False
TabStrip1.Tabs(1).Visible = False
TabStrip1.Tabs(2).Visible = False
TabStrip1.Tabs(3).Visible = False
TabStrip1.Tabs(4).Visible = False
 
End Sub

25/04/2023, 12h48
Philippe Tulliez
Bonjour,
C'est normal que vous ayez une erreur mais d'autres vont se manifester.
Voici une liste non exhaustive de problèmes que j'ai relevé
- La fonction nommée TabStripAddTabs dont j'ai publié le code dans le billet titré Comment créer dynamiquement les onglets d'un contrôle TabStrip à l'aide d'une fonction générique doit être placée dans un module standard et pas dans le UserForm
- En ligne 29 du code que vous avez publié vous utilisez mal la fonction Array que vous avez intégré en plus dans une boucle. Pourquoi ?
  A lire Utiliser les variables tableaux en VBA Excel et tout particulièrement le chapitre VI. La fonction Array
- Vous invoquez le fonction TabStripAddTabs également dans cette boucle alors qu'elle ne doit l'être qu'à un seul moment, à la création du formulaire et éventuellement, si le nom des onglets dépend d'une autre sélection, au moment d'une sélection dans un complément (ListBox, ComboBox par exemple)
- Vous utilisez une plage de cellules "classique" alors que dans mon billet, j'utilise les tableaux structurés
- Etc.
25/04/2023, 13h48
Toro74

Code:

En ligne 29 du code que vous avez publié vous utilisez mal la fonction Array que vous avez intégré en plus dans une boucle. Pourquoi ?

C'est là tout le problème, votre exemple, les tabs sont fixes, mon besoin, c'est pour une plage variable dont je souhaite pouvoir filtrer le nombre selon la valeur d'un combobox.

Code:

Vous utilisez une plage de cellules "classique" alors que dans mon billet, j'utilise les tableaux structurés

Oui votre tableau est fixe et le mien s'incrémente au fur à mesure nouvelle donnée.
N'ayant pas d'autre proposition, j'ai essayer d'utiliser votre code sans résultat.

Code:

vous invoquez le fonction TabStripAddTabs également dans cette boucle alors qu'elle ne doit l'être qu'à un seul moment, à la création du formulaire et éventuellement, si le nom des onglets dépend d'une autre sélection, au moment d'une sélection dans un complément (ListBox, ComboBox par exemple)

Comme je l'expliquais au départ,

Code:

je souhaite faire un filtre sur un tabstrip depuis un combobox

mon besoin c'est donc un tabs dont le nombre varie en fonction du résultat d'un combobox donc oui le nombre de tabs varie après initialisation.
25/04/2023, 16h16
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
Je vois que vous avez la version 365 donc vous pouvez utiliser les fonctions FILTREet UNIQUE.
J'illustre dans mon billet VBA - Excel - Comment filtrer et charger des données en fonction de la sélection d'un onglet du TabStrip comment utiliser la fonction FILTER imbriquée dans la fonction Evaluate pour filtrer des données et dans l'un de mes autres billets titré VBA - EXCEL Comment renvoyer dynamiquement les valeurs uniques de la colonne d'un tableau (ListObject) , je publie le code d'une fonction générique nommée GetUniqueValue avec deux options dont l'une utilise la fonction UNIQUE imbriquée dans Evaluate et vous verrez en Exemple 3 la création dynamique des onglets d'un TabStrip en utilisant la procédure GetUniqueValue

Cependant dans le cas qui vous occupe, à savoir créer dynamiquement les onglets d'un TabStrip en fonction des éléments filtrés dans deux ComboBox, vous pouvez utiliser la formule ci-dessous

Code:

=UNIQUE(INDEX(FILTRE(t_Subvention; (t_Subvention[Axes Stratégiques]="Axe 1") * (t_Subvention[Thèmes]="Thème4"));;4))

que vous pouvez imbriquer dans Evaluate en la traduisant par

Code:

=UNIQUE(INDEX(FILTER(t_Subvention, (t_Subvention[Axes Stratégiques]="Axe 1") * (t_Subvention[Thèmes]="Thème4")),,4))

Le résultat renvoyé par cette formule est l'argument (Captions) à passer à la fonction TabStripAddTabs
Il faudra remplacer les constantes Axe 1 et Thème4 par les valeurs renvoyées par les ComboBox. J'ai utilisé pour l'exemple un tableau structuré que j'ai nommé t_Subvention

Illustration
Pièce jointe 637793
26/04/2023, 13h46
Toro74

1 pièce(s) jointe(s)

Bonjour Philippe,
Tout d'abord merci pour le temps passé sur mon problème. Ensuite, j'ai essayé dans un premier temps de reproduire l'exemple, cela fonctionne pour la première ligne mais les autres valeurs ne ressortent pas si on étend la formule.
Pièce jointe 637848
Ai-je loupé quelque chose?
26/04/2023, 14h06
Philippe Tulliez

Bonjour,
Les fonctions UNIQUE et FILTRE ne doivent pas être recopiées, elles se propagent d'office s'il y a plusieurs lignes à afficher.
26/04/2023, 14h55
Toro74

Il devrait y avoir une ligne qui se crée comme pour vous mais rien ne se passe;
J'ai pourtant deux occurences Axe 1 Thème 4
La formule s'est propagée sur la droite mais pas vers le bas.
26/04/2023, 15h08
Toro74

C'est bon, il y avait une petite différence entre les valeurs. Plus qu'à essayer de retranscrire cela dans un userform.