Bonjour à tous!
Je cherche à coder de manière dynamique un tri.
Je disposerai toujours de 7 colonnes, mais le nombre de ligne est variable.
Je souhaite sélectionner mes 7 colonnes puis effectuer un tri selon la colonne C par ordre ascendant, mes colonnes diposent de titres.
J'ai utilisé l'enregistreur pour avoir la base du code, je cherche maintenant à rendre ce bout de code dynamique. Je sais que je dois utiliser une variable Lastrow qui regarde la dernière ligne écrire (en se référant à la colonne B), en revanche je pêche quant à l'adaptation dans mon code. Je vous laisse juger :
Sub TriIRC()
Lastrow = .Cells(Rows.Count, "B").End(xlUp).Row
Columns("A:G").Select
ActiveWorkbook.Worksheets("ConsoSheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ConsoSheet").Sort.SortFields.Add Key:=Range( _
"C2:C" & Lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ConsoSheet").Sort
.SetRange Range("A1:G1" & Lastrow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Avec le code précédent je me retrouve avec une compile error, invalid reference.
Merci de votre coup de main !!