Ordonner selon certaines conditions

job75

XLDnaute Barbatruc

• 28 Juillet 2009

• #2

Re : Ordonner selon certaines conditions

Bonsoir Magic Doctor,

Sans macro, si les dates sont en colonne B, le plus simple est d'entrer en colonne C la formule (tirée vers le bas) :

=DATE(2000;MOIS(B2);JOUR(B2))

Pour le classement du tableau, trier suivant la colonne C.

A+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 28 Juillet 2009

• #3

Re : Ordonner selon certaines conditions

Bonsoir,

Ci-joint une solution.
Dans la colonne C on rajoute la formule : =TEXTE(B2;"jj/mm")*1
Et on tri sur cette colonne.

Edit : Bonsoir Job75

 

Pièces jointes

• Classeur1.xls

  14.5 KB · Affichages: 71
• Classeur1.xls

  14.5 KB · Affichages: 68
• Classeur1.xls

  14.5 KB · Affichages: 75

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 28 Juillet 2009

• #4

Re : Ordonner selon certaines conditions

Bonsoir à tous

Deux bricolages avec des formules...​

ROGER2327

 

Pièces jointes

• MagicDoctor_anniversaires.xls

  16 KB · Affichages: 72

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2009

• #5

Re : Ordonner selon certaines conditions

Merci Catrice, Job75 et Roger2327,

La solution de Roger est celle qui répond le mieux à mon problème. Cependant, pour des raisons techniques j'aurais voulu que le tri se fasse par macro.
Le problème s'est légèrement compliqué, vu qu'en fait il y aura 3 colonnes :

Zaza ... 26/12/1957 ... 51 ans
Lolo .... 13/04/1988 ... 21 ans
Toto ... 18/11/1944 ... 64 ans
Bibi ..... 14/01/1995 ... 14 ans
Juju .... 15/01/2005 ... 4 ans

et obtenir :

Bibi ..... 14/01/1995 ... 14 ans
Juju .... 15/01/2005 ... 4 ans
Lolo .... 13/04/1988 ... 21 ans
Toto ... 18/11/1944 ... 64 ans
Zaza ... 26/12/1957 ... 51 ans

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 28 Juillet 2009

• #6

Re : Ordonner selon certaines conditions

Re,

Ci-joint une solution macro à adapter

 

Pièces jointes

• Classeur1.xls

  24 KB · Affichages: 72
• Classeur1.xls

  24 KB · Affichages: 68
• Classeur1.xls

  24 KB · Affichages: 77

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juillet 2009

• #7

Re : Ordonner selon certaines conditions

Suite...

Une solution programmée un peu plus élaborée :

Code:

[COLOR="DarkSlateGray"]Sub trier()
Dim sDat As String, aDat As String, nDat As Integer, kDat As Integer, sDst As String, aDst As String
Dim i As Long, j As Long, k As Long, di As Date, dj As Date, tmp, oDat()
   sDat = "Feuil1" [COLOR="SeaGreen"]' Feuille de données.[/COLOR]
   aDat = "A2" [COLOR="SeaGreen"]' Première cellule de données.[/COLOR]
   nDat = 3 [COLOR="SeaGreen"]' Nombre de colonnes de données.[/COLOR]
   kDat = 2 [COLOR="SeaGreen"]' Rang de la colonne contenant les dates à ordonner, DANS LA PLAGE de données.[/COLOR]
   sDst = "Feuil1" [COLOR="SeaGreen"]' Feuille de destination.[/COLOR]
   aDst = "M2" [COLOR="SeaGreen"]' Première cellule de destination.[/COLOR]
   With Sheets(sDat)
      oDat = .Range(aDat).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - .Range(aDat).Row + 1, nDat).Value
      For i = 2 To UBound(oDat, 1)
         di = DateSerial(2008, Month(oDat(i, kDat)), Day(oDat(i, kDat)))
         For j = i - 1 To 1 Step -1
            dj = DateSerial(2008, Month(oDat(j, kDat)), Day(oDat(j, kDat)))
            If di >= dj Then Exit For
            For k = 1 To nDat
               tmp = oDat(j + 1, k)
               oDat(j + 1, k) = oDat(j, k)
               oDat(j, k) = tmp
            Next k
            dj = di
         Next j
      Next i
      Sheets(sDst).Range(aDst).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - .Range(aDat).Row + 1, nDat).Value = oDat
   End With
End Sub[/COLOR]

Voir le classeur joint.​

ROGER2327

 

Pièces jointes

• MagicDoctor_anniversaires_2.xls

  31.5 KB · Affichages: 65

Dernière édition: 29 Juillet 2009

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Juillet 2009

• #8

Re : Ordonner selon certaines conditions

Salut Magic_Doctor
Bonjour le Fil
Bonjour le Forum

Vite fait histoire de vous Saluer

Une autre version Vba

Le Fichier :Regarde la pièce jointe MagicDoctor_anniversaires_3.xls

arff après réflexion je pense que je n'ai pas compris lol
j'ai donc utilise la somme Date et Mois pour faire le tri arfffffffff

le fichier modifié Lol

Bonne journée

 

Dernière édition: 29 Juillet 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Juillet 2009

• #9

Re : Ordonner selon certaines conditions

Bonjour le fil, le forum,

Bon j'y vais aussi de ma solution VBA :

Code:

Sub test()
Dim tablo(), cel As Range
Application.ScreenUpdating = False
With Range("A2", Range("B65536").End(xlUp))
tablo = .Value
For Each cel In .Resize(, 1).Offset(, 1)
cel = Format(cel, "mm/dd")
Next
.Resize(, 3).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
For Each cel In .Resize(, 1)
cel.Offset(, 1) = Application.VLookup(cel, tablo, 2, 0)
Next
End With
End Sub

A+

 

Pièces jointes

• Anniversaires.xls

  25.5 KB · Affichages: 66
• Anniversaires.xls

  25.5 KB · Affichages: 60
• Anniversaires.xls

  25.5 KB · Affichages: 68

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juillet 2009

• #10

Re : Ordonner selon certaines conditions

Bonjour à tous

ChTi160, job75, petit problème avec l'échantillon suivant :

Code:

[FONT="Courier New"][COLOR="Indigo"]Juju	05/11/2005	3 ans
Molo	13/04/1998	11 ans
Wibi	14/01/1995	14 ans
Laza	26/12/1957	51 ans
Saza	31/07/1957	51 ans
Molo	13/04/1998	11 ans
Molo2	12/05/1998	11 ans
Qaza	14/03/1993	16 ans
Wibi	14/01/1995	14 ans
Saza2	26/12/1957	51 ans
Saza3	27/11/1957	51 ans
Tibi	14/01/1995	14 ans
Tibi	14/01/1995	14 ans
Juju2	06/10/2005	3 ans
Toto	18/11/1944	64 ans
Juju3	15/01/2005	4 ans
Toto	18/11/1944	64 ans
Tibi2	06/09/1995	13 ans
Wibi	14/01/1995	14 ans
Toto	18/11/1944	64 ans
Zaza	26/12/1957	51 ans
[/COLOR][/FONT]

Je joins l'échantillon dans une feuille.​

Bonne journée.
ROGER2327

 

Pièces jointes

• MagicDoctor_anniversaires_données.xls

  14 KB · Affichages: 59

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 29 Juillet 2009

• #11

Re : Ordonner selon certaines conditions

Bonjour,

ci-joint une autre élaboration :

Code:

Sub test1()
Application.ScreenUpdating = False
Debut = "B2"
With ActiveSheet
    Set MaZone = .Range(Range(Debut), .Range(Debut).End(xlDown))
    For Each X In MaZone
        X.Value = CDbl(DateSerial(2000, Month(X), Day(X))) & "-" & Year(X)
    Next
    .Range(Debut).Sort Key1:=Range(Debut), Order1:=xlAscending
    For Each X In MaZone
        X.Value = DateSerial(Split(X, "-")(1), Month(Split(X, "-")(0)), Day(Split(X, "-")(0)))
    Next
End With
Application.ScreenUpdating = True
End Sub

 

Pièces jointes

• Classeur1.xls

  33 KB · Affichages: 68
• Classeur1.xls

  33 KB · Affichages: 71
• Classeur1.xls

  33 KB · Affichages: 64

Dernière édition: 29 Juillet 2009

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 29 Juillet 2009

• #12

Re : Ordonner selon certaines conditions

Re,

Chez moi la macro de Job75 a l'air de fontionner avec les données de Roger2327.
Job75, pas mal ta solution, je modifierais cette ligne :
cel.Offset(, 1) = CDate(Application.VLookup(cel, tablo, 2, 0))

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juillet 2009

• #13

Re : Ordonner selon certaines conditions

Re...

Bonjour Catrice.

Chez moi la macro de Job75 a l'air de fontionner avec les données de Roger2327.

Cliquez pour agrandir...

J'obtiens cela :

Code:

[COLOR="Indigo"]Wibi	14/01/1995	14 ans
Wibi	14/01/1995	14 ans
Tibi	14/01/1995	14 ans
Tibi	14/01/1995	14 ans
Wibi	14/01/1995	14 ans
Juju3	15/01/2005	4 ans
Qaza	14/03/1993	16 ans
Molo	13/04/1998	11 ans
Molo	13/04/1998	11 ans
[COLOR="Sienna"]Juju	05/11/2005	3 ans[/COLOR]
[COLOR="Sienna"]Tibi2	06/09/1995	13 ans[/COLOR]
[COLOR="Sienna"]Juju2	06/10/2005	3 ans[/COLOR]
[COLOR="Sienna"]Saza	31/07/1957	51 ans[/COLOR]
Toto	18/11/1944	64 ans
Toto	18/11/1944	64 ans
Toto	18/11/1944	64 ans
[COLOR="Sienna"]Saza3	27/11/1957	51 ans[/COLOR]
[COLOR="Sienna"]Molo2	12/05/1998	11 ans[/COLOR]
Laza	26/12/1957	51 ans
Saza2	26/12/1957	51 ans
Zaza	26/12/1957	51 ans
[/COLOR]

De plus, en répétant l'exécution du code, l'ordre change. Ai-je fait une erreur de manipulation ?​

ROGER2327

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Juillet 2009

• #14

Re : Ordonner selon certaines conditions

Re,

Merci Catrice, j'avais en effet oublié le CDate 😱

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juillet 2009

• #15

Re : Ordonner selon certaines conditions

Re... ...suite

Bonjour job75,
Avec la correction de Catrice tout rentre dans l'ordre. Et ça donne un code court, en plus...​

Cordialement,
ROGER2327

 

Vote positif 0 Vote négatif