Bonjour la communauté,

J'ai un petit problème pour finaliser ma macro. Je n'autorise l'utilisation du programme qu'entre certaines heures
entre heure1 et heure2
entre heure3 et heure4
entre heure5 et heure 6

J'ai mis en place une fonction mais cela ne marche pas, une idée ?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Function CtrlHeure() As Boolean
 
'Déclaration des variables
Dim wb1 As Workbook
Dim wsTechnique As Worksheet
 
'Déclarations des raccourcis
Set wb1 = Workbooks("Matrice FATCA.xlsm")
Set wsTechnique = wb1.Worksheets("Technique")
 
Dim heureactuelle As Date
Dim heure1 As Date
Dim heure2 As Date
Dim heure3 As Date
Dim heure4 As Date
Dim heure5 As Date
Dim heure6 As Date
 
heureactuelle = Format(Time, "hh:mm:ss")
 
heure1 = Format(wsTechnique.Range("q4"), "hh:mm:ss")
heure2 = Format(wsTechnique.Range("r4"), "hh:mm:ss")
heure3 = Format(wsTechnique.Range("q5"), "hh:mm:ss")
heure4 = Format(wsTechnique.Range("r5"), "hh:mm:ss")
heure5 = Format(wsTechnique.Range("q6"), "hh:mm:ss")
heure6 = Format(wsTechnique.Range("r6"), "hh:mm:ss")
 
Select Case heureactuelle
    Case heureactuelle > heure1 And heureactuelle < heure2
        CtrlHeure = True
    Case heureactuelle > heure3 And heureactuelle < heure4
        CtrlHeure = True
    Case heureactuelle > heure5 And heureactuelle < heure6
        CtrlHeure = True
    Case Else
        CtrlHeure = False
End Select
 
End Function
D'avance, un grand merci