Filtre élaboré Excel 2010

[Scoty]

Bonjour le forum,

Petit soucis excel. Je souhaite effectuer à la base un ou plusieurs filtre sur un tableau. J'ai voulu utiliser d'autres cellules que les étiquettes. Je suis donc passer par une petite macro "filtre" qui fonctionne bien.

Le pépin: dans mon exemple, lorsque je souhaite filtrer le "COM" de mes sites, cela me sort tous les sites commençant par "COM".

Pour info: D3 et E3, mes listes utilisées pour les filtres.

Merci beaucoup pour votre aide.

Dans l'attente de vs lire.
@Scoty

 

[Caillou]

Re : Filtre élaboré Excel 2010

Bonjour,

EN D3 essayes ="=COM" au lieu de COM !

Caillou

 

[Scoty]

Re : Filtre élaboré Excel 2010

Bonjour Caillou,

Merci beaucoup cela fonctionne en effet. Mais n'y aurait-il pas une solution (en modifiant la macro par exemple) pour avoir tous les sites de la même manière bien propre ?

Dans ts les cas merci encore

@+
Scoty

 

[Caillou]

Re : Filtre élaboré Excel 2010

re,

Modifies le code comme suit :

Sub Filtre()
  If ActiveSheet.FilterMode = True Then
    ActiveSheet.ShowAllData
    Range("D3") = "*"
  Else
    Range("D3") = "=""=" & Range("D3") & """"
    [liste].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[critere], Unique:=False
    
  End If
End Sub

Caillou

 

[Scoty]

Re : Filtre élaboré Excel 2010

Caillou,

J'ai une erreur de compilation en collant ta solution. Et je n'y arrive pas à m'en sortir... aie!

Merci

@+
Scoty

 

[job75]

Re : Filtre élaboré Excel 2010

Bonsoir Scoty, salut Caillou,

Pas bien sorcier à corriger, suffit de lire le code, on voit qu'il manque un renvoi à la ligne.

A+

 

[Staple1600]

Re : Filtre élaboré Excel 2010

Bonsoir à tous, Caillou, job75

Il semblerait que juste cela suffise, non ?
NB: code VBA juste à destination des amateurs "d'hérésie syntaxique"

Sub Filtre()
Application.ScreenUpdating = False
[D3] = "=""=" & [D3] & """": 
[liste].AdvancedFilter 1, [critere], 0
End Sub

 

[Caillou]

Re : Filtre élaboré Excel 2010

bonjour job75
avec le retour à la ligne :

Sub Filtre()
   If ActiveSheet.FilterMode = True Then
     ActiveSheet.ShowAllData
     Range("D3") = "*"
   Else
     Range("D3") = "=""=" & Range("D3") & """"
     [liste].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[critere], Unique:=False
     
   End If
 End Sub

 

[Staple1600]

Re : Filtre élaboré Excel 2010

Bonsoir aussi à toi Caillou...

Cela fonctionne aussi sans le IF, non ?
(voir message précédent)

 

[Scoty]

Re : Filtre élaboré Excel 2010

Bonsoir l'équipe,

Impeccable ça roule. Merci à tous et bonne soirée

@+
Scoty

 

[Scoty]

Re : Filtre élaboré Excel 2010

Bonsoir l'équipe,

Impeccable ça roule. Merci à tous et bonne soirée

@+
Scoty