Tri colonne

phlaurent55

Nous a quittés en 2020

Repose en paix

• 24 Juin 2010

• #2

Re : Tri colonne

Bonjour manu,

voir pièce jointe

ton fichier joint ne contenait pas de doublons ...................... alors, j'en ai créé
Clique sur le bouton pour trier et supprimer les doublons

à+
Philippe

 

Pièces jointes

• 111.zip

  30.6 KB · Affichages: 36
• 111.zip

  30.6 KB · Affichages: 37
• 111.zip

  30.6 KB · Affichages: 37

Vote positif 0 Vote négatif

M

manuBX

XLDnaute Occasionnel

• 24 Juin 2010

• #3

Re : Tri colonne

Bonjour phlaurent
Merci et excuse moi je n ai pas été assez clair
comment peut on avoir un tri dans l ordre suivant 1A 1E 1M 5A 5E 5M 10A 10E 10M 13A 13E 13M
MERCI D AVANCE

 

Dernière édition: 24 Juin 2010

Vote positif 0 Vote négatif

M

manuBX

XLDnaute Occasionnel

• 24 Juin 2010

• #4

Re : Tri colonne

Excusez ma relance mais j ai cherché une solution pour le tri
je n y arrive pas
a votre bon coeur
A+

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Juin 2010

• #5

Re : Tri colonne

bonjour tous. le pb...mettre dans l'ordre alpha en fonction de ton critére essai comme cela

Code:

Sub es()
Dim t As Variant, t2(), m As Object, x As Long, i As Long, k As Long, c As Range
Application.ScreenUpdating = False
On Error Resume Next
Set m = CreateObject("Scripting.Dictionary")
t = Range("a2:e" & Cells(Rows.Count, 1).End(xlUp).Row)
x = 1: For i = 1 To UBound(t)
If Not m.Exists(t(i, 1)) Then
m.Add t(i, 1), t(i, 1): ReDim Preserve t2(1 To 4, 1 To x)
For k = 1 To 4: t2(k, x) = (t(i, k)): Next k: x = x + 1: End If: Next i
Range("a2:d" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
Range("a2").Resize(UBound(t2, 2), UBound(t2, 1)) = Application.Transpose(t2)
Erase t, t2: Set m = Nothing
For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
 c = StrReverse(c)
Next
[a2:d65536].Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess
For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
  c = StrReverse(c)
Next
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Juin 2010

• #6

Re : Tri colonne

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

Pièces jointes

• Copie de Note.zip

  27.7 KB · Affichages: 42

Dernière édition: 25 Juin 2010

Vote positif 0 Vote négatif

M

manuBX

XLDnaute Occasionnel

• 25 Juin 2010

• #7

Re : Tri colonne

Merci à tous
je vais regarder pour compiler le tri et le doublons
encore Merci

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 26 Juin 2010

• #8

Re : Tri colonne

Bonjour à tous,
ci-joint une version formules à tester.
Le tri est fait sans doublons (j'en ai rajouté puisque tu n'en avais pas mis).
Ceci-dit, en cas de doublons, tu ne précise pas quelle ligne (avec date et observations) doit être prise en compte. J'ai donc pour l'instant choisi la 1ère.
Cordialement

 

Pièces jointes

• Tri_Manu_bx.zip

  25.6 KB · Affichages: 29

Vote positif 0 Vote négatif

M

manuBX

XLDnaute Occasionnel

• 27 Juin 2010

• #9

Re : Tri colonne

Bonjour
effectivement le tri et doublons sont à faire sur colonne A
je suis plus interesse par une macro
MERCI DE L AIDE
A+

 

Vote positif 0 Vote négatif