Autres Tri simple vba

aredo · 4 Avril 2023

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 · 4 Avril 2023

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 · 4 Avril 2023

Bien alors pas moyen de changer cette interprétation ?

Phil69970 · 4 Avril 2023

Bonjour à tous

aredo à dit:
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 · 5 Avril 2023

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 · 5 Avril 2023

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 · 5 Avril 2023

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 · 6 Avril 2023

bonjour,

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

gbinforme · 6 Avril 2023

aredo à dit:
j'aurais préféré du code.

Alors le voici

Dranreb · 7 Avril 2023

Bonsoir.
Plus rapide comme ça :

VB:

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 :

VB:

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 · 13 Avril 2023

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

Autres Tri simple vba

aredo

XLDnaute Occasionnel

Pièces jointes

gbinforme

XLDnaute Impliqué

aredo

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

aredo

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

aredo

XLDnaute Occasionnel

Pièces jointes

aredo

XLDnaute Occasionnel

Pièces jointes

gbinforme

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

aredo

XLDnaute Occasionnel

Discussions similaires