Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Tri simple vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aredo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

aredo

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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é
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 Solution OK_problème de débutant (tri)
Réponses
11
Affichages
389
serras
F
  • Résolu(e)
Microsoft 365 DatePicker dans Userform pour Excel365 ?
Réponses
12
Affichages
483
patricktoulon
J
  • Résolu(e)
Microsoft 365 Anomalie tri colonnes d’un tableau
Réponses
14
Affichages
311
JPC33
J
R
  • Résolu(e)
XL 2021 Controle de la qualité de l’eau
Réponses
12
Affichages
486
Roro40
R
  • Résolu(e)
Microsoft 365 [VBA] Listes dynamiques selon cases à (dé)cocher
2
Réponses
18
Affichages
705
alexga78
A
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
654
Birobi
B
M
  • Résolu(e)
Microsoft 365 Erreur 9 macro
Réponses
3
Affichages
199
matmac
M
R
  • Question Question
Microsoft 365 Calcul de ligne qui ne se fait plus automatiquement...
Réponses
8
Affichages
265
job75
  • Question Question
Tirage au sort sous forme d'une vidéo
Réponses
0
Affichages
74
Océane
C
  • Résolu(e)
XL 2016 rapatrier des données d'un onglet vers une feuille récapitulatrice via un menu déroulant
Réponses
4
Affichages
124
cocotte38
C
P
  • Question Question
XL 2021 recherche périodicité
Réponses
7
Affichages
301
djidji59430
M
  • Résolu(e)
XL 2016 Créer liste déroulante avec autocomplétion sous excel 2016
Réponses
8
Affichages
220
Dranreb
A
  • Résolu(e)
Autres Tri tableau vba
Réponses
9
Affichages
159
sylvanu
M
  • Question Question
Microsoft 365 Tri d'une table interne
Réponses
5
Affichages
146
Mongo
M
  • Question Question
XL 2016 QRcode HS [Résolu]
Réponses
12
Affichages
360
crackerwood
B
  • Question Question
XL 2016 Excel plante lors de la sélection de la couleur de police A sur le ruban
Réponses
13
Affichages
284
TooFatBoy
  • Résolu(e)
XL 2019 Problème de Tri de nombres avec des points
2 3
Réponses
40
Affichages
1 K
patricktoulon
  • Résolu(e)
Microsoft 365 VBA : récupérer la date
Réponses
9
Affichages
205
VBA_dev_Anne_Marie
M
  • Question Question
Microsoft 365 Tri alpha de colonne
Réponses
7
Affichages
266
Phil69970
D
  • Question Question
Microsoft 365 TCD et format date
Réponses
7
Affichages
192
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…