FORMAT DATE VBA

@SarahFistol

D'où l'intérêt de commencer chaque module par :

Option Explicit

Cdlt
Patrice

merci, j'avais oublié son utilité

par exemple

Private Sub CommandButton1_Click()
Dim dt As String, dok As Boolean
dt = Me.TextBox1.Value
dok = dateok(dt)
MsgBox dok
End Sub

Public Function dateok(dt As String) As Boolean
Dim dok As Boolean, dtest As Date, d As Date
dtest = Sheets(1).Range("A1").Value
dok = True
If IsDate(dt) Then
  d = CDate(dt)
  If Year(d) > Year(dtest) Then dok = False
Else
  dok = False
End If
dateok = dok
End Function

merci beaucoup pour vos réponses.

comme vous l'aurez remarqué je suis novice. Par soucis de compréhension pouvez-vous m'aider mais à partir de ma proposition car je ne comprends pas toutes les vôtres :-(

@CCM81 : notamment pourquoi parler de commandbutton dans le code alors que j'utilise une textbox !?

@Albkan : J'ai modifié mais ça ne fonctionne toujours pas ! je m'arrache les cheveux :-(
Mon MsgBox revient sans cesse !!!

dans mon user j'ai mis :

Private Sub TextBox1_AfterUpdate()
monctr = verifdate(Me.TextBox1)
If monctr = False Then
Me.TextBox1 = ""
Me.TextBox1.SetFocus '
MsgBox "Veuillez saisir une date au format JJ/MM/AAAA"
End If
End Sub

'jai choisi "AfterUpdate() " car le SetFocus ne fonctionne pas avec "Exit", c'est peut-être ça qui dysfonctionne ?


dans mon module 1 j'ai :

Function verifdate(maval)

Dim monctr As Boolean
Dim an As Integer
Dim mois As Integer
Dim jour As Integer
Dim annee As Integer



If Len(maval) < 10 Then monctr = False
If Mid$(maval, 3, 1) <> "/" Then monctr = False
If Mid$(maval, 6, 1) <> "/" Then monctr = False

an = Val(Right$(maval, 4)):
If an < 2000 Or an > Worksheets("BASE DONNEES").[A1] Then
monctr = False

mois = Val(Mid$(maval, 4, 2)):
If mois < 1 Or mois > 12 Then
monctr = False

jour = Val(Left$(maval, 2)):
If jour < 1 Or jour > 31 Then
monctr = False

Else

Select Case mois
Case Is = 1, 3, 5, 7, 8, 10, 12
If jour > 31 Or jour < 1 Then
monctr = False
End If
Case Is = 4, 6, 9, 11
If jour > 30 Or jour < 1 Then
monctr = False
End If
Case Is = 2
If annee Mod 4 = 0 Or annee Mod 400 = 0 Then
'Annee bisextile
If jour > 29 Or jour < 1 Then
monctr = False
End If
Else
' Annee pas bisextile
If jour > 28 Or jour < 1 Then
monctr = False
End If
End If
End Select
End If
End If
End If

End Function



Merci par avance

tout simplement : génial !

merci Michel !
j'ai téléchargé le fichier à partir du lien indiqué et lorsque j' entre une date la msgbox me dit que la date n'existe pas ...

Merci bcp, je vais intégrer à mon code le morceau qui permet de renseigner automatiquement les "/"

Vous êtes géniaux !!!

le + complet mais ca ne se lit pas comme un roman policier:
https://excel.developpez.com/cours/?page=prog#environnement

merci pijaku !!!