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

selection pour tri dans macro

  • Initiateur de la discussion Initiateur de la discussion pascalF
  • Date de début Date de début

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 !

pascalF

XLDnaute Nouveau
Bonjour a tous,

J'ai besoin d'un macro pour trier une feuille.

Comment fait-on pour sélectionner jusqu'a la dernière ligne renseignée, lorsque j'enregistre la macro, je me met sur la 1ere ligne puis je selectionne par SHIFT+CTRL+FLECHEBAS toutes les lignes.

PAr contre lorsque l'on ajoute une ligne, la macro ne selectionne que les lignes existantes au moment de la création de la macro car elle selectionne en absolu 🙁

J'ai essayé en cliquant sur relatif lors de l'enregsitrement mais cela ne change rien.

Code:
Sub tri()
'
' tri Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows("2:14").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

LA macro me sélectionne les lignes 2 à 14, du coup l'ajout d'une ligne n'est pas prise en compte.

qu'est-ce ki fo que je fé 😕
 
Re : selection pour tri dans macro

bonjour pascalF,

Ton probleme vient de cette ligne :
Code:
    Rows("2:14").Select

écrit plutot :
Code:
Sub tri()
Dim DerLign As Integer 'Declaration de la variable


    DerLign = Range("A2").End(xlDown).Row
    
    Rows("2:" & DerLign).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
 
- 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éponses
7
Affichages
975
Réponses
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…