Filter avec Combobox.value

Bonjour à tous

Je me permets de venir vers vous car je souhaiterais filtrer une feuille avec la valeur d'un combobox
J'ai rechercher et essayer plusieurs code venant du Net mais sans succès

Code:

---

1 2 3 4

Private Sub ComboBox1_Change() If Me.ComboBox1 <> "*" Then Worksheets("Base Machine de Report CMS").Range("$A$2").AutoFilter Field:=3, Criteria1:=ComboBox1.Value End Sub

---

J'ai toujours une erreur d'execution "1004"
La méthode AutoFilter de la classe a échoué

Nota : Combobox1 alimenté par rowsource

Ci-joint le fichier qui me pose tans de problème

Pouvez-vous m'aider?

Bibbip35

Bonjour,

Pourquoi cette ligne ?

Code:

---

If Me.ComboBox1 <> "*" Then

---

Et quel genre de valeur cherches-tu à filtrer ?
texte, numérique, date ?

Bonjour et déjà merci

Pour la 1 et question je voulais mettre une condition
Est ce vraiment utile.?

Sinon les données sont du texte plus chiffre
Exemple cm401

Merci pour votre aide

Bibbip35

Essaie en enlevant la condition pour voir...

J ai essayé mais succès hélas. ..

Je ne comprends pas. ..du tout. ..

Merci

Bibbip35

Bonjour, bonjour !

Activer le Générateur de macros et effectuer le filtre manuellement : une base de code est livrée sur un plateau ‼

Bonjour bonjour...

Le code est fera issu de l enregistreur de macro

Ce que je vois c est que ça filtre bien au début puis J ai le message d erreur

Merci

Bibbip35

Pour information.

Quand je enlevé la propriété rois ourse
Ça fonctionne

Mais comment puis je alimenter ma combobox

Ce que tu n'as pas dit, c'est que tu travailles avec un tableau (listObject)
La méthode que tu utilises sert sur une page normale.

Essaie donc comme ceci

Code:

---

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=ComboBox1.Value

---

Et comme l'a spécifié Marc-L, rien de tel que l'enregistreur de macro... ;)

Ça doit être juste parce que tu n'a pas mis tes apostrophes.

Bonsoir à tous et merci a tous pour vos reponses

Je pense avoir reussi ...Le problèmes venait a priori du faite que j'ai vu mis 1 rowsource

Nouveau code utilisée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub UserForm_Initialize() Set F = Sheets("Base Machine de Report CMS") Set mondico = CreateObject("Scripting.Dictionary") a = F.Range("C7:C" & F.[C65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité remplissage Comobobox1 For I = LBound(a) To UBound(a) If a(I, 1) <> "" Then mondico(a(I, 1)) = "" Next I '--avec tri temp = mondico.Keys Call Tri(temp, LBound(temp), UBound(temp)) Me.ComboBox1.List = temp   End sub   Private Sub ComboBox1_Change() Worksheets("Base Machine de Report CMS").ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=ComboBox1.Value   End Sub

---

Il me reste plus qu'a alimentée ma listbox en focntion de la feuille qui sera filtrée au fur a mesure...
Vous aurriez pas une idée....Par hasard...

MERCI A TOUS

Bibbip35