Test inopérant

Version imprimable

Test inopérant

Bonjour à tous,

J'ai un soucis avec des tests dans une macro VBA pour Excel 2003 SP2.

Voici le test :
Code:

1 2 3 4 5 6 7 8 'If ((temp <> date_6h_mat) And (temp <> date_6h_mat_plus) And (temp <> date_6h_mat_moins)) Then If (temp <> date_6h_mat) Then If (temp <> date_6h_mat_plus) Then If (temp <> date_6h_mat_moins) Then MsgBox "ALERTE !!! YA UN MEGA PROBLEME !!!!!", 16, "ERREUR !!!" End If End If End If
La variable 'temp' est locale à une sous-routine, c'est un format Date.
Les variables 'date_6h_mat', 'date_6h_mat_plus' et 'date_6h_mat_moins' sont aussi des formats Date et sont de type 'public' à toute la macro.

Quand je trace le prog ligne à ligne, je vois bien que :
'temp' contient "20/06/2008 05:59:00"
'date_6h_mat' contient "20/06/2008 06:00:00"
'date_6h_mat_plus' contient "20/06/2008 06:01:00"
'date_6h_mat_moins' contient "20/06/2008 05:59:00"

Donc, que ce soit un test en une seule ligne (voir la 1ère ligne en commentaire du code) ou la succession des 3 tests, cela ne marche pas !!! :?
Pourtant 'temp' et 'date_6h_mat_moins' étant égales, il ne devrait pas afficher la message box, et bien si... ARGH !!! :arf:

Si quelqu'un a une idée, je suis preneur...

20/06/2008, 10h50
pyrene

peut etre que ta variable Temp doit etre publique?

sinon ta sous routine qui te donne Temp te renvoit elle bien la bonne valeur?

sinon pas d'autre idee..

Citation:

Envoyé par pyrene

peut etre que ta variable Temp doit etre publique?

sinon ta sous routine qui te donne Temp te renvoit elle bien la bonne valeur?

sinon pas d'autre idee..

La var 'temp' est remplie à l'aide de la fonction suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function transform_timer_date(compteur As Long) As Date ' transforme un compteur exprimé en nbre de seconde en vraie date ' ATTENTION : le calcul se fait à partir de la date 01/01/1980 qui est le référentiel de la supervision ' une cellule (lointaine) de la feuille ouverte est utilisée pour le calcul Dim tempo As Double, tempo_date As Date tempo = compteur / 86400 Set plage = ActiveSheet.Cells(1, 245) plage.FormulaLocal = "=""01/01/1980""+" & tempo & "" tempo_date = ActiveSheet.Cells(1, 245).Value transform_timer_date = tempo_date End Function
Je vais tester le fait de la passer en 'public'.

=> je viens de la passer en 'public', et pas mieux... :cry:

Bonjour,

j'isole en fonction de ce que tu nous dis (abstraction donc faite de tout le reste et notamment de l'origine des valeurs... ou de leur type réel ...;))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
  Dim temp As Date, date_6h_mat_moins As Date, date_6h_mat_plus As Date, date_6h_mat As Date
  temp = "6/20/2008 5:59:00 AM"
  date_6h_mat = "20/06/2008 06:00:00"
  date_6h_mat_plus = "20/06/2008 06:01:00"
  date_6h_mat_moins = "6/20/2008 5:59:00 AM"
  If (temp <> date_6h_mat) Then
    If (temp <> date_6h_mat_plus) Then
      If (temp <> date_6h_mat_moins) Then
         MsgBox "ALERTE !!! YA UN MEGA PROBLEME !!!!!", 16, "ERREUR !!!"
      End If
    End If
  End If
End Sub

et aucun message ne s'affiche ...

20/06/2008, 11h50
shkyo

Dis-moi UCFOUTU, je veux être sûr de bien comprendre :
le fait de passer la variable 'temp' en "6/20/2008 5:59:00 AM" au lieu de "20/06/2008 05:59:00" et le test fonctionne ??
20/06/2008, 13h03
ucfoutu

Dis-voir, toi :

je ne joue pas au poker javanais (relis ce que tu as écrit dans ta question originelle).. et-reviens ensuite, s'il te plait (mais cette fois-ci en te montrant précis, tant en ce qui concerne les types que les formats)...;)

A bientôt, donc...
20/06/2008, 14h14
shkyo

Citation:

Envoyé par ucfoutu

Dis-voir, toi :

je ne joue pas au poker javanais (relis ce que tu as écrit dans ta question originelle).. et-reviens ensuite, s'il te plait (mais cette fois-ci en te montrant précis, tant en ce qui concerne les types que les formats)...;)

A bientôt, donc...

OKOK ce n'est pas clair, je récapitule donc ! ;)

