Filtre personnalisé suivant valeur cellule

[paolo44]

Bonjour

Je voudrais effectuer sur la colonne A un filtre personnalisé avec pour critère : contient la valeur de la cellule C1.

Merci d'avance

 

[paolo44]

Re : Filtre personnalisé suivant valeur cellule

Ah oui petite précision
Je veux intégrer ce filtre dans une macro.
Merci

 

[Pierrot93]

Re : Filtre personnalisé suivant valeur cellule

Bonjour Paolo

essaye peut être le code ci dessous :

Sub test()
Dim x As String
x = Range("C1").Value
Range("A1").AutoFilter Field:=1, Criteria1:="=*" & x & "*"
End Sub

bonne soirée
@+

 

[paolo44]

Re : Filtre personnalisé suivant valeur cellule

Bonjour Pierrot93,

Ca ne marche pas!
Le critere de filtre est d'afficher les lignes si elles contiennent partiellement la valeur de C1
Merci quand meme

 

[Pierrot93]

Re : Filtre personnalisé suivant valeur cellule

Re

comprends pas trop, chez moi ce code fonctionne bien...

qu'as tu mis dans la cellule C1 ?

@+

 

[paolo44]

Re : Filtre personnalisé suivant valeur cellule

Désolé j'avais merdé dans la macro
merci
Je vais etre chiant. J'ai une combobox qui alimente C1 (par exemple)
Comment mettre directement la valeur de la combobox dans le filtre?
Merci

 

[Pierrot93]

Re : Filtre personnalisé suivant valeur cellule

Re

essayes en remplacant :

x = Range("C1").Value

par :

x = Feuil1.ComboBox1.Value

en supposant que c'est bien un combo de la boite à outils controles.

@+