trouver un début de date fonction Find

[charlou74]

Bonjour, j'aimerais trouver une date dans une colonne.
l'utilisateur rentre une date et ensuite trouve cette date et la selectionne.
voici mon code

'Récuperation des valeurs de début et de fin
    heure2 = Workbooks("MACRO_VISUALISATION.xls").Worksheets(1).Cells(5, 8).Value
    heure = Workbooks("MACRO_VISUALISATION.xls").Worksheets(1).Cells(5, 6).Value

puis je cherche la valeur

Worksheets(gaz).Activate
==>    Set rngDebut ActiveSheet.Columns(1).Cells.Find(heure,LookAt:=xlPart)
==>    Set rngFin = ActiveSheet.Columns(1).Cells.Find(heure2,LookAt:=xlPart)
    'si la valeur n'est pas trouvé on fait rien
        If rngDebut Is Nothing Then
        MsgBox " debut rien"
        End If

quand j'éxecuter le prog en mode pas à pas au niveau de la flèche heure et heure2 contienne bien la date "10/02/2010"par exemple.
j'utilise un xlpart car dans ma colonne de recherche la date est sous cette forme jj/mm/aaaa hh:mm.

et dans mon cas dans le rngDebut est toujours vide (nothing)

merci de votre aide.

 

[Pierrot93]

Re : trouver un début de date fonction Find

Bonjour charlou,

regarde l'exemple ci-dessous, il faut peut être rechercher la propriété "text" de la cellule :

Dim x As Range
Set x = Range("A:A").Find(Range("B1").[COLOR="Red"][B]Text[/B][/COLOR], , xlValues, xlPart, , , False)

bonne journée
@+

 

[charlou74]

Re : trouver un début de date fonction Find

c'est Résolu ma variable heure était en string et c'est en date qu'il faut la déclarer!
dim heure as Date
merci de ton aide qd même 😉