Inverser code

[jacky49]

Bonsoir le forum,

j'ai ce code qui fonctionne bien et qui me masque les lignes autres que S1,S2 etc..
Ma question est comment inverser ce code pour revenir au départ(faire un RAZ)

Sub Afficher_Séries()

    ActiveSheet.Range("$B$8:$H$86").AutoFilter Field:=6, Criteria1:=Array("S 1" _
        , "S 2", "S 3", "S 4", "S 5", "S 6"), Operator:=xlFilterValues
End Sub

merci de votre aide
jacky

 

[job75]

Re : Inverser code

Bonsoir jacky49,

j'ai ce code qui fonctionne bien

Je ne savais pas que l'on pouvait utiliser un tableau comme critère de filtrage, en tout cas chez moi (Excel 2003) ce code ne fonctionne pas 😕

A priori pour afficher tout après un fitrage, il suffit d'écrire (voir l'enregistreur de macro) :

ActiveSheet.Range("$B$8:$H$86").AutoFilter Field:=6

A+

 

[chris]

Re : Inverser code

Bonjour

Je ne savais pas que l'on pouvait utiliser un tableau comme critère de filtrage, en tout cas chez moi (Excel 2003) ce code ne fonctionne pas

C'est une des nouveautés 2007 : au lieu d'être limité à utiliser deux cas en personnalisé, on a des cases à cocher, comme dans les TCD, devant chaque valeur.

 

[jacky49]

Re : Inverser code

Bonsoir Job 75, chris,

donc dans le code, on fait sub et end sub seulement et cela devrait fonctionner??
merci
jacky