XL 2019 Demander une date et y mettre une condition

[Net]

Bonjour,
Je debute sur excel et un peu d'aide serait la bienvenue.
J'ai besoin de demander la date de naissance du candidat puis la faire entrer dans une cellule, mais avec la condition que l'annee de naissance soit apres 1970 dans le cas inverse envoyer un message d'erreur et supprimer toutes les donnees deja entree.
Voici ce que j'ai fait pour l'instant:

Sub registration()
Dim Name As String
Name = InputBox("Enter you'r Name", "Name")
Range("B3").Value = Name
Dim First_Name As String
First_Name = InputBox("Enter you'r First Name")
Range("B4").Value = First_Name
Dim id As String
Dim number As Long
id = InputBox("Enter you'r number id")
If (Len(id) > 9) Then
MsgBox "too long number", vbCritical
id = Left(id, 9)
End If
number = CLng(id)
Range("B5").Value = number
Dim birth_date As Date
birth_date = InputBox("Enter you'r birthday in this order:MM/DD/YYYY")
Range("B6").Value = birth_date


End Sub


Merci beaucoup

 

[youky(BJ)]

Bienvenu au forum,
Il serait mieux de demander l'age en 1er
Cela évite d'écrire pour rien
Il faut verifier aussi que la date soit reconnue par
If not isdate(birth_date) then msgbox"Date non valable":exit sub
If year(cdate(birth_date))<1970 then msgbox"Vous dépassez l'age Maxi":exit sub
[B6]=birth_date
Name = InputBox("Enter you'r Name", "Name")
[B3]= Name
et la suite
Bon à savoir avec un Userform on peut facilement gérer chaque donnée avant validation
Il serait bon d'essayer et de te lancer.
En principe les Dim sont mis en tête de la macro (en 1ère ligne)
Bruno