Tri par ordre croissant

SALAH · 16 Juin 2018

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 · 16 Juin 2018

Bonsoir SALAH

@SALAH

Ci-joint un exemple pour mieux comprendre

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

SALAH · 16 Juin 2018

Lone-wolf à dit:
Bonsoir SALAH

@SALAH

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

Staple1600 · 16 Juin 2018

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

SALAH · 16 Juin 2018

Bonjour le forum, Lone-wolf

Pardon

SALAH · 16 Juin 2018

Bonjour le forum, Staple1600, Lone-wolf

Merci, je regarde ça

Staple1600 · 16 Juin 2018

SALAH à dit:
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 · 16 Juin 2018

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 · 16 Juin 2018

Re

J'avais pourtant écris

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

SALAH · 16 Juin 2018

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 · 16 Juin 2018

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 · 16 Juin 2018

Staple1600, le forum

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

Merci

Staple1600 · 16 Juin 2018

Re

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

Staple1600 · 16 Juin 2018

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

Lone-wolf · 16 Juin 2018

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.

Tri par ordre croissant

SALAH

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

SALAH

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires