Créer une macro de tri automatique
Fermé
BabOlivier
Messages postés
2
Date d'inscription
mercredi 5 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
-
Modifié par BabOlivier le 6/06/2013 à 09:36
BabOlivier Messages postés 2 Date d'inscription mercredi 5 juin 2013 Statut Membre Dernière intervention 13 juin 2013 - 13 juin 2013 à 14:36
BabOlivier Messages postés 2 Date d'inscription mercredi 5 juin 2013 Statut Membre Dernière intervention 13 juin 2013 - 13 juin 2013 à 14:36
A voir également:
- Créer une macro de tri automatique
- Créer une adresse mail - Guide
- Créer un compte gmail - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
1 réponse
Bonjour ! J'espère que tu vas bien. Pour répondre à ta question, copie-colle la macro ci-dessous dans l'éditeur VB et n'oublie pas de mettre à jour les cellules concernées.
Note : (i). « A :R » correspond à tes données brutes et
(ii). Range("A1") correspond à la colonne ou tu veux appliquer le tri.
Sub Desc_ ()
Dim ws1 As Worksheet
For Each ws1 In ActiveWorkbook.Worksheets
ws1.Activate
Range("A:R").Select
Selection.AutoFilter
Range("A:R").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next ws1
End Sub
Note : (i). « A :R » correspond à tes données brutes et
(ii). Range("A1") correspond à la colonne ou tu veux appliquer le tri.
Sub Desc_ ()
Dim ws1 As Worksheet
For Each ws1 In ActiveWorkbook.Worksheets
ws1.Activate
Range("A:R").Select
Selection.AutoFilter
Range("A:R").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next ws1
End Sub
13 juin 2013 à 14:36
Je teste et te dis ce qu'il en est. :)