Discussion :

[Grandgate]

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.

[antonysansh]

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 :


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

[Grandgate]

Merci Antony,

J'ai fait un test et ça fonctionne.

Encore merci.

Gaétan

Voici le code final :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Grandgate]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci.

registre activite.xlsm