Tri par ordre croissant

Lone-wolf

XLDnaute Barbatruc

• 16 Juin 2018

• #2

Bonsoir SALAH

@SALAH

Ci-joint un exemple pour mieux comprendre

Cliquez pour agrandir...

Et où est-qu'il est le fichier?? 😵

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #3

Lone-wolf à dit:

Bonsoir SALAH

@SALAH


Et où est-qu'il est le fichier?? 😵

Cliquez pour agrandir...

 

Pièces jointes

• Maquette.xls

  48 KB · Affichages: 44

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #4

Bonsoir le fil, le forum

@SALAH
Par commodité, j'ai défusionné certaines cellules
Le code ci-dessous fonctionne

VB:

Sub Tri_TEST_OK()
Dim l&
l = Cells(Rows.Count, "B").End(3).Row
Application.DisplayAlerts = False
Range("B9:B" & l).TextToColumns Destination:=Range("A9"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1))
Range("A8:D12").Sort Key1:=Range("A9:A12"), Order1:=xlAscending, Key2:=Range("B9:B12"), Order2:=xlAscending, Header:=True
End Sub

NB: A peaufiner par la suite, mais là c'est l'heure du souper 😉

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #5

Bonjour le forum, Lone-wolf

Pardon

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #6

Bonjour le forum, Staple1600, Lone-wolf

Merci, je regarde ça

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #7

SALAH à dit:

Bonjour le forum, Lone-wolf

Pardon

Cliquez pour agrandir...

Pourquoi pardon ?

Tu avais joint un fichier dans ton premier message.

Mais juste après le message de Lone-Wolf qui ne l'a donc pas vu arriver 😉

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #8

Bonjour le fil, Staple1600
il m' indique une erreur 1004 "Pour ce faire, la taille des cellules fusionnées doit être identique"
Je ne comprends pas trop bien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #9

Re

J'avais pourtant écris 😉

Par commodité, j'ai défusionné certaines cellules

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #10

Re- Staple1600

j' avais bien vu ton message mais je n' ai rien compris, je commence à peine à m' interesser au vb
Pourrais-tu mieux m' éclairer par rapport à "défusionné"

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #11

Re,

@SALAH
Il faut dé-fusionner manuellement les cellules avant de lancer ma macro.
(Cliques sur l'image pour les détails)

Il faut que ton tableau soit agencé comme sur la copie d'écran
(après que les cellules aient été dé-fusionnées)

 

Vote positif 0 Vote négatif

S

SALAH

XLDnaute Occasionnel

• 16 Juin 2018

• #12

Staple1600, le forum

En effet sa marche mieux, sauf que les nombre ne sont pas classés par ordre chronologique

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #13

Re

@SALAH
Tu veux un tri sur les lettres (ref1) puis sur les chiffres (ref2) ou juste sur les chiffres ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juin 2018

• #14

Re, Bonsoir Lone-Wolf

Ci-dessous ma macro avec le tri uniquement sur les chiffres

VB:

Sub Tri_TEST_OK_B()
Dim l&, t
l = Cells(Rows.Count, "B").End(3).Row: t = Array(Array(0, 1), Array(1, 1))
Application.DisplayAlerts = False
Range("B9:B" & l).TextToColumns Destination:=Range("A9"), DataType:=2, FieldInfo:=t
Range("A8:D" & l).Sort Key1:=Range("B8:B" & l), Order1:=1, Header:=True
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Juin 2018

• #15

Re Jean Marie

Pour le Split des lettres en colonne B, il faut modifier la macro. À chaque fois qu'on clique elle supprime un caractère.

 

Vote positif 0 Vote négatif