VBA-TRIER CHIFFRE incluant des CHIFFRES AVEC UNE LETTRE

  • Initiateur de la discussion Initiateur de la discussion Celeda
  • 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 !

Celeda

XLDnaute Barbatruc
Bonjour,

Je suis à la recherche d'une macro qui me trierait des chiffres et des chiffres qui terminent par une lettre.
Excel trie d'abord les chiffres et ensuite place les chiffres avec une lettre à la fin et cela ne m'arrange pas du tout. Et en plus je souhaiterais que tout soit aligné à droite.
Pouvez-vous m'aider, svp.

Voici de quoi il en retourne :

ETAPE 1 - recup chiffres
114
20B
6
150
30A


ETAPE2 -Liste après tri
6
114
150
20B
30A

ETAPE3 - voilà ce que j'aimerais obtenir comme tri.
6
20B
30A
114
150

Merci à l'avance.
 
Dernière édition:
Re : VBA-TRIER CHIFFRE inclusant des CHIFFRES AVEC UNE LETTRE

Bonjour,

Suppose que tes données sont en colonne D1😀x
en colonne E, tu copies cette formule : =SI(ESTNUM(DROITE(D1;1)*1);D1;GAUCHE(D1;NBCAR(D1)-1))*1
Tu sélectionnes les colonnes D1:Ex et tu tries sur la colonne E, et tu effaces le contenu de la colonne E
 
Re : VBA-TRIER CHIFFRE inclusant des CHIFFRES AVEC UNE LETTRE

Re,

En faisant comme JB, c'est en effet plus simple, pas besoin d'une 2ème boucle.

Par contre j'ai besoin de faire 2 tris successifs identiques.

Pas encore compris pourquoi.

Edit : compris, c'est à cause de Header:=xlGuess ! Voir fichier (3).

A+
 

Pièces jointes

Dernière édition:
Re : VBA-TRIER CHIFFRE inclusant des CHIFFRES AVEC UNE LETTRE

Re
Salut ami job 🙂 🙂 (et à tres bientot)
Bravo JB

Mais juste histoire de jouer le genre 'Pénible'
ne trie pas si plus d'un alpha
voir exemple
 

Pièces jointes

Re : VBA-TRIER CHIFFRE inclusant des CHIFFRES AVEC UNE LETTRE

Re,

Jacques, je ne comprends pas pourquoi tu te casses la tête avec les lettres.

Un 2ème critère de tri, sur la colonne A, suffit non ?

Code:
Sub triColInter2()
  [b:b].Insert
  For Each c In Range([A2], [a65000].End(xlUp))
    c.Offset(0, 1) = Val(c)
  Next c
  With Range("A2").CurrentRegion
    .Offset(1).Resize(.Rows.Count - 1).Sort [B2], , [A2]
  End With
  [b:b].Delete
End Sub
A+
 
- 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

Retour