Ordonner selon certaines conditions

Re : Ordonner selon certaines conditions

Bonjour Catrice, Job75 & tout le forum,

Un grand merci pour vos solutions.
Celle de Catrice résolvant tous les problèmes, je l'ai adaptée en fonction de ma feuille.
Mais voilà, il se trouve qu'il y a un en-tête pour ces colonnes de tri qui perturbe le bon fonctionnement de la macro.
Comment résoudre ce dernier problème mineur mais agaçant ?

Enfin j'ai rédigé une petite fonction qui donne l'âge.
J'ai volontairement limité la longueur de la liste car, Dieu merci, je n'aurais ainsi pas à fêter plus d'une dizaine d'anniversaires !

Merci pour vos réponses.

Re : Ordonner selon certaines conditions

Re,

Pour regler le probleme des entetes :

.Range("FirstCelListeCumples").CurrentRegion.Resize(MaZone.Rows.Count).Sort Key1:=.Range("FirstCelListeCumples"), Header:=xlYes, Order1:=xlAscending

Pour avoir l'age, tu peux egalement utiliser :
=DATEDIF(C7;MAINTENANT();"y")
Voir le fichier joint

Re : Ordonner selon certaines conditions

Merci Catrice,

Tudo bon!

Re : Ordonner selon certaines conditions

Excusez-moi de revenir sur ce fil qui paraissait être réglé, mais je viens de rencontrer un nouveau problème (cela ne cessera donc jamais...) sur la feuille définitive.
La solution de Catrice marche parfaitement. La feuille définitive est évidemment plus chargée, mais le tableau des dates d'anniversaire se présente exactement de la même manière et les cellules nommées portent les mêmes noms que dans la feuille de Catrice.
Cependant, quand je déclenche la macro, alors surgit une nouvelle bizarrerie excelienne. Dans la colonne des dates d'anniversaire, au lieu d'avoir des dates normales du style :

22/03/1945
15/10/1993
28/07/1975
28/08/1960
27/09/1955
15/11/1988
28/02/1961
21/12/1956
03/05/1988

apparaissent des espèces de dates comme :

36607-1945
36814-1993
36735-1975
36766-1960
36796-1955
36845-1988
36584-1961
36881-1956
36741-1999

et la macro bloque. Quant aux âges, évidemment je n'ai que des messages d'erreur.

Quelle est donc l'origine de ce mystère ?

Re : Ordonner selon certaines conditions

Bonjour Magic_Doctor,

Tes cellules sont elles au format "date" car 36607 donne 22/03/2000

JHA

Re : Ordonner selon certaines conditions

Re,

Il ne s'agit pas d'une "bizarrerie excelienne".

Les codes dont tu parles sont générés par la macro.
Elle a du planter en cours de route.

36607 c'est la date d'origine ramené à l'année 2000
1945, c'est l'année d'origine (pour remettre tout dans l'ordre).

Pour remettre tout comme il faut, tu peux executer ce code :

J'en ai profité pour corriger un petit oubli.
Il manquait un point devant le Range ci-dessus.
Il faut le corriger dans ton fichier.

Re : Ordonner selon certaines conditions

Bonsoir Cartrice, bonsoir Jha,

Effectivement mes cellules sont bien au format "Date".

J'ai bien réalisé la correction mentionnée par Catrice, mais ça ne marche toujours pas...

En désespoir de cause, je joins le maudit fichier (> 48 Ko)...
J'en profite au passage pour signaler que dans Workbook_Open la sentence Worksheets(1).ScrollArea = "A1:Q39" est inexécutable. J'ai dû la mettre en veilleuse. Allez savoir pourquoi...?

Difficile de finir un programme aussi simple soit-il sur Excel !


Cijoint.fr - Service gratuit de dépôt de fichiers

Re : Ordonner selon certaines conditions

Bonsoir,

J'ai enfin réussi à régler le problème.
Il s'agissait en fait d'une interférence entre une fonction qui gère le FC des dates ("EstFerie") et la macro "TriCumples" qui ordonne les dates d'anniversaire.
Je signale au passage que la fonction et la macro fonctionnent très bien individuellement.
En revanche je n'ai pas compris le pourquoi de l'interférence.
Quoi qu'il en soit, pour y remédier j'ai donc été obligé, avant de lancer la macro "TriCumples", de bloquer la fonction "EstFerie". Une fois la macro "TriCumples" achevée, je débloque la fonction "EstFerie".

Il peut donc exister des interférences entre macros et fonctions....

Si cela peut intéresser quelqu'un, ci-joint le fichier corrigé.

Cijoint.fr - Service gratuit de dépôt de fichiers