.find ne marche pas!

[Claudy]

Bonjour à tous,
Un tableau, avec des dates en ligne
J'essaie de trouver une date et de la sélectionner avec ceci:

Sub trouvedate()
'Dim c As Date
With Range("E6:AI6")
Set c = .Find(CDate(Range("E1").Value))

End With
c.Select
'c.Interior.ColorIndex = 3
End Sub
Mais ça bug sur C.select!
Merci d'avance pour votre aide,
Claudy

 

[Pierrot93]

Re : .find ne marche pas!

Bonjour,

regarde ce que dit l'aide vba sur les arguments de la méthode "find" qu'il est préférable de préciser :

Notes
Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés. Le fait de définir les paramètres de ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments de façon explicite chaque fois que vous utilisez cette méthode.

bonne journée
@+

 

[wylkiz21]

Re : .find ne marche pas!

N'étant qu'un amateur, voilà ce que je peux te proposer :

Sub Chercherdate()

    Dim Plage As Range, Cell As Range
    Dim Date1 As Date
    
    Set Plage = Range("A2: E5")
        
    Date1 = Range("E1").Value
               
    For Each Cell In Plage
    
    If Cell.Value = CDate(Date1) Then
     
    Cell.Interior.ColorIndex = 3
    
    Else
    
    Cell.Interior.ColorIndex = 0
                    
    End If
          
    Next Cell
    
End Sub