Création d'une saisie automatique de date

Question

Bonjour,

J'aurais besoin à titre professionnel de savoir comment créer un automatisme pour la saisie d'une date dans une cellule.

J'ai beaucoup de date à rentrer sur un très long tableau excel et pour gagner du temps à la saisie j'aimerais ne pas avoir à taper les slashs entre le jour, le mois et l'année.

Exemple : je veux pouvoir taper 010116 pour obtenir, dans ma cellule, 01/01/2016. Comment cela est-il réalisable ?

Merci d'avance pour vos réponses.

Sylvie

The_boss_68 · Answer

Bonjour MamySy et le forum

Si cela t’intéresse j'ai un calendrier autonome, que j'ai récupéré un jour sur un forum. 
Il s'affiche à chaque double clic dans une cellule et il suffit de cliquer sur la date pour la voir afficher dans la cellule

Voir le fichier en pièce jointe

http://www.cjoint.com/c/FDDiOzz4M5j

Slts

MamySy · Answer

Merci pour cette info mais ce n'est pas vraiment ce que je recherche. 

Je voudrais pouvoir taper ma date en continue et qu'elle s'affiche directement en format date avec des slashs dans la cellule.

Encore une fois c'est pour gagner du temps à la saisie car j'ai énormément de date à saisir.

A+ peut-être

jc80 · Answer

Bonjour
Tu as la réponse ci-dessous

https://forums.commentcamarche.net/forum/affich-33461117-transformer-les-chiffres-en-date#p33461820
Cordialement

via55 · Answer

Bonjour Sylvie

Pour obtenir ce que tu veux il faut passer par une macro qui se déclenche lorsque tu rentres les 6 chiffres d'une date dans une cellule de la colonne voulue

Exemple de macro pour des dates à entrer dans la colonne C (changer le chiffre 3 dans la macro pour une autre colonne)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or IsDate(Target.Value) Then Exit Sub 'sortie si on n'est pas en colonne 3 ou si déjà une date
j = Left(Target.Value, 2)
m = Mid(Target.Value, 3, 2)
a = Right(Target.Value, 2)
Target.Value = CDate(j & "/" & m & "/" & a)
End Sub

Faire ALT+F11 pour ouvrir l'éditeur VBA, double-clic dans l'arborescence à gauche sur la feuille qui sera concernée puis copie et coller la macro suivante dans la page blanche; modifier éventuellement le chiffre 3 dans If Target.Column <> 3 pour une autre colonne que C puis fermer l'éditeur

Cdlmnt
Via

Création d'une saisie automatique de date

4 réponses

Votre réponse

Discussions similaires

Newsletters