Macro vérification de dates

**Gwendal_D** · 31/10/2018, 12h28

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 :

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
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

**a_diard** · 31/10/2018, 14h57

Peut étre ajouter une variable

date_depassee quand tu active la msgbox

et tester cette variable avant d'activer la feuille"QR_CODE"

**ARTURO83** · 31/10/2018, 15h17

Bonjour,

En simplifiant comme ceci, ne serait-ce pas mieux?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim DateTestee As Date
    DateTestee = Now
    Worksheets("DATES").Activate
    If BANC_DE_TEST >= Range("banc").Value Then msg1 = "BANC_DE_TEST est dépassée"
    If DateTestee >= Range("F5").Value Then msg2 = "CARTE_ANALOGIQUE_1 est dépassée"
    If DateTestee >= Range("F6").Value Then msg3 = "CARTE_ANALOGIQUE_2 est dépassée"
    If DateTestee >= Range("F7").Value Then msg4 = "CARTE_ANALOGIQUE_3 est dépassée"
    If DateTestee >= Range("F8").Value Then msg5 = "MULTIMETRE_INTERNE est dépassée"
    If DateTestee >= Range("F9").Value Then msg6 = "OSCILLOSCOPE_INTERNE est dépassée"
    If DateTestee >= Range("F10").Value Then msg7 = "ALIMENTATION_INTERNE_1 est dépassée"
    If DateTestee >= Range("F11").Value Then msg8 = "ALIMENTATION_INTERNE_2 est dépassée"
    If DateTestee >= Range("F12").Value Then msg9 = "ALIMENTATION_INTERNE_3 est dépassée"
    If DateTestee >= Range("F4,F5,F6,F7,F8,F9,F10,F11,F12").Value Then Worksheets("QR_CODE").Activate
    MsgBox "ATTENTION" & Chr(10) & "La date de métrologie de" & Chr(10) & msg1 & Chr(10) & msg2 & Chr(10) & msg3 & Chr(10) & msg4 & Chr(10) & msg5 & Chr(10) & msg6 & Chr(10) & msg7 & Chr(10) & msg8 & Chr(10) & msg9

Cdlt

**Pierre Fauconnier** · 31/10/2018, 15h35

Salut.

Déjà voir si Excel ne peut pas répondre sans code aux problèmes rencontrés. Poser les bases et réfléchir à la conception de son outil. Je doute que du codage en dur tel que montré soit efficace, maintenable, stable, solide, etc etc, alors qu'Excel, au départ, permet déjà, notamment au travers de formules, de réaliser plusieurs trucs que tu souhaites sans une ligne de code, juste avec des formules.

Si tu nous disais d'où tu pars et où tu souhaites arriver (sans code vba, juste "remplir le cahier des charges")? Je pense que l'on pourrait te proposer mieux que des patchs sur des lignes de code...

**ARTURO83** · 31/10/2018, 16h59

Bonjour Mr FAUCONNIER,

Entièrement d'accord avec vous pour prioriser Excel quand c'est possible plutôt que le VBA. Cependant comme on ne connaît pas la structure, ni le contenu de son fichier et que la question était posée dans la rubrique VBA, j'ai jugé, probablement à tord, qu'il fallait répondre à ce qu'il attendait dans le même domaine.
Pour savoir de quoi il en retourne, il serait souhaitable que Gwendal se manifeste pour nous dire si la proposition purement en excel lui aurait convenu et y avait-il pensé auparavant?

Bien cordialement

**Gwendal_D** · 01/11/2018, 13h31

Envoyé par ARTURO83

Bonjour Mr FAUCONNIER,

Entièrement d'accord avec vous pour prioriser Excel quand c'est possible plutôt que le VBA. Cependant comme on ne connaît pas la structure, ni le contenu de son fichier et que la question était posée dans la rubrique VBA, j'ai jugé, probablement à tord, qu'il fallait répondre à ce qu'il attendait dans le même domaine.
Pour savoir de quoi il en retourne, il serait souhaitable que Gwendal se manifeste pour nous dire si la proposition purement en excel lui aurait convenu et y avait-il pensé auparavant?

Bien cordialement

Merci pour vos réponses.

Je suis parti sur un code VBA car je souhaite par la suite le verrouiller par un MDP. Je ne m'y connait pas suffisamment en EXCEL pour savoir si verrouiller une formule est possible. L'objectif est qu'on ne puisse pas utilisé le QRCODE si une date est mauvaise.

**Pierre Fauconnier** · 31/10/2018, 17h08

Bonjour Arturo,

Je ne conteste pas le bienfondé de ta réponse

. Je donne une autre approche, et j'en profite pour égratigner le code donné par Gwendal car il est très fragile... Je pense cependant, et tu le constateras en regardant beaucoup de mes réponses, que 95% des problèmes rencontrés en VBA sont dus soit à des problèmes de conception, soit au fait que l'on veut faire faire à Excel ce pourquoi il n'est pas conçu. Dans le cas présent, c'est probablement un problème de conception et/ou de méconnaissance de l'outil qui fait que l'on part en VBA pour des choses qui devraient être réalisées en Excel et appuyer une solution VBA légère pour ce que l'on ne sait pas faire en Excel (en gros, l'automatisation du processus).

Monter une solution de vérification de dates, aussi bonne soit-elle, sur une mauvaise conception de départ, ne sera jamais une bonne solution. En cela, et ce n'est pas une critique ad hominem, toute solution basée sur une mauvaise conception sera, par essence, mauvaise... CQFD

**Gwendal_D** · 01/11/2018, 13h32

Envoyé par Pierre Fauconnier

Bonjour Arturo,

Je ne conteste pas le bienfondé de ta réponse

. Je donne une autre approche, et j'en profite pour égratigner le code donné par Gwendal car il est très fragile... Je pense cependant, et tu le constateras en regardant beaucoup de mes réponses, que 95% des problèmes rencontrés en VBA sont dus soit à des problèmes de conception, soit au fait que l'on veut faire faire à Excel ce pourquoi il n'est pas conçu. Dans le cas présent, c'est probablement un problème de conception et/ou de méconnaissance de l'outil qui fait que l'on part en VBA pour des choses qui devraient être réalisées en Excel et appuyer une solution VBA légère pour ce que l'on ne sait pas faire en Excel (en gros, l'automatisation du processus).

Monter une solution de vérification de dates, aussi bonne soit-elle, sur une mauvaise conception de départ, ne sera jamais une bonne solution. En cela, et ce n'est pas une critique ad hominem, toute solution basée sur une mauvaise conception sera, par essence, mauvaise... CQFD

Merci pour vos réponses

Pourquoi selon toi, ce code est fragile ?

Macro vérification de dates

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager