Bonjour, connaissez vous un moyen de rentrer les données dates sans les / en écrivant par exemple 090424 et que la date soit automatiquement validée par 09/04/24?Merci
Bonjour Denis,
lien fichier : https://www.cjoint.com/c/NDkapufnJO0
* en A2, saisis 090424 ➯ 09/04/24
* si le 1er chiffre est 0, il est facultatif ; donc :
en A2, saisis 50424 ➯ 05/04/24 ; note bien que
ça permet d'accélérer la saisie pour toutes les
dates dont le jour est compris entre 1 et 9.
* quand y'a les 2 « / », ce n'est pas une date texte,
c'est une vraie date, au format jj/mm/aa.
* pour tout ce qu'on vient de voir pour une saisie en A2,
c'est pareil pour toutes les cellules en dessous ; donc
tu peux faire le même genre de saisie à partir de A3
puis dessous.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code VBA du module de Feuil1 (18 lignes) :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$
With Target
If .CountLarge > 1 Then Exit Sub
If .Column > 1 Then Exit Sub
If .Row = 1 Then Exit Sub .NumberFormat = "@": v = Right$("0" & .Value, 6)
If Len(v) <> 6 Then Exit Sub
v = Left$(v, 2) & "/" & Mid$(v, 3, 2) & "/20" & Right$(v, 2)
If Not IsDate(v) Then Exit Sub
Application.EnableEvents = 0: .NumberFormat = "dd/mm/yy"
.Value = DateSerial(Right$(v, 4), Mid$(v, 4, 2), Left$(v, 2))
Application.EnableEvents = -1
End With
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
si besoin, tu peux demander une adaptation ;
à te lire pour avoir ton avis. :)
rhodo