Autres Tri tableau vba

[aredo]

bonjour à tous,
Je voudrai trier un tableau dont certaines colonnes sont plus ou moins liées avec formules et MFC.
J'ai essayé de rentrer un code qui fonctionne en simple ligne mais pas en tableau. Ce code correspond à ce que je veux.
Apparemment ne marche plus dès lors qu'il y a des colonnes à gauche et des cellules vides.
Si quelqu'un peut corriger, ce serait sympa.
excel 2007 et 2019
merci au fofo

 

[sylvanu]

Bonjour Aredo,
Vous devriez expliquer quel tri vous voulez faire sur H, et quels en sont les spécificités car je n'ai pas tout compris à votre macro.
Si ce n'est qu'un tri alpha sur H alors essayez :

Sub TriH()
    Range("A:O").Resize([H1000].End(xlUp).Row).Sort key1:=[H1], order1:=xlAscending, Header:=xlYes
End Sub

 

[aredo]

bonjour sylvanu

Ce tri ne fonctionne pas , j'ai recopié manuellement en colonne "P" le bon tri.
Par contre le code en référence, remplace le " / "par "0, ce qui au final respecte bien l'ordre voulu.

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub TriA()
    Application.ScreenUpdating = False
    [P2:P1000].FormulaLocal = "=1*GAUCHE(H2;CHERCHE(CAR(47);H2)-1)"
    [Q2:Q1000].FormulaLocal = "=1*STXT(H2;1+CHERCHE(CAR(47);H2);20)"
    [P2:Q1000] = [P2:Q1000].Value
    Range("A2:Q1000").Resize(1000).Sort key1:=[P2], order1:=xlAscending, Header:=xlNo
    [P2:Q1000].ClearContents
End Sub

( valable si votre XL est en français, sinon il faudra une modiif pour l'angliciser )
Le résultat ressemble à votre attendu.

 

[aredo]

Y- a t'il une procédure spécifique pour lancer le tri ? Car chez moi, ne fonctionne pas
Désolé

 

[vgendron]

Bonjour

pourquoi ne pas simplement transformer votre tableau en table Structurée
et il suffit ensuite de cliquer sur la colonne souhaitée et "données/trier"

 

[sylvanu]

Oups ! Sorry. Ce n'était pas la bonne version.

Sub TriA()
    Application.ScreenUpdating = False
    [P2:P1000].FormulaLocal = "=1*GAUCHE(H2;CHERCHE(CAR(47);H2)-1)"
    [Q2:Q1000].FormulaLocal = "=1*STXT(H2;1+CHERCHE(CAR(47);H2);20)"
    [P2:Q1000] = [P2:Q1000].Value
    Range("A2:Q1000").Sort Key1:=Range("P2:P1000"), Order1:=xlAscending, Key2:=Range("Q2:Q1000"), Order2:=xlAscending, Header:=xlNo
    [P2:Q1000].ClearContents
End Sub

 

[sylvanu]

Bonjour Vgendron,

et il suffit ensuite de cliquer sur la colonne souhaitée et "données/trier"

Car ainsi le résultat ne serait pas celui attendu.
Le tri de Aredo est ... un peu spéical.
Ainsi 3420/32 est après 3420/7, alors qu'avec un TDS il serait avant.

 

[aredo]

Super , ça fonctionne parfaitement. Merci encore.
bon wkend à tous

 

[sylvanu]

Re,
Supprimez ce vert car il permet de mettre la solution juste après votre demande pour aider le futur lecteur vers la solution, non vers un post qui dit "super"