Sort en VBA sans connaitre dernière colonne Fermé

Question

Bonjour,  

Je travaille un classeur constamment en évolution dans lequel on me demande régulièrement d'ajouter des colonnes aux différents onglets. Mon problème est le suivant. J'ai énormément de code derrière cet outi et je trie souvent les onglets selon des critères différents dépendamment du besoin et des résultats attendus. Résultat, chaque fois que j'ajoute une colonne, je dois revoir mes différents modules pour modifier les "Range("A1:" & Colonne & Dernligne).Sort Key1:=Range("B2")", par exemple 

Je connais le code qui me permet d'identifier la dernière colonne et la dernière ligne:  
Dim DernCol As Integer, DernLigne As Long 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column 

Cependant, le résultat obtenu pour la colonne est un chiffre. Je ne sais comment convertir ce chiffre en lettre pour mon RANGE("A....).sort. Pouvez-vous m'aider?

SFillion · Answer

Ne cherchez plus, j'ai trouvé. 

Dim DernLigne As Long, DernCol As integer, LetCol as string

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
LetCol = Split(Cells(1, DernCol).Address, "$")(1)

Range("A1:" & LetCol & DernLigne).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:= _
        Range("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal

Merci quand même et bonne fin de journée.

Sort en VBA sans connaitre dernière colonne

1 réponse

Discussions similaires