Bonjour,

J'ai un Userform dans un fichier Excel. L'utilisateur indique une date dans un TextBox. Le code ci-bas vérifie si la date est entre deux dates. Le code fonctionne.

J’aimerais remplacé, dans le code, la date qui est en vert par une plage qui se nomme "DebutAnneeFisc" et la date qui est en rouge par une plage qui se nomme "FinAnneeFisc". Les deux plages se trouve dans l’onglet « Code ». De cette manière un utilisateur peut changer lui-même les dates à chaque année fiscale au lieu d'aller dans le code.

J'ai cherché et j'ai rien trouvé et de plus je suis débutant en VBA.

Merci.

Grandgate

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub validation()
'Validation de la date
Range("DateAct").Select
Do While (ActiveCell.Value < #1/1/2016#) Or (ActiveCell.Value >= #1/1/2017#)
If (ActiveCell.Value < #1/1/2016#) Then
msg = "La date doit être après le début de l'année fiscale!"
ElseIf (ActiveCell.Value >= #1/1/2017#) Then
msg = "La date doit être avant la fin de l'année fiscale!"
End If
Merci.