XL 2016 Les dates.

[karim_h_dz]

Bonjour tout le monde Je souhaite automatiser la saisie de la date dans une colonne dédiée. Ainsi, lorsque je sélectionne cette colonne, la date du jour s'insère automatiquement au format 'jj mois aaaa'. De plus, je voudrais appliquer un formatage de couleur spécifique à la dernière colonne intitulée 'Fin.

Je souhaite que la mise en œuvre de cette fonctionnalité commence dès l'année 2025. Pour cela, je voudrais adapter l'exemple que j'ai donné pour l'année 2024 à ce nouveau contexte.
merci bonne journée.

 

[vgendron]

Bonjour

déjà.. il faudrait nettoyer un peu ton fichier..
c'est quoi ces listes perdues en ligne 860 ?

 

[vgendron]

Voir PJ

1) toutes les listes sont regroupées dans la feuille "Listes" sous forme de Table structurées
t_Nom, t_Demandeur, t_Superviseur, t_action....

ces tables sont utilisées pour définir les listes de validation (à base de Indirect)

2) un double clic sur la colonne "Date" ajoute la date du jour SI il n'y a rien dans la cellule
si tu veux modifier la date, il suffit de la taper à la main

j'ai modifié ta formule pour calculer la date de fin

 

[karim_h_dz]

Voir PJ

1) toutes les listes sont regroupées dans la feuille "Listes" sous forme de Table structurées
t_Nom, t_Demandeur, t_Superviseur, t_action....

ces tables sont utilisées pour définir les listes de validation (à base de Indirect)

2) un double clic sur la colonne "Date" ajoute la date du jour SI il n'y a rien dans la cellule
si tu veux modifier la date, il suffit de la taper à la main

j'ai modifié ta formule pour calculer la date de fin

bonjour vgendron merci beaucoup pour ton aide c'est un bon travail et mes excuses pour ce retard excellente journée

 

[ChTi160]

Bonjour le Fil
chez moi , j'ai modifié le Format de la date pour ne pas avoir (Aujourd'hui) 12/06/2024 au lieu de 06/12/2024
ainsi

 If Target = "" Then Target = Format(Now, "mm/dd/yyyy")

a voir !
Bonne Journée
Jean marie

 

[karim_h_dz]

Bonjour le Fil
chez moi , j'ai modifié le Format de la date pour ne pas avoir (Aujourd'hui) 12/06/2024 au lieu de 06/12/2024
ainsi

 If Target = "" Then Target = Format(Now, "mm/dd/yyyy")

a voir !
Bonne Journée
Jean marie

bonjour merci a vous.

 

[TooFatBoy]

Bonjour,

chez moi , j'ai modifié le Format de la date pour ne pas avoir (Aujourd'hui) 12/06/2024 au lieu de 06/12/2024

 If Target = "" Then Target = Format(Now, "mm/dd/yyyy")

a voir !

En fait l'instruction Format ne retourne pas une date mais une chaîne de caractères.

Pour avoir une date il vaudrait mieux :
- mettre la cellule au format "jj/mm/aaaa",
- utiliser ceci : If Target = "" Then Target.Value2 = Int(Now).

Et pour faire plus joli utiliser ceci Cancel = True.