Inverser code

jacky49 · 28 Mars 2010

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)

Code:

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 · 28 Mars 2010

Re : Inverser code

Bonsoir jacky49,

jacky49 à dit:
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) :

Code:

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

A+

chris · 29 Mars 2010

Re : Inverser code

Bonjour

job75 à dit:
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 · 29 Mars 2010

Re : Inverser code

Bonsoir Job 75, chris,

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

Inverser code

jacky49

XLDnaute Impliqué

job75

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

jacky49

XLDnaute Impliqué

Discussions similaires

Inverser code

jacky49

XLDnaute Impliqué

job75

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

jacky49

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency