Macro vérification de dates
Bonjour à tous,
J'ai un petit soucis lors de l'exécution d'une macro de vérification de dates.
Objectif de la Macro :
Analyser plusieurs cellules contenant chacune une date. Si une/plusieurs dates sont dépassées, le message " Attention, la date de l'appareil X est dépassée.
Sur une deuxième feuille il y a un QRCODE permettant la saisie de toutes ces dates et appareils automatiquement
Si une des dates est dépassée, le message " Impossible d'afficher le QRCODE" apparaît, sinon, la feuille avec le QRCODE s'affiche.
Problème :
La première partie du code fonctionne. Pour la deuxième je n'arrive pas a analyser toutes les cellules en un seul if et si je crée un if par dates il suffit que la dernière soit bonne pour que le QRCODE s'affiche.
Voici le code en question
Code:
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
| Dim BANC_DE_TEST
Dim CARTE_ANALOGIQUE_1
Dim CARTE_ANALOGIQUE_2
Dim CARTE_ANALOGIQUE_3
Dim MULTIMETRE_INTERNE
Dim OSCILLOSCOPE_INTERNE
Dim ALIMENTATION_INTERNE_1
Dim ALIMENTATION_INTERNE_2
Dim ALIMENTATION_INTERNE_3
Dim AUTORISATION_QR_CODE
BANC_DE_TEST = Now
CARTE_ANALOGIQUE_1 = Now
CARTE_ANALOGIQUE_2 = Now
CARTE_ANALOGIQUE_3 = Now
MULTIMETRE_INTERNE = Now
OSCILLOSCOPE_INTERNE = Now
ALIMENTATION_INTERNE_1 = Now
ALIMENTATION_INTERNE_2 = Now
ALIMENTATION_INTERNE_3 = Now
AUTORISATION_QR_CODE = Now
Worksheets("DATES").Activate
If BANC_DE_TEST >= Range("banc").Value Then
MsgBox "Attention, date de métroligie de BANC_DE_TEST est dépassée"
End If
If CARTE_ANALOGIQUE_1 >= Range("F5").Value Then
MsgBox "Attention, date de métroligie de CARTE_ANALOGIQUE_1 est dépassée"
End If
If CARTE_ANALOGIQUE_2 >= Range("F6").Value Then
MsgBox "Attention, date de métroligie de CARTE_ANALOGIQUE_2 est dépassée"
End If
If CARTE_ANALOGIQUE_3 >= Range("F7").Value Then
MsgBox "Attention, date de métroligie de CARTE_ANALOGIQUE_3 est dépassée"
End If
If MULTIMETRE_INTERNE >= Range("F8").Value Then
MsgBox "Attention, date de métroligie de MULTIMETRE_INTERNE est dépassée"
End If
If OSCILLOSCOPE_INTERNE >= Range("F9").Value Then
MsgBox "Attention, date de métroligie de OSCILLOSCOPE_INTERNE est dépassée"
End If
If ALIMENTATION_INTERNE_1 >= Range("F10").Value Then
MsgBox "Attention, date de métroligie de ALIMENTATION_INTERNE_1 est dépassée"
End If
If ALIMENTATION_INTERNE_2 >= Range("F11").Value Then
MsgBox "Attention, date de métroligie de ALIMENTATION_INTERNE_2 est dépassée"
End If
If ALIMENTATION_INTERNE_3 >= Range("F12").Value Then
MsgBox "Attention, date de métroligie de ALIMENTATION_INTERNE_3 est dépassée"
End If
If AUTORISATION_QR_CODE >= Range("F4,F5,F6,F7,F8,F9,F10,F11,F12").Value Then
Worksheets("QR_CODE").Activate
End If |
