Discussion :

[Kestion100]

Bonjour, un petit problème j'en suis sûr:

Je voudrais, dans mon code, trier une sélection qui s'étend de A2 à la dernière cellule de la colonne CD dans laquelle j'ai une valeur, dans l'ordre alpha croissant de la colonne A.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A1").Select
Selection.Sort Key1:=Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Petite précision, dans la colonne CD, j'ai une formule qui peut renvoyer une erreur tant que le tri n'est pas fait, et après la dernière cellule dans laquelle j'ai quoique se soit d'inscit, j'ai toujours la formule qui renvoi "".
Je m'explique, c'est une formule "si" qui renvoie une valeur tant qu'il y a un nom dans la colonne A et, s'il n'y a rien dans la colonne A, renvoie "" mais tant qu'A n'est pas dans l'ordre, elle peut renvoyer #Valeur! ou #N/A.
Il faut bien que la dernière cellule considérée soit la dernière avant les :"", celà inclu les #Valeur! et #N/A.


Merci beaucoup

[parmi]

Essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Tri()
    Dim nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:CD" & nbLignes).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
End Sub

[Kestion100]

En cherchant, j'ai trouvé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A2").Select
 
Selection.Sort Key1:=Cells(Cells(Cells.Rows.Count, 82).End(xlUp).Row, 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Si tu ne vois pas d'erreur flagrante.

Je vais tester ta méthode avant de cliquer sur "RESOLU"

[parmi]

J'ai écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2:CD" & nbLignes).Sort

en supposant que CD était la dernière colonne.
Si ce n'est pas le cas, ajuste au besoin.

[Kestion100]

C'est bien la dernière colonne