Autres Tri simple vba

[aredo]

bonjour,

Petite demande en pièce jointe, le tri n'est pas assez précis.
merci de bien vouloir me corriger le vba.
excel 2007 et 2016

 

[gbinforme]

bonsoir,
Ton tri est correct car tu tries en ascendant du texte cadré à gauche et 3334/7 est plus grand que 3334/10 car le texte est trié caractère par caractère et 7 > 1

 

[aredo]

Bien alors pas moyen de changer cette interprétation ?

 

[Phil69970]

Bonjour à tous

Bien alors pas moyen de changer cette interprétation ?

Non car un tri alpha est toujours comme la bien expliqué @gbinforme caractère par caractère et donc 7 sera toujours > à 1.

@Phil69970

 

[aredo]

Bonjour
Bien merci pour ces précisions. Toutefois s’il est possible de contourner cet état, ou une astuce vous vient à l’esprit, n’hésitez pas.
Merci au fofo

 

[patricktoulon]

bonjour
si tu souhaite trier par le résultat de la division déjà ton exemple est faux
après il faudrait donner plus de détails
voir être plus précis sur le contexte du tri
somme toute par vba pas très compliqué

 

[aredo]

Ce ne sont pas des divisions. Simplement des références, on peut remplacer le slash par un tiret.
Le fichier d'origine comporte neuf colonnes dont une masquée, des chiffres , du texte et des formules .
Le souci étant de classer dans l'ordre établi dans le fichier joint.

 

[aredo]

bonjour,

En rajoutant une colonne, cela fonctionne , j'aurais préféré du code.
merci au fofo

 

[gbinforme]

j'aurais préféré du code.

Alors le voici

 

[Dranreb]

Bonsoir.
Plus rapide comme ça :

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   Range("C3:C9").FormulaR1C1 = "=LEFT(RC1,SEARCH(""/"",RC1)-1)*10000+MID(RC1,SEARCH(""/"",RC1)+1,4)*1"
   Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlAscending
   Range("C3:C9").ClearContents
   End Sub
Private Sub CommandButton2_Click()
   Application.ScreenUpdating = False
   Range("C3:C9").FormulaR1C1 = "=LEFT(RC1,SEARCH(""/"",RC1)-1)*10000+MID(RC1,SEARCH(""/"",RC1)+1,4)*1"
   Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlDescending
   Range("C3:C9").ClearContents
   End Sub

ou comme ça :

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   ModNumTemp
   Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlAscending
   Range("C3:C9").ClearContents
   End Sub
Private Sub CommandButton2_Click()
   Application.ScreenUpdating = False
   ModNumTemp
   Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlDescending
   Range("C3:C9").ClearContents
   End Sub
Private Sub ModNumTemp()
   Dim T(), L As Long, TSpl() As String
   T = [A3:A9].Value
   For L = 1 To UBound(T, 1)
      TSpl = Split(T(L, 1), "/")
      T(L, 1) = TSpl(0) * 10000 + TSpl(1)
      Next L
   [C3:C9].Value = T
   End Sub

 

[aredo]

Bonjour
Merci à Dranreb et à gb pour vos deux approches. Super . Ça me va parfaitement
Bonne continuation