Discussion :

[Aureus Magnus]

Bonjour,

Pour mon travail, je dois réaliser une interface simple de présentation de donnée.
J'ai une feuille ("TCD Magasin") contenant un TCD ("TCD") avec un champ de rapport "Numero Job", qui me permet de filtrer après avoir selectionner le job et le valider avec "Optionbutton1" (si vous pourriez m'indiquer comment m'en débarrasser, je suis preneur).
J'ai créer une listbox avec la liste de tous ces numéros de job, dans la listbox6.
Mais je n'arrive pas à lier les deux. Après moult recherches, j'ai une erreur que je ne comprends pas "Application-defined or object-defined error" pour la ligne 6.
Pouvez-vous m'aider?
J'ai essayer avec une combobox mais je n'y arrive pas non plus.

Code pour le choix du numéro de Job

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
Sheets("TCD Magasin").Activate
With ActiveSheet
.PivotTables("TCD").PivotFields("Numero Job").ClearAllFilters
.PivotTables("TCD").PivotFields("Numero Job").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="userform1.listbox6.Value"
End With
 
End Sub

Macro listbox

Code :

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

1
2
3
'Macro pour créer la listbox
UserForm1.ListBox6.ColumnHeads = False
UserForm1.ListBox6.RowSource = Worksheets("Table Machine").Range(Cells(5, 5), Cells(Range("c:c").End(xlDown).Row, 3)).Address

[78chris]

Bonjour

Quelle version d'Excel utilises-tu ?

A partir de 2010 il est plus simple et efficace de filtrer avec un segment, lié ou non à VBA.

PS : modifie le titre de ton fil car ce n'est pas un tri mais un filtre.

[Aureus Magnus]

Bonjour78Chris,

J'utilise la version Excel 2010.
J'ai oublié de préciser que la sélection se fait à partir d'un formulaire, sur lequel j'affiche d'autres informations, en lien avec le job selectionné dans la listbox.
D'ou l'interêt de commander le filtre du TCD directement à partir du formulaire. Pour ne faire la manipulation qu'une seule fois.
Effectivement j'ai aperçu des solutions avec les segments mais ne les ayants jamais utilisés ou vu en formation, je ne sais pas m'en servir.
Néanmoins, je suis preneur pour une solution les utilisant, si celà est plus facile.


PS: Titre modifié.

[78chris]

RE

Déjà remplace

Code :

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

Value1:="userform1.listbox6.Value"

par

Code :

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

Value1:=userform1.listbox6

les guillemets posant problème

[Aureus Magnus]

Ca, c'est fait.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
Sheets("TCD Magasin").Activate
With ActiveSheet
.PivotTables("TCD").PivotFields("Numero Job").ClearAllFilters
.PivotTables("TCD").PivotFields("Numero Job").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=UserForm1.ListBox6
End With
 
End Sub

Le même message d'erreur apparait sur la ligne 6/7.

Et ensuite, s'il te plaît?

[78chris]

Re

As-tu vérifié en mode debug à quoi est égal UserForm1.ListBox6 ?

Le type de données est-il bien le même ?

[Aureus Magnus]

Chris78,

La valeur de la ListBox6 correspond bien à un des champs du TDC




Quand penses-tu?

[78chris]

Bonjour

Je ne suis pas spécialiste du mélange userform-TCD mais d'après mes tests, si le Userform reste chargé, le clearfilter relance le code du userform et la suite plante.

Si j'unload le userform pas de problème...

Edit : en fait j'avais testé le code directement sur le choix dans la listbox mais si on l'associe à un bouton, ceci marche

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim valeur as string
 
Valeur = Me.ListBox6.Value 'zone de texte du userform
With Sheets("TCD Magasin").PivotTables("TCD").PivotFields("Numero Job")
   .ClearAllFilters
   .PivotFilters.Add Type:=xlCaptionEquals, Value1:=Valeur
End With
Unload Me
End Sub

[Aureus Magnus]

Chris78,

Celà ne fonctionne qu'à moitié.
Le filtre du TCD est bien remis à 0, mais la selection ne se fait toujours pas.
Voici la ligne problématique:

et toujours le même message

[78chris]

Re

Ton champ est bien en étiquette ?

Pourrais-tu poster un court extrait car j'ai testé sur un TCD et cela marche...