XL 2016 Pilotage TCD via Textbox dynamique

[saidoush]

Bonjour à tous,

je suis parent d'élève depuis longtemps et je souhaitais mettre en place un fichier avec un TCD qui recenserait les documents transmis par éléve.

Jusque là je me servais de segments, mais compte tenu du grand nombre d’élèves c'est... pénible.

je voudrais rentrer le nom de l'élève dans une texbox et que le tcd se filtre automatiquement sur son nom avec l'ensemble des documents remis en vert et manquant en rouge.

Merci et profitez bien de vos vacances!!!




j'ai ça comme ébauche :

pour la texbox :

Private Sub TextBox1_Change()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim searchStr As String

Set ws = ThisWorkbook.Sheets("Collège...")
Set pt = ws.PivotTables("TCDélèves")
Set pf = pt.PivotFields("Noms")

searchStr = TextBox1.Text


For Each pi In pf.PivotItems
If LCase(pi.Name) Like LCase("*" & searchStr & "*") Then
pi.Visible = True
Else
pi.Visible = False
End If
Next pi
End Sub

pour le bouton :

Sub FilterPivotTable()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim searchStr As String

Set ws = ThisWorkbook.Sheets("Collège...")
Set pt = ws.PivotTables("TCDélèves")
Set pf = pt.PivotFields("Noms")

searchStr = ws.OLEObjects("TextBox1").Object.Text


For Each pi In pf.PivotItems
If LCase(pi.Name) Like LCase("*" & searchStr & "*") Then
pi.Visible = True
Else
pi.Visible = False
End If
Next pi
End Sub

 

[goube]

Bonsoir,
Une proposition à tester.
Cordialement.

 

[saidoush]

Bonsoir,
Une proposition à tester.
Cordialement.

bonsoir,

vraiment top.
je veux quand même comprendre :
-à partir des données de base tu fais une première requête Power query dans laquelle tu fusionnes les colonnes Nom et prénom, tu obtiens une liste_élèves[Noms-Prénoms], puis une autre requête Data pour les éléments recherchés "cotisations...", par contre la 3ème?? pour la zone de recherche TdB$B$2 peut être...

-par contre les formules decaler imbriqué pfff je ne maitrise pas...

en tant qu'amateur, je trouve ça génial!!!
Merci.

 

[goube]

Bonsoir,

La troisième est le résultat du choix de la liste déroulante en B2 de l'onglet TdB, elle permet de filtrer la requête Data pour obtenir les éléments voulus.
Cordialement

 

[saidoush]

Bonsoir,

La troisième est le résultat du choix de la liste déroulante en B2 de l'onglet TdB, elle permet de filtrer la requête Data pour obtenir les éléments voulus.
Cordialement

Hey!!! bonjour,

j'ai tenté de refaire ton petit projet mais je bloque à cette même 3ème...

Faut il que j'appelle une nouvelle requête à partir de quoi ? la cellule TdB$B$2 n'est pas un tableau...
je bloque...

(j'ai réussi entre temps)
j'ai créé f_Eleve dans le gestionnaire de nom =DECALER(p_Eleve;0;0;NBVAL(l_Eleve);1)
mais rien...
il faut l'affecter à une cellule??

Merci

 

[saidoush]

Bjr,

Pour ma curiosité, quelqu'un pourrait me dire si est possible de passer par une texbox plutot que par des segments pour filtrer un TCD ??
Merci

 

[goube]

Bonjour,

La notice pour la liste déroulante dynamique.

Pour filtrer les TCD les segments sont tops, sinon utilise directement le filtre du TCD.

 

[saidoush]

Bonjour,

La notice pour la liste déroulante dynamique.

Pour filtrer les TCD les segments sont tops, sinon utilise directement le filtre du TCD.

wow c'est plus que très bien comme fiche!!!

effectivement les segments sont topissime mais dès qu'on commence à avoir plus de 1000 élèves c'est je le répète "pénible"

je vais me pencher sur votre fiche.
Merci.

 

[goube]

Bonjour,

Pas assez doué en VBA pour voir d'où peut provenir le problème sans le fichier.
Essaie avec
https://www.transfernow.net/en
ou
https://www.swisstransfer.com/fr-fr
Cordialement

 

[saidoush]

C'est les vacances..., je sais
C'est le début des JO..., je sais
Mais, quelqu'un aurait une idée

Petite confusion...
Goube tu es au top!!!
Voici le lien

https://www.swisstransfer.com/d/d5c7c488-d0f3-4009-839a-1b25bb634470

Merci!!!

 

[goube]

Re,

Le problème semble venir de la création du TCD à l'étape du formatage du Prix.
Cordialement.

 

[saidoush]

Re,

Le problème semble venir de la création du TCD à l'étape du formatage du Prix.
Cordialement.

Ah bon...??
Pourtant le tcd apparaît parfaitement complet et conforme à mes attentes...
Merci

 

[goube]

re,
Essaie d'utiliser le pas à pas détaillé dans l'onglet Développeur, Débogage (F8)
Mets un point d’arrêt sur la ligne
.PivotFields("Prix").Orientation = xlDataField
et fais F8
Cordialement

 

[goube]

re,
Si j'ai bien compris, une version PQ.
Cordialement

 

[saidoush]

re,
Si j'ai bien compris, une version PQ.
Cordialement

Goube,
Je te remercie infiniment pour ton implication, c'est exactement ce que je recherche comme procédure. Mais il me manque la finalité, celle du TCD pour que la ligne qui est filtrée soit la référence d'un tableau de bord qui évolue en fonction de la personne filtrée. C'est ce que je veux faire en tout cas.

Merciiiiii