Re : Tri automatique selon semaine en cours tableau dynamique
Re-bonjour à tous,
J'ai continué mes recherches pour trier selon la dernière colonne qui apparaît et j'ai trouvé ce code :
Sub Test()
Dim DerC As String
With Sheets("Feuil1")
DerC = Split(.Cells.Find("*", , xlValues, , 2, 2, 0).Address, "$")(1) 'cherche le nom (la lettre) de la dernière colonne non vide
DerL = .Range("A65536").End(xlUp).Row
nbColonnes = Sheets("Feuil1").[A2].End(xlToRight).Column 'cherche le numéro de la dernière colonne non vide
Sheets("Feuil1").Range("A1:" & DerC & DerL).Sort Key1:=Cells(1, DerC), _
Order1:=xlAscending, Header:=xlGuess
End With
End Sub
Or je n'y connais pas grand chose en macro donc je ne sais pas comment le faire marcher et il y a une erreur.
Quelqu'un a t'il une idée ?
Merci d'avance.
Max.