Une question sur les dates

[Cathy]

Bonjour (bonsoir?) les z'amis foromeux (zes)

puis-je vous demander votre aide sur le point suivant :

j'ai une colonne avec des dates sous la forme jj/mm/aaaa

j'ai partout 2002 car c'était l'année dernière.

Dans l'idéal, il faudrait que je transforme toutes ces dates en jj/mm/année en cours.
(comme ça, ca serait valable tous les ans sans rien changer).

Il faut utiliser une imbrication de fonctions de date, mais comme ça, là, je sèche, je n'ai pas l'inspiration ce soir (big fatigue!)

Quelqu'un (une) peut-il (elle) venir à mon secours?

Merci bôcoup pour votre aide.

@ bientôt

Cathy

 

[Cathy]

grrrrrque je sui bête! C'est pas possible!!! y'a pas plus simple!

pardon, mais là je fatigueu!!

=DATE(ANNEE(MAINTENANT());MOIS(A1);JOUR(A1))

Cathy

 

[Cathy]

Oui, mais en fait ca ne résoud pas mon problème :

ces dates sont les jours de fête (ex. Ste Catherine : 25/11/2002)

je fais une recherche et si je trouve = date du jour je dis bonne fête,
sauf que pour l'instant j'ai 2002 partout, il faut donc réactualiser mes données tous les ans. Y'a pas un moyen pour que ça fonctionne toujours (jusqu'à ma mort) sans rien modifier?

Merci à toutes et tous.

Cathy

 

[fabrice]

Salut Cathy,

Je ne sais pas si je vais pouvoir t'aider mais essaye de faire une recherche sur le forum avec "jours fériés" et fabrice comme "auteur".

Ca va peut-etre pouvoir t'aider.

Si c'est pas ca, j'ai peut etre une autre sol.

FAb

 

[andré]

Salut Cathy,

A1 : 13.02.03
A2 = A1+365 (tu peux en faire une formule nommée - lol-)

Pour les années bisextiles : +366

J'espère que cela pourra t'aider à trouver ta solution

André.

 

[Cathy]

Je joins mon fichier comme ça tout le monde va comprendre :

il y a une feuille masquée (Feuil1) avec les dates de fêtes, si possible je voudrais ne pas tout retaper cellule par cellule dans la colonne C.

Il faudrait donc que 05/08/2002 devienne
=DATE(ANNEE(MAINTENANT());8;2), mais pareil pour toutes(!!!) les cellules en-dessous sans le faire à la mano une par une (galère et risque d'erreur).

Merci pour votre aide, si je ne cherche pas à faire quelquechose d'impossible!!!

Cathy

 

[Monique]

Bonjour,

As-tu 367 fêtes à souhaiter chaque année ?
Si oui, je ne sais pas.
Si non, dans une cellule quelconque (A1), tu notes les 4 chiffres d'une année
Sainte Catherine =DATE($A$1;11;25)
Tu peux nommer la cellule A1 (an par exemple)
Sainte Catherine =DATE(an;11;25)
Une seule fois par an, tu changes la valeur de la cellule A1

Comme dit Fabrice, tu trouveras un tas de classeurs et d'explications dans le forum,
concernant surtout les jours fériés, (ça revient au même, sauf pour les fériés à dates variables).

A part ça, les fonctions AUJOURDHUI() et MAINTENANT() n'ont pas la même valeur.
AUJOURDHUI(), c'est aujourd'hui à 0 heure
MAINTENANT(), ça donne l'heure, la seconde et les fractions de secondes.
Tu fais l'essai en notant la date d'aujourd'hui en A5 format jj/mm/aa
Et tu essaie ces 2 formules =SI(MAINTENANT()=$A$5;"";"non, maintenant n'est pas aujourd'hui")
=SI(AUJOURDHUI()=$A$5;"oui, aujourd'hui est aujourd'hui";"")

 

[Christian]

bonjour,
j'ai pris la discussion en cours et j'ai téléchargé le fichier
je renvoie ma solution
cela convient-il ?

 

[Cathy]

Bonjour le forum, et Fabrice, André, Monique, Christian

Merci pour toutes ces réponses.

je n'arrive pas à télécharger, Christian, peux-tu envoyer ton fichier directement dans ma bal stp? Merci.

Je réexplique mon problème :

je ne voudrais pas reprendre toutes les fêtes une par une à la main et mettre

Sainte Catherine =DATE($A$1;11;25)
Saint Abel = DATE($A$1;08;05)
Saint Valentin = DATE($A$1;02;14) etc...

Il y a 365 fêtes, une pour chaque jour de l'année sauf le 29 février.

j'essaie de trouver une idée et de le faire par macro, mais G pa trouvé!

Bonne journée à tout le monde et bonne St Valentin pour ceux qui la fêtent!

C@thy

 

[Cathy]

Salut les z'amis.

Encore merci à celles et ceux qui ont cherché pour moi,

j'ai trouvé ma solution :

Sub DateFete()
Range("C1").Select
For i = 1 To 365
mois = Month(ActiveCell.Value)
jour = Day(ActiveCell.Value)
ActiveCell.FormulaR1C1 = "=DATE(YEAR(TODAY())," & mois & "," & jour & ")"
ActiveCell.Offset(1, 0).Select
Next
End Sub

je savais bien que c'était tout bête, mais franchement, ça ne m'était pas venu à l'esprit!!!!

Bonne journée

Cathy

 

[Cathy]

Re bonjour, le forum!!!

Bon, c'est encore moi!

on progresse, on progresse...

on va y arriver....

ça ne va pas tarder à être long.....

OK, j'ai remplacé mes dates par la formule, ça marche,

mais du coup la recherche de la date du jour ne marche pas dans le
Private Sub Workbook_Open(). Comment faire???

Merci pour votre aide.

Cathy

 

[andré]

Salut Cathy,

Et si tu remplaces tes dates par un Collage Spécial Addition (365), as-tu encore le même problème ?

André.

 

[Cathy]

EUREKA!!!!!

Ben oui, ça y est quand même, j'ai trouvé. (no comment please!!!!!)

j'ai mis le fichier en cadeau sous le sujet fête du jour...

et voici la version "top améliorée" avec aussi la fête du lendemain!!!

Bon appétit

P.S. André, tu vas pouvoir regarder le commissaire Maigret ce soir!!!

C@thy

 

[Celeda]

Bonjour,

Merci Cathy mais j'ai un bug :

Impossible de lire la propriéte Find de la classe Range

Cells.Find(What:=Fete).Activate

et je me retrouve avec dans la colonne C #VALEUR!

What is it ????.

Ceci dit c'est cute ton truc et amuse toi bien, ah, il va falloir ajouter la Sainte-Celeda dans les Fêtes, on pourra la mettre en co-location le 15 aôut si tu veux bien et si la vierge est d'accord, naturellement.


Bonne fin de semaine.
Celeda.