Vérification d'une date entre 2 dates dans 2 plages

Version imprimable

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:

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.

28/01/2016, 07h52
antonysansh

1 pièce(s) jointe(s)

Bonjour Grandgate,

J'opterais pour le gestionnaire de noms :
Onglet Formules -> Noms définis -> Définir un nom.
Tu donnes un nom et une référence.

Exemple :
Pièce jointe 199306

Ensuite dans le code tu peux utiliser Range("DebutAnneeFisc") ou Range("FinAnneeFisc") comme tu le fais déjà dans le code pour Range("DateAct")

Bonjour,

puisqu'on parle d'année fiscale, tu pourrais tester si l'année de la date saisie est différente de l'année fiscale présente sur l'une des deux plages non ?
ça évite de faire une double condition

voici un exemple à adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub validation()
'Validation de la date
Dim Annee As Long
Dim Conforme As Boolean
 
    Annee = Year(Worksheets("LaFeuille").Range("DebutAnneeFisc").Value)
 
    While Not Conforme
        Select Case Annee - Year(Worksheets("Code").Range("DateAct").Value)
            Case Is > 0
                 msg = "La date doit être après le début de l'année fiscale!"
            Case Is < 0
                msg = "La date doit être avant la fin de l'année fiscale!"
            Case Else
                msg = "La date est bien dans l'année fiscale"
                Conforme = True
        End Select
    Wend
End Sub

Si cela ne convient pas, tu as la méthode pour utiliser une date provenant d'une plage

28/01/2016, 12h42
Grandgate

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai joint le fichier afin de vous aider à m'aider.

Le code fonctionne très bien mais je ne veux pas aller dans le code à chaque année et changer les dates.

Je veux que l'utilisateur soit capable de changer les dates, alors j'ai créé deux plages qui se nomment "DebutanneeFisc" et "FinanneeFisc" avec le gestionnaire de nom dans l'onglet "Code".

J'aimerais seulement remplacer #1/1/2016# et #1/1/2017 par les plages "DebutanneeFisc" et "FinanneeFisc" qui se trouve dans l'onglet "Code" dans la ligne suivante :

Code:

Do While (ActiveCell.Value < #1/1/2016#) Or (ActiveCell.Value >= #1/1/2017#)

Merci.:)

Pièce jointe 199333

Merci Antony,

J'ai fait un test et ça fonctionne.

Encore merci.

Gaétan

Voici le code final :

Code:

1
2
3
4
5
6
7
Range("DateAct").Select
Do While (ActiveCell.Value < Range("DebutAnneeFisc")) Or (ActiveCell.Value >= Range("FinAnneeFisc"))
If (ActiveCell.Value < Range("DebutAnneeFisc")) Then
msg = "La date doit être après le début de l'année fiscale!"
ElseIf (ActiveCell.Value >= Range("FinAnneeFisc")) Then
msg = "La date doit être avant la fin de l'année fiscale!"
End If