Mise en forme automatique de la date

[Tartetat1]

Bonjour à tous collègues forumiens,
Dans un souci de feignantise (et pourquoi pas d'apprentissage) j'aurais souhaité que vous m'indiquiez comment faire pour qu'une série de chiffres de la forme jjmmaaaa se mette en forme jj/mm/aaaa et ce, de façon automatique lors de la frappe. Un exemple ; lorsque 12052008 sont écris dans une cellule, il en ressort un joli 12/05/2008.
J'ai cru comprendre qu'il fallait faire appel au vba mais je débute donc ce language relève encore de la sorcellerie pour moi...
Merci d'avance pour votre aide.

 

[kjin]

Re : Mise en forme automatique de la date

bonjour,

=DATE(DROITE(A1;4);STXT(A1;3;2);GAUCHE(A1;2))

A+
kjin

 

[Tibo]

Re : Mise en forme automatique de la date

Bonjour Tartetat1, salut kjin,

Une autre formule :

=TEXTE(A1;"00-00-0000")*1

Cela dit, j'ai cru comprendre que notre ami voulait que ça se fasse automatiquement dans la cellule elle-même.

Et comme il l'a indiqué, il va falloir du VBA, mais là... je laisse ma place 😛

@+

 

[Tartetat1]

Re : Mise en forme automatique de la date

Merci à vous 2, mais comme Tibo l'a très justement souligné (et très mal expliqué pour ma part), je voudrais que ce chanegement s'effectue dans la cellule même où à été tappé le texte...

 

[sousou]

Re : Mise en forme automatique de la date

Bonjour tartetae1 et les autres.

Voici ce que j'ai imaginé. a installer dans le code de la feuille:

Si la sélection change et que j'étais avnt sur une cellule numérique de 8 chiffres alors je converti.

Pourquoi pas?


Dim cellule
Sub Worksheet_SelectionChange(ByVal Target As Range)
If cellule <> Target Then Call celluledate(cellule)

Set cellule = Target
End Sub

Sub celluledate(n)
If IsNumeric(n) = True And Len(n) = 8 Then
k = CDate(Left(n, 2) & "/" & Mid(n, 3, 2) & "/" & Right(n, 4))

cellule.Value = k
End If


End Sub

 

[Tartetat1]

Re : Mise en forme automatique de la date

Merci à toi Sousou pour ce petit cours de langue étrangère, cette formule fonctionne à merveille et va m'apporter un confort terrible !
Bonne journée à toi ainsi qu'à vous tous.

 

[kjin]

Re : Mise en forme automatique de la date

Bonsoir,

Sub Worksheet_SelectionChange(ByVal Target As Range)

Il vaut mieux éviter...
et à y être, si possible, limiter le fonctionnement de la procédure à une plage définie
A+
kjin