Vba

FAUB · 12 Mai 2009

Bonjour le forum,

J'ai un fichier avec plusieurs onglets que je peux trier, et d'autres qui ne doivent pas être triés.

J'ai essayé avec cette macro :

Sub trier()

For Each f In ActiveWorkbook.Sheets
s = f.Name
If s <> "1" Or s <> "2" Or s <> "3" Then
Range("A5", Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
Next

End Sub

mromain · 12 Mai 2009

Re : Vba

bonjour FAUB,

à tester :
PS: je suppose que tu ne veux pas trier les feuilles "1", "2" et "3".

Code:

Sub trier()

For Each f In ActiveWorkbook.Sheets
    s = f.Name
    If s <> "1" [B][COLOR=Red]And [/COLOR][/B]s <> "2" [B][COLOR=Red]And [/COLOR][/B]s <> "3" Then
        [B][COLOR=Red]f.[/COLOR][/B]Range("A5", Selection.End(xlDown)).Sort Key1:=Range("A5"), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End If
Next f

a+

FAUB · 12 Mai 2009

Re : Vba

Bonjour,
J'ai posté par erreur deux fois ce message.
J'avais entre temps modifié les Or en And, et avec ce que vous me proposez cela ne marche toujours pas. J'ai joint un fichier dans mon deuxième message.

Merci pour votre aide.

Vba

FAUB

XLDnaute Nouveau

mromain

XLDnaute Barbatruc

FAUB

XLDnaute Nouveau

Discussions similaires