soucis avec les tableaux (array)

Bonjour Lolol,

Essaie ceci :

'-------------------------------
Sub test()

Dim Tblo(1 To 4) As Double, MyVar As Double

Tblo(1) = CDbl(CDate("02/01/1900 05:00:00"))
Tblo(2) = CDbl(CDate("02/01/1900 05:30:00"))
Tblo(3) = CDbl(CDate("02/01/1900 06:00:00"))
Tblo(4) = CDbl(CDate("02/01/1900 06:30:00"))

MyVar = CDbl(CDate("02/01/1900 06:30:00"))

MsgBox TrouveDansTableau(MyVar, Tblo)

End Sub
'-------------------------------
Function TrouveDansTableau(LaVariable As Double, NomTableau)
'renvoie vrai si LaVariable est présente dans NomTableau
TrouveDansTableau = Not IsError(Application.Match(LaVariable, NomTableau, 0))
End Function ' Dana DeLouis, mpep
'-------------------------------


Salutations!







"-=lolol=-" <polytek@SANSPUBfree.fr> a écrit dans le message de news: %23dcNFJhuFHA.1132@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,

J'ai un problème que je n'arrive pas à résoudre ...

J'ai une plage de cellule que je charge dans un tableau pour obtenir

dim LaTableau() as Date
LeTableau(1)/01/1900 05:00:00
LeTableau(2)/01/1900 05:30:00
LeTableau(3)/01/1900 06:00:00
LeTableau(4)/01/1900 06:30:00
...

puis j'ai une fonction (trouvée chez FS)
Function TrouveDansTableau(LaVariable As Date, NomTableau)
'renvoie vrai si LaVariable est présente dans NomTableau
TrouveDansTableau = Not IsError(Application.Match(LaVariable, NomTableau,
0))
End Function ' Dana DeLouis, mpep

puis au cours d'un sub j'utilise
If TrouveDansTableau(VarDateHeure, VarNomTableau) = True then
qui me renvoie toujours false même si j'utilise une valeur du dit tableau
(???)

... pire, si j'utilise
If TrouveDansTableau(LeTableau(1), "LeTableau") = True then
ça me renvoie false aussi !!!

Je ne vois pas pourquoi, pouvez vous m'aider ?
Par avance merci
@+lolo

Bonjour michdenis,
merci pour ton aide
@+lolo