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

 

[SALAH]

Re, Staple1600, Lone-wolf

Le but c' est de voir dans la colonne réf2 un ordre chronoloqique accompagnés de leurs propres références
Comme dans l exemple Ci dessous

ref1 ref2 désignation couleur
P 254 Chemises blanche
R 365 Veste rose
R 365 Veste vert
V 1478 Pull noir

Merci

 

[Staple1600]

Re

@Lone-wolf
C'est noté 😉
Dans ce cas:

Sub Tri_TEST_OK_C()
Dim l&, t
l = Cells(Rows.Count, "B").End(3).Row: t = Array(Array(0, 1), Array(1, 1))
Application.DisplayAlerts = False
If Len([A9]) = 0 Then
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
Else
MsgBox "Tableau déjà trié"
End If
End Sub

 

[SALAH]

Re, Staple1600, Lone-wolf

La macro marche très bien
encore une chose les doublons ne sont pas coloriés
Ensuite je ne vous embetterais plus

 

[Staple1600]

Re

@SALAH
Pour les doublons, il suffit d'utiliser la MFC idoine 😉
(déjà paramétrée en natif dans Excel à partir de 2010 de mémoire)

EDITION: Donc la MFC native mais pilotée par VBA

Sub Doublons()
Dim l&, Plg As Range
l = Cells(Rows.Count, "B").End(3).Row
Set Plg = Range("B9:B" & l)
    Plg.FormatConditions.AddUniqueValues
    Plg.FormatConditions(Plg.FormatConditions.Count).SetFirstPriority
    With Plg.FormatConditions(1)
      .DupeUnique = xlDuplicate: .Font.Color = RGB(216, 0, 187)
      .Font.Bold = True: .Interior.Color = 13551615
      .StopIfTrue = False
    End With
End Sub

 

[Lone-wolf]

Re

Oubien une macro de Jacques Boisgontier. En G2 met la couleur de fond, ensuite

Sub ColorDoublons()
Dim mondico As Object, tablo As Range, c As Range

  Set mondico = CreateObject("Scripting.Dictionary")
  Set tablo = Range("b9", Range("b" & Rows.Count).End(xlUp))
  tablo.Interior.ColorIndex = xlNone

  For Each c In tablo
    If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  For Each c In tablo
    If mondico.Item(c.Value) > 1 Then c.Interior.Color = Range("g2").Interior.Color
  Next c
End Sub

Et en dessus de Else (Tri_TEST_OK_C()) Call ColorDoublons

 

[Staple1600]

Re

@Lone-wolf
Quelle que soit la macro, logiquement on devrait se contenter de la fonctionnalité native qui permet en deux clics d'identifier et marquer des doublons.
Mais bon, si il faut cette fois-ci ne pas ratiboiser, alors ne ratiboisons pas 😉

 

[SALAH]

Je vous remercie pour votre aide qui m' a permis d' avancer dans mon projet.
Il arrive quelque fois d' avoir 2 lettres dans la ref2 exemple AB2458
Que faut il faire comme changement dans le code ?

 

[SALAH]

Oups Bonjour le forum, Staple1600, Lone-wolf

Merci à vous deux pour l'aide que vous m' avez apporté

 

[SALAH]

Bonjour
Y a une personne?

 

[Staple1600]

Bonsoir le fil, le forum

@SALAH
Oui
Mais nous sommes dimanche.
Et en plus c'est la coupe du monde de balle au pied.

 

[SALAH]

Re le forum, staple1600

ok toutes mes excuses bon match

 

[Lone-wolf]

Bonjour SALAH, Jean Marie 🙂

@SALAH (MALEICUM 😉)

Ton fichier en retour. J'ai ajouté des lignes et certaines avec 3 lettres pour test. C'est OK! 😉

 

[SALAH]

Bonjour le forum, Lone-wolf
pas mal @SALAH (MALEICUM)
J' ai un retour d' erreur de compilation Variable non définie
Peux tu m' apporter une aide ?
Merci

 

[Lone-wolf]

Bonjour SALAH, Jean Marie, le Forum 🙂

@SALAH: désolé, il manquait la déclaration des variables dans la fonction personnalisée.

 

[SALAH]

Bonjour le forum, Lone-wolf
Tout fonctionne à merveille mais le hic ce que j' aurai du faire au début de ma demande
l' idée s' est élargie, pour une meilleure compréhension je joins le fichier