Discussion :

[shkyo]

Bonjour à tous,

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

Voici le test :

Code :

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

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

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

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

[shkyo]

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 :

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

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

[ucfoutu]

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 :

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

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

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

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