Boucle tri sur plusieurs feuilles

anber · 19 Juillet 2012

Bonjour le Forum
Je souhaite faire un tri identique (sur colonne S) sur plusieurs feuilles par le code suivant mais plantage
Je ne vois pas mon erreur, Y-a-t-il une autre solution ?

MERCI

Dim Cpt As Integer
Dim Feuilles() As Variant

'Mise en tableau des feuilles
Feuilles = Array("M1", "M2", "M3", "IZ", "CH", "ME", "CHEA")
For Cpt = 0 To UBound(Feuilles)
With Sheets(Feuilles(Cpt))
Range("A1:S" & Range("A65536").End(xlUp).Row).Select
Selection.Sort _
Key1:=Range("S:S"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Next

Pierrot93 · 19 Juillet 2012

Re : Boucle tri sur plusieurs feuilles

Bonjour,

tu places un bloc "with" mais tu ne l'utilise pas... essaye avec ceci, non testé ...

Code:

Dim Cpt As Integer
Dim Feuilles() As Variant
Feuilles = Array("M1", "M2", "M3", "IZ", "CH", "ME", "CHEA")
For Cpt = 0 To UBound(Feuilles)
    With Sheets(Feuilles(Cpt))
        .Range("A1:S" & .Range("A65536").End(xlUp).Row).Sort _
            Key1:=.Range("S1"), Order1:=xlAscending, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
Next Cpt

bon après midi
@+

anber · 19 Juillet 2012

Re : Boucle tri sur plusieurs feuilles

Bonjour Pierrot,
Bien vu ma bourde
C'est ok
Merci

Boucle tri sur plusieurs feuilles

anber

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

anber

XLDnaute Occasionnel

Discussions similaires