Filtre automatique dans spreadsheet

[Lu K]

Bonour,

C'est encore moi.
je sais, j'abuse !!!

Bon, une nouvelle question, concernant les spreadsheet : j'essai d'installer un filtre automatique via un userform. Mais impossible de controler le spreadsheet. Cela fonctionne très bien dans les feuilles d'excel.
voici un bout de mon code code de validation dans mon userform :
Private Sub Valide_Click()
With triebiblio
Nomrecherche = "=*" & triebiblio.nom.Value & "*"
spreadsheet1.Range("$A$1:$s$6000").AutoFilter Field:=3, Criteria1:= _
Nomrecherche, Operator:=xlAnd
End With

triebiblio.Hide
End Sub

Merci d'avance pour vos réponse.

 

[MichelXld]

Re : Filtre automatique dans spreadsheet

Bonjour,

La synthaxe est différente dans les contrôles SpreadSheet :

'Testé avec OWC11 & Excel2007
Dim TermeFiltre As String
 
'La donnée à filtrer
TermeFiltre = "P1"
 
With Me.Spreadsheet1.ActiveSheet
    'Plage de données à filtrer
    .Range("A1:D8").AutoFilter
    '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

bonne journée
michel

 

[Lu K]

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("A18").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.

 

[MichelXld]

Re : Filtre automatique dans spreadsheet

Bonsoir,

Je ne suis pas sur d'avoir compris ta dernière question.
S'il s'agit de faire un filtre personnalisé, je ne suis pas sur que le contrôle SpreadSheet en soit capable.

bonne soirée
michel