Pb de tri

Re : Pb de tri

Bonjour,

sur ta feuille tu code une private sub.
Pour le code sert toi de l'enregistreur.
Bonne journée!

Re : Pb de tri

Suis-je beeete ! Merci flo !

Re : Pb de tri

Bonjour flo,

Bon je me suis remis à cette Private Sub, mais le pb est qu 'il y a des données jusqu'en colonne AV, d'ou l'idée de faire une boucle. Voici le début de la proc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vrCol%, vrCol2%, vrRg%, vrRg1%

Application.ScreenUpdating = False

Range("B1").Select

vrCol = ActiveCell.Column

If vrCol <> 48 Then
Do

Range(vrCol & "7:" & vrCol2 & "12").Select
Selection.Sort Key1:=Range(vrCol2 & "7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range(vrCol & "14:" & vrCol2 & "20").Select
Selection.Sort Key1:=Range(vrCol2 & "14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Et la ça plante dès le début, car la valeur de vrCol est 1 et non B.

Si je dois tout tester cela va faire un monstre !!!!

As tu une idée ??

Merci