Tri par ordre croissant

[SALAH]

Bonjour à tous

J' ai un petit soucis,j' ai un tableau avec des colonnes et j'aimerais s' il est possible avec un code vb
de trier et d' organiser un tableau.
J' ai essayé de trouver une solution mais je bloque
Ci-joint un exemple pour mieux comprendre

Merci par avance

 

[Lone-wolf]

Bonsoir SALAH

@SALAH

Ci-joint un exemple pour mieux comprendre

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

 

[SALAH]

Bonsoir SALAH

@SALAH


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

 

[Staple1600]

Bonsoir le fil, le forum

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

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

 

[SALAH]

Bonjour le forum, Lone-wolf

Pardon

 

[SALAH]

Bonjour le forum, Staple1600, Lone-wolf

Merci, je regarde ça

 

[Staple1600]

Bonjour le forum, Lone-wolf

Pardon

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

 

[SALAH]

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

 

[Staple1600]

Re

J'avais pourtant écris

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

 

[SALAH]

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

 

[Staple1600]

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)

 

[SALAH]

Staple1600, le forum

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

Merci

 

[Staple1600]

Re

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

 

[Staple1600]

Re, Bonsoir Lone-Wolf

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

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

 

[Lone-wolf]

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.