Format date
Résolu/Fermé
mchotard
Messages postés
427
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
28 novembre 2024
-
23 mai 2019 à 17:49
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 - 23 mai 2019 à 18:30
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 - 23 mai 2019 à 18:30
A voir également:
- Format date
- Format epub - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Hp format tool - Télécharger - Stockage
- Format odt - Guide
2 réponses
PapyLuc51
Messages postés
4412
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
26 novembre 2024
1 447
Modifié le 23 mai 2019 à 18:30
Modifié le 23 mai 2019 à 18:30
Bonjour,
Sauf avec peut-être du VBA je ne crois pas que ce soit possible. Avec une formule dans une autre cellule pourquoi pas
A1 taper le nombre
B1 cette formule =DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());A1)
Mais qu'est qui empêche de taper 3 caractères de plus 15/05 et le tour est joué.
Et si c'est pour la date du jour Ctrl + ;
Cordialement
Sauf avec peut-être du VBA je ne crois pas que ce soit possible. Avec une formule dans une autre cellule pourquoi pas
A1 taper le nombre
B1 cette formule =DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());A1)
Mais qu'est qui empêche de taper 3 caractères de plus 15/05 et le tour est joué.
Et si c'est pour la date du jour Ctrl + ;
Cordialement
via55
Messages postés
14501
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
28 novembre 2024
2 735
23 mai 2019 à 18:30
23 mai 2019 à 18:30
Bonjour
Tout est possible (ou presque) avec une macro
macro à mettre dans le worksheet de la feuille concernée (limitée ici à la plage B2:C14) :
Cdlmnt
Via
Tout est possible (ou presque) avec une macro
macro à mettre dans le worksheet de la feuille concernée (limitée ici à la plage B2:C14) :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2:C14")) Is Nothing Then If Not IsDate(Target.Value) Then Cells(Target.Row, Target.Column) = CDate(Target.Value & "/" & Month(Date) & "/" & Year(Date)) End If End Sub
Cdlmnt
Via