Trier lignes ensembles

Résolu
Hucksterag10 Messages postés 2 Statut Membre -  
Hucksterag10 Messages postés 2 Statut Membre -
Bonjour,

J'ai un peu cherché sur le net et j'ai essayé de composé une macro avec plusieurs fractions mais je pense que je ne m'y prends pas bien, voila en fait je souhaiterai trier des lignes par ordre de grandeur croissante, mais ma feuille se compose toujours de 4 lignes, et elles vont ensembles ( tout en haut les grandeurs, celle du dessous les unités et les 2 dernières des valeurs ) cependant quand je tri ligne par ligne il n'y a plus rien qui correspond.

Ensuite, second problème : le nombre de colonne est variable selon mes fichier donc je souhaiterai avoir un code qui permettrai de sélectionner automatiquement les cellules (ou le nombre de colonne) car je peux avoir 10 colonnes comme 500. Jusque maintenant quand le nombre de colonne n'est pas exactement rentré, la macro s'arrête et bug.

Que faire ?

2 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Difficile d'y voir clair
    Peux tu envoyer un bout de fichier au format excel 2003 sur cjoint.com et joindre le lien obtenu à ton prochain message
    N'oublies pas d'y ajouter quelques explications et un exemple de résultat attendu

    Cdlmnt
    0
  2. Hucksterag10 Messages postés 2 Statut Membre
     
    Desolé, j'aurai voulu le faire, mais les données sont confidentielles ....

    En fait je m'explique : la premiere ligne contient des grandeurs tel que : Pression / température / temps / vitesse

    la ligne du dessous :

    bar / °C / h / Kmh

    et en dessous

    1 / 28 / 2 / 32

    le soucis est que si les chiffres ne bougent pas au meme endroit que les valeurs, on change tout ! la j'ai 1 bar de pression / 28 °C de température etc...

    Je pense avoir trouvé :

    Range("A1").Select

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A3:J3"), _

    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Feuil1").Sort

    .SetRange Range("A1:J25")

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlLeftToRight

    .SortMethod = xlPinYin

    .Apply

    est ce que c'est cohérent ?

    Cordialement.
    0