Format date

[apdf1]

Bonjour,

Voila mon problème j'ai pas mal de date a rentrer dans Excel et quand on doit souvent rentrer des dates et bien c'est vachement pénible d'intercaler des / ou des .
Y a t-il une solution pour taper seulement 08122010 au lieu de taper 08/12/2010 tout en avoir le même résultat.

Merci d'avance

Cordialement

Max

 

[natorp]

Re : Format date

Bjr max,

est-ce que tu écris les dates dans une même colonne ?

peux-tu mettre un fichier d'exemple en ligne ?

sinon dans la cellule B1 si tu entres 08122010 en A1 :

=(GAUCHE(A1;2)&"/"&STXT(A1;3;2)&"/"&DROITE(A1;4))*1

au format date

cordialement, Gérard

 

[apdf1]

Re : Format date

Bonjour Gérard

Et merci d'avoir répondu.

Pour ta question oui j'écris les dates dans une même colonne "B"

@+

Max

 

[MJ13]

Re : Format date

Bonjour apdf1, Gérard

Teste ce fichier:

 

[natorp]

Re : Format date

Bjr Michel,

Il doit certainement y avoir du code quelque part, peux-tu, stp, nous mettre le code dans le message car mon réseau d'entreprise l'enlève au téléchargement du fichier

Cordialement, Gérard

 

[Papou-net]

Re : Format date

Bonjour apdf1,

Tu ne précises pas où tu dois saisir tes dates : dans des cellules ou dans un userform ?

Si c'est dans un TextBox, c'est faisable. Si c'est directement dans des cellules, alors pourquoi ne pas utiliser l'utilitaire approprié mDF XLCalendar dont lien ci-dessous :

mDF XLcalendar télécharger mDF XLcalendar gratuit

Lorsque tu l'auras installé dans les macros complémentaires, il te suffira de mettre tes cellules au format Date. Dès lors, dès que tu sélectionnera une de ces cellules, le calendrier s'affichera automatiquement et un clic sur la date l'inscrira dans ta cellule.

Quand on l'a essayé, on ne peut plus s'en passer.

Cordialement.

Edit: Bonjour MJ13, natorp

 

[MJ13]

Re : Format date

Re , Bonjour Papou

Pour Gérard:

Le code est dans la feuille1

Private Sub Worksheet_Change(ByVal Target As Range)
'MJ
'Dim JMA As Date
On Error GoTo GestErr
'MsgBox ActiveCell.Offset(-1, 0)
an = Format(Year(Now), "00")
Mois = Format(Mid(ActiveCell.Offset(-1, 0), 3, 2), "00")
jour = Format(Left(ActiveCell.Offset(-1, 0), 2), "00")
JMA = jour & "/" & Mois & "/" & an
If Mois <= 12 Then ActiveCell.Offset(-1, 1) = CDate(JMA) Else GoTo GestErr
Exit Sub
GestErr:
For i = 1 To 10: Beep: Next: MsgBox " veuillez entrer une date valide (jjmm)": ActiveCell.Offset(-1, 0).Select: End
End Sub

 

[natorp]

Re : Format date

Merci beaucoup,

Gérard

 

[apdf1]

Re : Format date

Bonjour a tous,

Et merci des réponses, juste une précision sur le code de Michel qui est super, pourquoi faut-il rentré la date dans la colonne A pour avoir le bon format dans la colonnes B ?
Si non c'est exactement se que je voulais.

Merci d'avance

@+

Max

 

[david84]

Re : Format date

Bonjour à tous,
une solution par formules à tester en B1 avec la cellule au format date et la date en A1 :

=DATEVAL(TEXTE(A1;"0#\/##\/####" ))

A+

 

[James007]

Re : Format date

Bonjour,
Voila mon problème j'ai pas mal de date a rentrer dans Excel et quand on doit souvent rentrer des dates et bien c'est vachement pénible d'intercaler des / ou des .
Y a t-il une solution pour taper seulement 08122010 au lieu de taper 08/12/2010 tout en avoir le même résultat.
Merci d'avance
Cordialement

Max

Bonjour,

As-tu essayé le raccourci avec: Control ; ...

A +

 

[apdf1]

Re : Format date

Bonjour James007,

Le probleme il est que les dates, ne sont jamais les même.

Mais je prend toute les bonne solutions.

@+

Max

 

[MJ13]

Re : Format date

Re

Et merci des réponses, juste une précision sur le code de Michel qui est super, pourquoi faut-il rentré la date dans la colonne A pour avoir le bon format dans la colonnes B ?
Si non c'est exactement se que je voulais.

La colonne A est en format Texte (Ctrl+Shif+1), pour la colonne B on peut mettre le format date qui nous convient.

Sinon je dois avoir une version avec les années, si cela t'intéresse 🙂.

 

[apdf1]

Re : Format date

Re,Michel

Je veut bien ta version avec les années.

Merci d'avance

Cordialement

Max

 

[MJ13]

Re : Format date

Re

Voici la version avec les années.

Attention si on veut entrer des années avant 1930, il faudra tester l'année.