Raccourcis insertion date
Eldo21
-
danielc0 Messages postés 1988 Date d'inscription Statut Membre Dernière intervention -
danielc0 Messages postés 1988 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur un document avec chaque fois une feuille par mois. J'ai une colonne avec les dates pour les différents inserts. Mais je dois chaque fois mettre le jour, le mois et l'année. Y a-t-il moyen de mettre un format pour que je ne mette que le jour, et il complète mois en fonction de la feuille ?
Exemple pour la feuille Avril 2018
Date Description Obs
3 jkklu -
||
3avr18 jkklu -
Je travaille sur un document avec chaque fois une feuille par mois. J'ai une colonne avec les dates pour les différents inserts. Mais je dois chaque fois mettre le jour, le mois et l'année. Y a-t-il moyen de mettre un format pour que je ne mette que le jour, et il complète mois en fonction de la feuille ?
Exemple pour la feuille Avril 2018
Date Description Obs
3 jkklu -
||
3avr18 jkklu -
Configuration: Android / Chrome 70.0.3538.80
A voir également:
- Raccourcis insertion date
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
- Raccourcis word - Guide
Bof, on peut dire d'Excel et des macros ce que Clausewitz disait de la guerre : "c'est la continuation de la diplomatie par d'autres moyens". C'est bien utile (pas la guerre, les macros), dans ton cas, en particulier. La macro utilise les accents pour les noms des mois. Si ce n'est pas ton cas, modifie, ou la macro, ou les noms des feuilles. Par contre, elle ne s'occupe pas des majuscules.
Met cette macro dans le module "ThisWorkbook". Après, ça fonctionne tout seul :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Mois As Variant, MoisNum As Variant If Target.Column = 1 Then Mois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", _ "septembre", "octobre", "novembre", "décembre") With Sh If Target.Value < Day(DateSerial(Year(Date), _ Application.Match(Sh.Name, Mois, 0) + 1, 0)) Then Application.EnableEvents = False Target.Value = DateSerial(Year(Date), _ Application.Match(Sh.Name, Mois, 0), Target.Value) Application.EnableEvents = True End If End With End If End SubAttention la macro est prévue pour fonctionner avec les dates en colonne A. Si ce n'est pas le cas, change le numéro de colonne :
Si tu as un souci pour mettre en place la macro, dis-le. Enfin, formate la colonne au format personnalisé :
jmmmaa
Daniel