Discussion :

[Sibuxian]

Bonjour,

Je dois réaliser une macro de tri. Malheureusement pour moi, le contenu des cellule sur lesquelles j'effectue le tri ne sont pas classer par ordre alphabétique.

J'ai donc eu l'idée de faire un tableau a coté où je donne une valeur a chaque contenu de cellule. Puis dans un second temps, je fais une rechercheV afin de remplacer le contenu des Cellules par leur équivalent en chiffre. Je fais le tri par ordre croissant puis je reremplace les équivalent chiffré par l'ancien contenu de la cellule.

Mon problème est que le contenu de la celulle peut etre vide. j'ai donc prévu dans mon tableau annexe une cellule vide avec un équivalent chiffré mais VBA, voir meme excel ne comprend pas que je soit avoir un certain numero si ma cellule est vide avec ma rechercheV

Comment faire svp?

[DeaD78]

Bonjour,

Je n'ai pas bien saisi tout ce que tu veux.

Cependant, on dirait que l'enregistreur de macros est ton ami pour ce que tu souhaites faire.

Et voilà un tri sur la colonne A grâce à cet outil :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Columns("A:A").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1:A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:A6")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Le contenu de tes cellules n'est sûrement pas classé par ordre alphabétique si tu veux justement les trier (c'est le but non ?).

Bref, c'est un tri tout simple que tu dois faire et qui est supporté par Excel sans avoir besoin de X tableaux intermédiaires.

Bonne chance !