Tri de colonne avec une partie du texte de l'entête

Résolu

bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention -
bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention - 18 août 2016 à 15:04

Bonjour à tous,

Je voulais savoir si il était possible de trier des colonnes avec seulement une partie de l'entête sur mon Activesheet.

Dans mes entête de colonne, il y le texte suivant: Sensor Reading(kPa) - 1537516 - 32m. Ce que je veux faire c'est de trier à partir du dernier chiffre de ma chaîne de caractère et de les placer en ordre croissant. Ce chiffre représente une profondeur d'installation en mètre.

Mon range commence toujours en position: 1 ligne, 6 colonne et la fin du range est variable, donc j'utilise les variables DerLig et DerCol.

J'ai commencé un code sans tenir compte de ce problème , mais le tri ne fonctionne pas:

ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range(Cells(1, 6), Cells(DerLig, DerCol - 3)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveSheet.Sort
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
End With

Merci pour votre aide!

A voir également:

Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ?
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Liste déroulante excel - Guide
Trier colonne excel - Guide
Comment trouver le mot de passe wifi sur son téléphone - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

Bonjour,

Ce code devrait mieux fonctionner (non testé mais fonctionnel sur autre classeur) :

With ActiveSheet.Sort
    With .SortFields
        .Clear
        .Add Key:=Range(Cells(1, 6), Cells(DerLig, DerCol - 3)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With

    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlLeftToRight
    .SortMethod = xlPinYin
    .Apply
End With

Cependant, je ne pense pas que tu puisses trier sur une partie de la cellule.
Pourquoi ne pas isoler cette partie dans une colonne supplémentaire ?

bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention 1

Merci beaucoup pour la réponse,

Mais j'ai une erreur d'exécution '1004', Référence de tri non valide. Vérifiez qu'elle se trouve bien parmi les données à trier et que la zone Trier par n'"est pas identique ou vide.

J'ai vérifier mon range et tout semble ok! Je ne réussi pas à trouver mon erreur.

bassmart Messages postés 281 Date d'inscription Statut Membre Dernière intervention 1

Re,

J'ai finalement trouvé mon erreur! Dans la ligne Add Key le range qui est spécifier doit être la ligne à partir duquel on trie et ensuite on doit ajouter une ligne SetRange pour spécifier tout le range à trier. Pour trouver mon erreur, j'ai fait les opérations manuellement en enregistrant la macro et j'ai trouvé mon erreur facilement.

Pour le trie, j'ai appliquer ta solution, c'est-à-dire, j'ai ajouté une ligne en haut de mon tableau, j'extrait la dernière valeur de ma chaîne de caractère de la cellule en dessous (ligne 2) et je la colle dans ma cellule au dessus (ligne1). Ensuite, je trie à partir de cette ligne en ordre croissant les colonnes choisit.

Voici le code final:

'Ajout d'une ligne pour trie
'****************************
Rows(1).Insert shift:=xlDown
DerCol3 = ActiveSheet.Cells(2, Cells.Columns.Count).End(xlToLeft).Column
DerLig3 = Cells(Application.Rows.Count, DerCol3 - 4).End(xlUp).Row
    
With Range(Cells(1, 8), Cells(1, DerCol3 - 4))
    For e = 8 To DerCol3 - 4
        Prof = Left(Cells(2, e), Len(Cells(2, e)) - 1)
        Prof2 = Right(Prof, Len(Prof) - 32)
        Cells(1, e).Value = Prof2
    Next e
End With

'Trie des colonnes sensor reading du moins profondond au plus profond
'********************************************************************
With ActiveSheet.Sort
    With .SortFields
        .Clear
        .Add Key:=Range(Cells(1, 8), Cells(1, DerCol3 - 3)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    .SetRange Range(Cells(1, 8), Cells(DerLig3, DerCol3 - 3))
    .Header = xlYes
    .MatchCase = False 'Qu'est ce que ça fait?
    .Orientation = xlLeftToRight
    .SortMethod = xlPinYin
    .Apply
End With

Merci beaucoup!

Discussions similaires

Voxbone ? qui est-ce ?

Comment classer des noms par ordre alphabétique dans un tableau?

question pix mot caché

Votre réponse

Discussions similaires