Re : Filtre automatique dans spreadsheet
Bonjour MichelXld,
Tout d'abord merci pour t'as réponse.
Concernant ton code, il fonctionne avec quelques modifications.
Mais, parce qu'il y a toujour un "Mais", et t'il possible dans un spreadsheet de faire comme dans un filtre normale d'excel. C'est à dire que mes filtres habituel se font avec des morceaux de références. En gros quand je tape "Toto", il me filtre tout les mots contenant "Toto".
Code :
Dim TermeFiltre As String
'La donnée à filtrer
TermeFiltre = "P1"
With Userform1.Spreadsheet1.ActiveSheet
'Plage de données à filtrer
'.Range("A1
8").AutoFilter (supprime le filtre si celui-ci est déja installé)
'Indique si le filtre incus ou exclus le terme qui est indiqué en critère
'ssFilterFunctionExclude (attention valeur par défaut)
.AutoFilter.Filters(3).Criteria.FilterFunction = ssFilterFunctionInclude
'Ajout du critère de filtre
.AutoFilter.Filters(3).Criteria.Add TermeFiltre
'application du filtre
.AutoFilter.Apply
End With
D'avance merci pour les réponses.