Filtre élaboré Excel 2010

C

Caillou

XLDnaute Impliqué

• 6 Mai 2014

• #2

Re : Filtre élaboré Excel 2010

Bonjour,

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

Caillou

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 6 Mai 2014

• #3

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

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 6 Mai 2014

• #4

Re : Filtre élaboré Excel 2010

re,

Modifies le code comme suit :

Code:

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

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 6 Mai 2014

• #5

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

 

Pièces jointes

• pb filtre élaboré.png

  26.5 KB · Affichages: 45

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Mai 2014

• #6

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Mai 2014

• #7

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"

Code:

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

 

Dernière édition: 6 Mai 2014

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 6 Mai 2014

• #8

Re : Filtre élaboré Excel 2010

bonjour job75
avec le retour à la ligne :

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Mai 2014

• #9

Re : Filtre élaboré Excel 2010

Bonsoir aussi à toi Caillou...

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

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 7 Mai 2014

• #10

Re : Filtre élaboré Excel 2010

Bonsoir l'équipe,

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

@+
Scoty

 

Vote positif 0 Vote négatif

S

Scoty

XLDnaute Occasionnel

• 7 Mai 2014

• #11

Re : Filtre élaboré Excel 2010

Bonsoir l'équipe,

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

@+
Scoty

 

Vote positif 0 Vote négatif