Discussion :

[Shikam]

Bonjour,

J'ai un petit soucis pour trier une une colonne via une macro VBA. J'ai par exemple 2 colonnes comme ça :

1000
HP 4273
HP 4866
6068
6079

et je veux :

1000
6068
6079
HP 4273
HP 4866



Voila, je n'arrive même pas à le faire via excel donc au niveau macro, j'ai pas la moindre chance. Si quelqu'un peut m'aider, merci d'avance.

[sabzzz]

bonjour Shikam,

Code :

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

1
2
3
    Range("A1:A5").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

[Shikam]

Bonsoir,

Merci de ta réponse mais ce n'est pas exactement ce que je voulais !



Les 1er 2 colonnes, c'est ce que j'ai au départ et les autres ce que je veux !

Et avec ton code, ça me met juste les HP en haut !

Si tu as une idée, merci d'avance

[sabzzz]

bonjour ,

ok, je voie mieux maintenant, ce n'est pas évident de mettre les données en tableaux
si tu peut ajouter une colonne, tu pourrait mettre la formule suivante et trier A:C sur cette nouvelle colonne.

Code :

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

=ESTTEXTE(A1)

[Shikam]

Ah c'est compliqué, en plus je dois faire ça avec une macro !

Si j'ai bien compris, avec ça je detecte si il y a du texte et je coupe colle, la ou il faut?

[Pierre Fauconnier]

Bonsoir.

Si tu peux utiliser une colonne à droite de ta plage, tu pourrais t'inspirer de ceci:

Ajout d'une formule qui renvoie VRAI lorsque A est vide, et FAUX lorsque A n'est pas vide (VRAI = 1 et FAUX = 0).

Puis, tri sur trois colonnes (C en décroissant, puis A en croissant, puis B en croissant)

Puis, suppression de la formule en C

Code :

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

1
2
3
4
5
6
7
Sub Tri()
  Range("c2:c9").Formula = "=isblank(a2:a9)"
  Range("a2:c9").Sort key1:=Range("c2"), order1:=xlDescending, _
    key2:=Range("a2"), order2:=xlAscending, _
    key3:=Range("b2"), order3:=xlAscending
  Range("c2:c9").Clear
End Sub

[Shikam]

Bonjour,

Merci ça marche, il faut juste que je l'adpate à mon projet mais le plus dur est fait ! Merci !