selection pour tri dans macro

[pascalF]

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.

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é 😕

 

[XanorK]

Re : selection pour tri dans macro

bonjour pascalF,

Ton probleme vient de cette ligne :

    Rows("2:14").Select

écrit plutot :

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

 

[jp14]

Re : selection pour tri dans macro

Bonsoir

On recherche la dernière ligne

dl1 = Sheets("nomfeuille1").Range("A65536").End(xlUp).Row

et on ecrit

Rows("2:" & dl1).Select

JP

 

[pascalF]

Re : selection pour tri dans macro

Merci a vous deux, c'est exactement ce que je cherchais.

Merci encore et a bientôt (forcément vu mon niveau 😀 )