Pb de tri

[JP40]

Bonjour à tous,

Un petit pb de tri dans un graphe. Dans une feuille "Base", les données qui se reportent sur une feuille "Graphes".
Or je voudrais automatiser le tri, au niveau de la feuille "Base", sur les nombres

Colonnes B et C sur C, colonnes D et E sur E par ordre croissant.

Je me casse la tête la dessus !!

Voir le fichier joint. Très important la séparation des deux zones est necessaire!! Evidement !!

Si un de vous avait une idée, elle est la bienvenue !!

Merci

 

[flo2002]

Re : Pb de tri

Bonjour,

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

 

[JP40]

Re : Pb de tri

Suis-je beeete ! Merci flo !

 

[JP40]

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