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
Partager