Les variables de type 'public' à toute la macro sont : 'date_6h_mat', 'date_6h_mat_plus' et 'date_6h_mat_moins'
=> Ce sont des formats Date.

La variable de type 'locale', d'une sous-routine, est 'temp' et c'est un format Date également.

Quand je trace le prog ligne à ligne, je vois bien que :
Après un calcul par la fonction "transform_timer_date", qui se situe juste une ligne avant les tests :

Code:

temp = transform_timer_date(ActiveSheet.Cells(cell_ligne_derniere_base, 1).Value)

la variable 'temp' contient bien le résultat : "20/06/2008 05:59:00"

Sachant que suite à d'autres calculs fait précédemment :
'date_6h_mat' contient "20/06/2008 06:00:00"
'date_6h_mat_plus' contient "20/06/2008 06:01:00"
'date_6h_mat_moins' contient "20/06/2008 05:59:00"

Pour VB, il considère mes 3 tests vrai puisque le message s'affiche ! Alors que le dernier test devrait être faux, vu que visiblement 'temp' et 'date_6h_mat_moins' sont identiques... :aie:

Je cherche toujours... :evilred:
20/06/2008, 14h36
ucfoutu

Citation:

Envoyé par shkyo

Je cherche toujours... :evilred:

Et moi, j'attends toujours ma réponse en ce qui concerne les types (je n'ai pour l'instant que les formats d'affichage !)
20/06/2008, 14h43
shkyo

Citation:

Envoyé par ucfoutu

Et moi, j'attends toujours ma réponse en ce qui concerne les types (je n'ai pour l'instant que les formats d'affichage !)

Mais qu'entends-tu par "type" ?? Pour moi (mais je ne sais pas tout !), il n'y a que 2 types possibles d'une variable : 'locale' ou 'public'

Le reste étant les formats, par exemple 'Long', 'String', 'Date', etc...

J'ai bon ? Ou j'ai zappé quelquechose ???

J'ajoute une précision, ces tests sont dans une sous-routine qui est appelée une bonne cinquantaine de fois sans problème ! 8O

La seule différence avec le cas qui ne marche pas, est que la variable 'temp' contient "20/06/2008 06:00:00".
Et au 1er test :

Code:

If (temp <> date_6h_mat) Then

le résultat est faux car 'date_6h_mat' contient toujours "20/06/2008 06:00:00", donc le message ne s'affiche pas, ce qui est normal !!!

Vous avez dit bizarre ?... :aie:

J'ai enfin trouvé une solution à mon problème !! :yaisse2:

Je pense que la cause du problème vient du calcul sur les dates et heures. Car Excel me les affichent (à l'écran et dans les variables) sous la forme : "23/06/2008 05:59:00" mais en fait il calcule jusqu'au millième de seconde, même s'il ne l'affiche pas... :?

Il est fort probable que ce soit pour ça que mon test n'était pas bon, car mes 2 valeurs n'étaient pas vraiment égales, il entrait donc dans le test !

Pour contourner cela, j'ai séparé date et heure, et je transforme "à la main" l'heure en nombre de seconde avant de faire les tests, que je stocke dans des nouvelles variables 'public' ! Et là, ça fonctionne ! :mouarf:

Voici le nouveau code :
La nouvelle fonction...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Function transform_timer_date(compteur As Long) As Date ' transforme un compteur exprimé en nbre de seconde en vraie date ' ATTENTION : le calcul se fait à partir de la date 01/01/1980 qui est le référentiel de la supervision ' une cellule (lointaine) de la feuille ouverte est utilisée pour le calcul ' codée le 08/01/2008 pour gérer les décalages de temps Dim tempo As Double, tempo_date As Date, heure As Long, min As Long, sec As Long tempo = Round((compteur / 86400), 4) Set plage = ActiveSheet.Cells(1, 245) plage.FormulaLocal = "=""01/01/1980""+" & tempo & "" tempo_date = ActiveSheet.Cells(1, 245).Value 'calcul de l'heure en seconde pour les tests heure = Hour(tempo_date) min = Minute(tempo_date) sec = Second(tempo_date) heure_6h_comp = (((heure * 60) + min) * 60) + sec transform_timer_date = tempo_date End Function
et les nouveaux tests...
Code:

1 2 3 4 5 6 7 8 temp = transform_timer_date(ActiveSheet.Cells(cell_ligne_derniere_base, 1).Value) If (temp <> date_6h_mat) Then If (heure_6h_comp <> heure_6h_plus) Then If (heure_6h_comp <> heure_6h_moins) Then MsgBox "ALERTE !!! YA UN MEGA PROBLEME !!!!!", 16, "ERREUR !!!" End If End If End If
Voilà, tout ceci pour info, si ça peut servir à quelqu'un ! ;)

Merci tout de même de votre aide en tout cas !