Filtre vers autre feuille

[yiei]

Bonjour, j'ai ce code qui me permet de filtrer les données de la premiere colonne vers un combobox d'un USF.

Private Sub UserForm_Initialize()
On Error Resume Next
ActiveSheet.ShowAllData
Set DiaRef = CreateObject("Scripting.Dictionary")
For Each Var1 In Range([a2], [A65000].End(xlUp))
If Not DiaRef.Exists(Var1.Value) Then DiaRef.Add Var1.Value, Var1.Value
Next Var1
Me.ListeDiaRef.List = DiaRef.items
'Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ListeDiaRef_Change()
[A1].AutoFilter Field:=1, Criteria1:=Me.ListeDiaRef
End Sub

Comment l'adapter pour qu'il prenne les valeurs de la premiere colonne d'une AUTRE feuille (feuille X) je ne vois pas ou mettre un truc dans le genre : Sheets("feuille X")

merci

 

[Pierrot93]

Re : Filtre vers autre feuille

Bonsoir,

modifie peut être comme suit, non testé...

Option Explicit
Private Sub UserForm_Initialize()
On Error Resume Next
With Sheets("Feuil2")
    .ShowAllData
    Set DiaRef = CreateObject("Scripting.Dictionary")
    For Each Var1 In .Range(.[a2], .[A65000].End(xlUp))
        If Not DiaRef.Exists(Var1.Value) Then DiaRef.Add Var1.Value, Var1.Value
    Next Var1
End With
Me.ListeDiaRef.List = DiaRef.items
'Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ListeDiaRef_Change()
Sheets("Feuil2").[A1].AutoFilter Field:=1, Criteria1:=Me.ListeDiaRef
End Sub

bonne soirée
@+

 

[yiei]

Re : Filtre vers autre feuille

j'ai commencé par :

Private Sub UserForm_Initialize()

On Error Resume Next
Sheets("feuille X").Select
ActiveSheet.ShowAllData

et ça marche, merci quand même,
par contre je filtre à l'aide de plusieurs combobox mais mes valeurs de ceux-ci ne se réduisent pas après sélections dans les combobox