Classer colonnes par ordre croissant

Bonjour à tous les profs

Cette nouvelle demande est du classement de colonnes

j'ai 5 tableaux dans l'exemple en cliquant dans une cellule sur le haut d'une colonne

cette colonne doit se modifier par ordre croissant et de modifier les données de cette ligne de tableau

Je vous mais un exemple plus simple à comprendre

PS" Pour info j'ai pris cette exemple dans (Wikipédia Les Douze coups de Midi) voir le tableau .

Merci d'avances de vos propositions

Cdt

Gabinos

12tableau.xls (19.50 Ko)

Bonjour

Pas tout compris

il faut trier les tableaux en fonction des colonnes de couleur

A première vue tes tableaux sont déjà triés du +petit au+grand

Salut Gabinos,
Salut Joco,

un clic sur un en-tête déclenche la macro de tri.
Code valable pour cet exemple..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim rCells As Range
'
Set rCells = Target.CurrentRegion
rCells.Sort key1:=Range(Chr(64 + Target.Column) & Target.Row + 1), order1:=xlAscending, Orientation:=xlTopToBottom, Header:=xlYes
'
End Sub
7gabinos.xlsm (17.36 Ko)


A+

Bonjour le fil, bonjour le forum

Visiblement idem Curulis mais sur l'événementielle Doulble-Clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PL As Range
Dim C As Range

Set PL = Target.CurrentRegion
Set C = Target
PL.Sort key1:=C, order1:=xlAscending, Header:=xlYes
End Sub

Bonjour le forum,

Dans les deux cas lorsqu'on clic en dehors du tableau ça produit une erreur. Comment peut-on l'éviter?

C'est une question un peu débile. On trouve en deux minutes

Merci aux intervenants

si le prend comme exemple le double clics se qui me conviens le mieux

j'aimerais après un 2ème double clic de la même colonne revenir à l'état initial si possible

merci de vos propositions

Salut Gabinos,

l'état initial étant le tri depuis la 1ère colonne, double-cliques plutôt sur l'en-tête de cette première colonne!


A+

merci de votre aide a tous

le résultat me convient , mais une option serais t'il possible que sur la première série uniquement donc 5 colonnes

avec un départ de calcul sur ligne exemple 4 comme dans l'exemple avec possibilité de déterminé la ligne de fin de calcul sur les 5 colonnes comme l'exemple

exemple départ de la ligne 5 sur 5 colonnes avec un calcul de ligne de fin que je pourrais changer exemple actuel ligne 20 et de changer avec fin ligne 1000

donc ligne n°5 à ligne 1000

1001 le calcul s'arrête.

je remet un exemple .

9tableau2.xls (28.50 Ko)

Bonsoir le fil, bonsoir le forum,

En pièce jointe, ton fichier avec un code modifié. À partir du moment où tu sépares les données par une ligne vide, le tri ne s'effectuera que dans la zone où tu double-cliques. Si, juste après le tri, tu veux revenir aux valeurs initiales, il te suffira de cliquer avec le bouton droit de la souris...

Le code :

Option Explicit
Private TV As Variant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PL As Range

Set PL = Target.CurrentRegion
TV = PL
If PL.Cells.Count = 1 Then Exit Sub 'pour fcyspm30
Cancel = True
PL.Sort key1:=Cells(PL(1, 1).Row, Target.Column), order1:=xlAscending, Header:=xlGuess 'merci Curulis...
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.CurrentRegion.Value = TV
End Sub

Le fichier :

4gabinos-ep-v01.zip (13.09 Ko)

Bonjour le Forum

Merci Thau Thème

j'ai la réponse que j'espérais

merci aussi aux autres intervenants

Bravo pour votre rapidité d'intervention

je cloture

Rechercher des sujets similaires à "classer colonnes ordre croissant"