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

Problême de tri

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JACRAV
  • 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
J

JACRAV

Guest
Bonjour à tous

J'ai un problême de tri dans un fichier!
J'ai 5 références comme ci-dessous dans une colonne:

DAU1015
DAU1018
DAU1522
DAU69
DAU812
Je souhaiterais lorsque je fais un tri que les références(ce sont des dimensions)
S'affichent comme suit:
DAU69
DAU812
DAU1015
DAU1018
DAU1522
j'ai beau chercher mais je n'y arrive pas.Je reviens toujours à la case départ!

plage.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Pouvez-vous m'aider?
Merci par avance.
Bon We
Bien cordialement
Jacques
 
Trier par date Trier par votes
Re : Problême de tri

Boinjour Jacrv

Essaye avec les tris personnalisés, mais à mon avis, cela va par le faire car je pense que tu n'as pas que ces références à trier 😕
 
Vote positif 0 Vote négatif
Re : Problême de tri

Bonsoir à tous,
essai d'une proposition prenant en compte les lettres et les nombres mais à tester plus avant (système de pondération tenté peut avoir besoin d'être réglé plus finement). On doit cependant pouvoir faire plus simple...
Code: 
Sub testTri()
Dim tabl, i&, j&, k&, l&, m&, n&, Résultat&, temp, DerLigne&
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("F1:F" & DerLigne).ClearContents
tabl = Range("A1:A" & DerLigne).Value
Dim tabl2()
ReDim tabl2(1 To DerLigne)
    For i = 1 To DerLigne
        For j = 1 To Len(Cells(i, 1))
            Résultat = Résultat + Asc(Mid(Cells(i, 1), j, 1)) * _
            ((Len(Cells(i, 1)) - j + Asc(Mid(Cells(i, 1), j, 1)) / 10))
       Next j
       tabl2(i) = tabl(i, 1) & "#" & Résultat
       Résultat = 0
    Next i
Dim tabl3
ReDim tabl3(1 To DerLigne)
    For k = 1 To DerLigne
    tabl3(k) = CDbl(Right(tabl2(k), Len(tabl2(k)) - InStr(1, tabl2(k), "#")))
    Next k
Dim tabl4
ReDim tabl4(1 To DerLigne)
    For l = 1 To DerLigne
    tabl4(l) = Application.WorksheetFunction.Small(tabl3, l)
    Next l
Dim tabl5
ReDim tabl5(1 To DerLigne)
    For m = 1 To DerLigne
        For n = 1 To DerLigne
            If tabl4(m) = CDbl(Right(tabl2(n), _
            Len(tabl2(n)) - InStr(1, tabl2(n), "#"))) Then tabl5(m) = tabl(n, 1)
        Next n
    Next m
 Range("F1").Resize(UBound(tabl5)) = Application.Transpose(tabl5)
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problême de tri

Re
ci-joint nouveau code modifié :
- procédure de pondération retouché (mais peut-être encore à affiner),
- les références rentrées en minuscules sont traitées et retranscrites en majuscules.
Après, faute de fichier, difficile de cerner exactement l'attente initiale.
Code: 
Sub testTri()
Dim tabl, i&, j&, k&, l&, m&, n&, Résultat&, temp, DerLigne&
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("F1:F" & DerLigne).ClearContents
tabl = Range("A1:A" & DerLigne).Value
Dim tabl2()
ReDim tabl2(1 To DerLigne)
    For i = 1 To DerLigne
        For j = 1 To Len(Cells(i, 1))
            Résultat = Résultat + Asc(Mid(UCase(Cells(i, 1)), j, 1)) * 2 ^ ((Len(Cells(i, 1)) - j))
       Next j
       tabl2(i) = tabl(i, 1) & "#" & Résultat
       Résultat = 0
    Next i
Dim tabl3
ReDim tabl3(1 To DerLigne)
    For k = 1 To DerLigne
    tabl3(k) = CDbl(Right(tabl2(k), Len(tabl2(k)) - InStr(1, tabl2(k), "#")))
    Next k
Dim tabl4
ReDim tabl4(1 To DerLigne)
    For l = 1 To DerLigne
    tabl4(l) = Application.WorksheetFunction.Small(tabl3, l)
    Next l
Dim tabl5
ReDim tabl5(1 To DerLigne)
    For m = 1 To DerLigne
        For n = 1 To DerLigne
            If tabl4(m) = CDbl(Right(tabl2(n), _
            Len(tabl2(n)) - InStr(1, tabl2(n), "#"))) Then tabl5(m) = UCase(tabl(n, 1))
        Next n
    Next m
 Range("F1").Resize(UBound(tabl5)) = Application.Transpose(tabl5)
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Problême de tri

Bonsoir
A chacun qui a eu la gentillesse de m'aider,un grand merci;
Avec les éléments fournis je pense pouvoir résoudre mon problême.

Avec toute ma gratitude
Bien cordialement
jacques
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
200
sylvanu
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
742
Dranreb
C
  • Question Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
632
candido57
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
625
Usine à gaz
  • Résolu(e)
Microsoft 365 VBA: fonction pour désélectionner après le tri
Réponses
2
Affichages
692
VBA_dev_Anne_Marie
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Question Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
1 K
GUERET
G
J
  • Question Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
585
JMP56
J
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
793
Averell1976
A
B
  • Question Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
777
Benjy51190
B
  • Question Question
Microsoft 365 Ordre alphabétique à la fermeture d'une feuille
Réponses
5
Affichages
821
pompaero
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
969
Staple1600
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
  • Résolu(e)
Microsoft 365 Modifier une liste sur deux onglets
Réponses
11
Affichages
2 K
Roseline
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…