Discussion :

[d0n32]

Bonjour à tous,

Je pensais que cela serait facile, mais je me résous finalement à poster ici
Je cherche à transformer automatiquement toute saisie du type jjmmaaaa dans une cellule de mon classeur en jj/mm/aaaa.

Est-ce que c'est possible, en transformant de plus la cellule modifiée en un format date, sans passer par une cellule intermédiaire (sinon j'aurai fait avec les formules, plus simple....).

Je préfère ne pas poster les bouts de code que j'avais préparés dans ma sub worksheet_change(byval target as range), les string, long et date s'y entremêlent sans cohérence...

Merci par avance pour vos lumières, en espérant avoir été clair !

[Patrice740]

Bonjour,

Essaies ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim v As Double
  If Intersect(Target, [B2:B99]) Is Nothing Then Exit Sub  ' à adapter à la plage de saisie
  For Each c In Target.Cells
    v = Val(c.Formula)
    On Error Resume Next
    If Not IsDate(c.Text) Then If v >= 1011900 And v <= 31129999 And Int(v) = v Then c.Value = CDate(Format(v, "00\/00\/0000"))
    On Error GoTo 0
    If IsDate(c.Text) Then c.NumberFormatLocal = "jj/mm/aaaa" Else c.NumberFormatLocal = "Standard"
  Next c
End Sub

[d0n32]

Ma foi, je l'ai adapté à mon classeur et ça fonctionne vraiment nickel. Un grand merci à toi

[d0n32]

Oups, je me permets de rouvrir finalement le topic...
Ca marche dans "presque" tous les cas : lorsque je rentre une date commençant par 01 ou 02 (02/03/2019 par exemple), Excel l'interprète mal et ressors une date erronée (02032019 donne 23/06/7469, toujours par exemple).

C'est d'autant plus surprenant qu'en testant pas à pas chaque étape du passage clé du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Value = CDate(Format(v, "00\/00\/0000"))

tout semble bien fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox(CDate(Format(v, "00\/00\/0000")))

me donne même la bonne réponse...

Où se situerait alors l'erreur de traitement ?
Merci encore

[Menhir]

Le problème, pour ta demande, c'est que pour que ça puisse fonctionner, il faut que la cellule de saisie soit au format texte (sinon, un "0" en premier caractère ne sera pas conservé) et que la cellule résultat soit au format date.
Donc, on ne pourra pas faire deux saisies dans la même cellule. La fonction Worksheet_Change modifiant le format de cellules, la saisie suivante ne se fera pas dans une cellule Texte, ce qui empêchera la macro de fonctionner.

En partant du principe (écrit dans ta demande) que les dates sont saisies et non pas copiées ou importées, et donc que Worksheet_Change ne peut concerné qu'une cellule à la fois.
En supposant que les cellules concernées sont celles de la zone B2:B99 (pour conserver l'hypothèse de Patrice740) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As String
 
If Intersect(Target, Range("B2:B99")) Is Nothing Then Exit Sub
If Target.NumberFormatLocal <> "@" Then Exit Sub
 
Temp = Target.Value
Target.ClearContents
Target.NumberFormatLocal = "jj/mm/aaaa"
Target.Value = DateSerial(Right(Temp, 4), Mid(Temp, 3, 2), Left(Temps, 2))
 
End Sub

Je n'ai pas testé, il y aura donc peut-être du débugage à faire.

[d0n32]

Bonjour Menhir,

Je te remercie de ton retour, que j'ai réussi à adapter à ma problématique.

Ce qui me chagrine encore, c'est que je comprends bien tes arguments concernant les dates commençant avec un "0", hors il se trouve qu'une date en 03/../.... fonctionne parfaitement, idem pour les suivantes.
Simplement les 01/../.... et 02/../.... qui restent capricieuses. J'aurais bien aimé comprendre pourquoi

[Patrice740]

Bonjour

Oups, je me permets de rouvrir finalement le topic...
Ca marche dans "presque" tous les cas : lorsque je rentre une date commençant par 01 ou 02 (02/03/2019 par exemple), Excel l'interprète mal et ressors une date erronée (02032019 donne 23/06/7469, toujours par exemple).

Le problème, pour ta demande, c'est que pour que ça puisse fonctionner, il faut que la cellule de saisie soit au format texte...

Pour que le code que j'avais proposé fonctionne, il faut absolument que la cellule de saisie soit au format Standard.

Voici une correction de mon code, quoique la proposition de Menhir soit plus simple (mais elle évince le format texte) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim v As Double
Dim f As String
  If Intersect(Target, [B2:B99]) Is Nothing Then Exit Sub  ' à adapter à la plage de saisie
  For Each c In Target.Cells
    f = c.NumberFormatLocal
    c.NumberFormatLocal = "Standard"
    v = Val(c.Formula)
    On Error Resume Next
    If Not IsDate(c.Text) Then If v >= 1011900 And v <= 31129999 And Int(v) = v Then c.Value = CDate(Format(v, "00\/00\/0000"))
    On Error GoTo 0
    If IsDate(c.Text) Then c.NumberFormatLocal = "jj/mm/aaaa" Else c.NumberFormatLocal = f
  Next c
End Sub

[d0n32]

Et effectivement cela fonctionne désormais parfaitement... Merci à vous 2 !