Discussion :

[bibbip35]

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 :

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

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

[parmi]

Bonjour,

Pourquoi cette ligne ?

Code :

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

If Me.ComboBox1 <> "*" Then

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

[bibbip35]

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

[parmi]

Essaie en enlevant la condition pour voir...

[bibbip35]

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

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

Merci

Bibbip35

[Marc-L]

Bonjour, bonjour !

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

[bibbip35]

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

[parmi]

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 :

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

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...

[clementmarcotte]

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

[bibbip35]

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 :

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

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