thorra | Voila mon problème,
j'ai 2 tableaux, un contenant des données et des dates (la 1ere colonne correspond a la date et les colonnes suivantes aux données),
et le 2ème contenant aussi des données et des dates. Le but est de mettre à jour 2ème tableau avec les données et les dates du 1er.
Le 2eme tableau pouvant contenir des données et des dates deja présentes dans le 1er tableau.
Pour cela, je veux chercher la présence d'une date dans un tableau.
Lorsque je spécifie en dur la date à rechercher avec la méthode Find, la date est bien trouvée.
Par contre, si je passe en paramètre une variable, de quel type que ce soit, la date n'est pas trouvée.
Pourtant, le contenue de la variable est exactement identique à la date passée en dur.
Si en dur la date est : "09/05/2004 23:37:00", le contenu de la variable sera aussi "09/05/2004 23:37:00"......
mes questions sont, pourquoi la recherche echoue ? et par quel moyen autre que celui-ci puis-je réussir ma recherche ?
Code :
- // work, rangeHGraph, rangeDGraph, rangeHData sont deja définis
- Set rangeHGraph = work.Range(work.Cells(2, 1), work.Cells(2, 1).End(xlDown)) // défini une plage de dates (date + heure) au format "aaa/mm/jj hh:mm:ss"
- Set rangeDGraph = work.Range(work.Cells(2, j + 1), work.Cells(2, j + 1).End(xlDown))// défini une plage de données a copier
-
- Dim dateData
- Dim dateGraph
- MsgBox "string =" & dateGraph & "|" // pour tests
- dateData = rangeHData.Cells(1, 1).Value
- dateGraph = rangeHGraph.Cells(rangeHGraph.Cells.count, 1).Value
- If dateData > dateGraph Then
- MsgBox ">" // pour tests
- Else
- MsgBox "<=" // pour tests
- MsgBox dateGraph // pour test
- // "c" deja défini en tan ke Range
- Set c = rangeHData.Find(dateGraph, LookIn:=xlValues)
-
- If Not c Is Nothing Then
- MsgBox "date exist"
- Else
- MsgBox "date not exist"
- End If
-
- End If
|
|
