XL 2016 Tri chronologique, je craque

[Olga Michel]

Bonjour à tous,

Je suis novice dans l'utilisation d'Excel. Comme j'aime bien me débrouiller toute seule, j'ai cherché partout sur le net, j'ai lu ce forum en long en large et en travers mais le temps passe et je n'ai toujours pas de solution à mon problème. C'est pourquoi je me permets de vous solliciter car je suis dans une impasse totale... et mon chef attend que je lui sorte un lapin de mon chapeau...

Voilà, c'est un tableau qui me permet de gérer des formations d'enseignants.
Quand je l'ai conçu je l'ai organisé par type de formation (les colonnes en couleurs). Mais maintenant j'aimerais pouvoir avoir une vue chronologique de la chose.
L'un des problèmes c'est que la ligne des dates est insérée dans un tableau avec des lignes fusionnées.
J'ai fait des essais en supprimant toutes les cellules fusionnées, mais ça ne marchait pas non plus.

Il n'est pas important que le classeur reste tel quel. Je veux dire que s'il est impossible de trier chronologiquement à cause des cellules fusionnées, on pourra très bien ajouter une page sans ces cellules problématiques.

Je vous remercie sincèrement de l'aide que vous pourrez m'apporter.

 

[pierrejean]

Bonjour olga

une macro a tester

 

[Olga Michel]

Bonjour Pierre-Jean,

Je vais essayer cette macro, mais avant tout je voudrais te remercier beaucoup beaucoup beaucoup pour la rapidité de ta réponse.
Je n'en reviens pas à vrai dire.
Allez hop, je file tester tout ça et je reviens pour te dire.

 

[2passage]

Bonjour,

J'ai testé une solution sans macro. J'ai juste ajouté une ligne en bas du tableau source (pour rendre unique chaque colonne) et un onglet qui classe par ordre chronologique. C'est normalement assez simple à faire évoluer.

 

[Olga Michel]

Je vous réponds en coup de vent car je suis écrasée de travail.

Hier, j'ai testé la macro de Jean-Pierre en vitesse. Comme je n'ai jamais fait ça, bah... chou blanc! Je n'ai pas testé non plus, la solution de 2passage... Par manque de temps encore. Je regarderai donc tout ça à tête reposée ce soir chez moi.

Mais je tenais à vous remercier encore, vous êtes vraiment super sympas.

 

[job75]

Bonjour Olga Michel, Pierre, 2passage,

Voyez le fichier joint et cette macro dans le code de la feuille "Tri chronologique" :

Private Sub Worksheet_Activate()
Dim a(31), c As Range

Application.ScreenUpdating = False
Feuil1.Cells.Copy [A1]
[A1].Copy [A1] 'vide la mémoire

a(0) = "Stage Réseau 1J - soleil montat"
a(1) = "Stage Réseau 1J - Monge Mont"
a(2) = "Stage école - Soleil": a(3) = a(2): a(4) = a(2)
a(5) = "Stage école - Monge": a(6) = a(5): a(7) = a(5)
a(8) = "Stage cycle - ALP"
a(9) = "Stage cycle - C3"
a(10) = "Stage cycle - ALP"
a(11) = "Stage cycle - C2 - Soleil Monge"
a(12) = "Stage cycle - C2 - Monge montat"
a(13) = "Stage cycle - C2 - Soleil Montat"
a(14) = "Stage cycle - C1 - Soleil Monge"
a(15) = "Stage cycle - C1 - Soleil Montat"
a(16) = "Stage cycle - C1 - Monge montat"
a(17) = "Stage cycle - Journée ciblée - GS CP"
a(18) = "Stage cycle - Journée ciblée - CE1 CE2"
a(19) = "Stage cycle - Journée ciblée - PS MS"
a(20) = "Parcours personnalisé - Journées académiques - raisonner et faire raisonner"
a(21) = "Parcours personnalisé - Journées académiques - education prioritaire sciences "
a(22) = "Parcours personnalisé - Journées académiques - éducation prioritaire esprit critique"
a(23) = "Parcours personnalisé - Journées académiques - éducation prioritaire écrire pour penser"
a(24) = "Parcours personnalisé - s'approprier des ressources OU observations croisées OU Ingénierie de formation"
a(25) = a(24): a(26) = a(24): a(27) = a(24): a(28) = a(24): a(29) = a(24): a(30) = a(24): a(31) = a(24)

[E1:AJ9].UnMerge 'défusionne
[E1:AJ9] = ""
[E4:AJ4].Copy [E1:AJ9] 'pour la couleur
[E1:AJ1] = a
[E1:AJ86].Sort [E11], xlAscending, Orientation:=2 'tri horizontal sur les dates
[E1:AJ1].Orientation = 90
[E1:AJ1].WrapText = True 'retour à la ligne
For Each c In [E1:AJ1]
    c.Resize(9).Merge 'fusionne
Next
[E1:AJ1].Rows.AutoFit 'ajustement hauteur
End Sub

Elle se déclenche quand on active la feuille.

A+