[VBA] problème et recherche de date avec Find...

problème et recherche de date avec Find... [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 12-05-2004 à 16:42:17    

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 :
  1. // work, rangeHGraph, rangeDGraph, rangeHData sont deja définis
  2.       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"
  3.       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  
  4.      
  5.       Dim dateData
  6.       Dim dateGraph
  7.       MsgBox "string =" & dateGraph & "|" // pour tests
  9.       dateData = rangeHData.Cells(1, 1).Value
  10.       dateGraph = rangeHGraph.Cells(rangeHGraph.Cells.count, 1).Value
  11.       If dateData > dateGraph Then
  12.         MsgBox ">" // pour tests
  13.       Else
  14.         MsgBox "<=" // pour tests
  15.         MsgBox dateGraph // pour test
  16.         // "c" deja défini en tan ke Range
  17.         Set c = rangeHData.Find(dateGraph, LookIn:=xlValues)
  18.        
  19.         If Not c Is Nothing Then
  20.           MsgBox "date exist"
  21.         Else
  22.           MsgBox "date not exist"
  23.         End If
  24.        
  25.       End If

Reply

Marsh Posté le 12-05-2004 à 16:42:17   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed