.find ne marche pas!

Claudy · 20 Avril 2011

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 · 20 Avril 2011

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 · 20 Avril 2011

Re : .find ne marche pas!

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

Code:

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

.find ne marche pas!

Claudy

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

wylkiz21

Guest

Discussions similaires

.find ne marche pas!

Claudy

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

wylkiz21

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency