Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Excel2010 Macro tri sur feuille active

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Bonjour à tous,

Toujours aussi nul en VBA (j'avance quand même un peu).

L'écriture (automatique) de la macro me donne ça :

Rows("2:10000").Select
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Add Key:=Range("D2 :10000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(Smatr).Sort
.SetRange Range("A2 :10000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Smatr est le nom de l'une des feuilles dans mon classeur et je souhaite le changer pour que la macro s'exécute sur n'importe quelle feuille « active » de mon classeur.

Un grand merci pour votre aide.
 
Trier par date Trier par votes
Re : Excel2010 Macro tri sur feuille active

Bonjour,

remplace :

Code: 
With ActiveWorkbook.Worksheets(Smatr).Sort

par :
Code: 
With ActiveWorkbook.ActiveSheet.Sort

bonne journée
@+

Edition :applique la même chose pour les 2 lignes précédentes....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Excel2010 Macro tri sur feuille active

Bonjour,
Merci pour ta réponse mais je n'y arrive pas et voilà ce qu'il me donne :

Rows("4:1003").Select
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("JW4:JW1003") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A4:KE1003")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call TriA

Range("A4").Select
End Sub
Sub TriA()
'
' TriA Macro
'

'
Range("A4:JN1003").Select
Range("JN1003").Activate
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A4:A1003"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A4:JN1003")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("A4").Select
End Sub
Sub TriOF()
'
' TriOF Macro
'

'
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
With ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("JP4:JP1003") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("JP4:JZ1003")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Merci pour ton aide,
Lionel,
 
Vote positif 0 Vote négatif
Re : Excel2010 Macro tri sur feuille active

Re,

regarde ceci, plages de cellules à adapter ("key" et "setrange")

Code: 
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("D1:D11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:H11")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Vote positif 0 Vote négatif
Re : Excel2010 Macro tri sur feuille active

Re,

on pourrait également le coder ainsi :
Code: 
    With ActiveWorkbook.ActiveSheet.Sort
        With .SortFields
            .Clear
            .Add Key:=Range("D1:D11") _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        .SetRange Range("A1:H11")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
194
sylvanu
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
736
Dranreb
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
732
kiki29
J
  • Question Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
585
JMP56
J
C
  • Question Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
631
candido57
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
625
Usine à gaz
B
  • Question Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
776
Benjy51190
B
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
792
Averell1976
A
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
G
  • Question Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
1 K
GUERET
G
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
968
Staple1600
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
  • Résolu(e)
Microsoft 365 Modifier une liste sur deux onglets
Réponses
11
Affichages
2 K
Roseline
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
R
  • Question Question
XL 2016 Barre de progression
Réponses
1
Affichages
932
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…