Vba

[FAUB]

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]

Re : Vba

bonjour FAUB,

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

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]

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.