Rechercher une valeur dans une plage et la colorier

Je voudrais qu'un utilisateur entre une date dans une boîte de dialogue. Si cette date existe
déjà dans une plage de ma feuille, j'aimerais que celle ci soit coloriée en jaune.

mess = InputBox("Saisissez la Date recherchée", "")  
If mess = "" Then exit sub  
On Error GoTo laFin  

Dim CelleLa As Range 
 For Each CelleLa In Range("A1:F10")
 'la tu mets ce que tu veux 
 If CelleLa = CDate(mess) Then 
CelleLa.Interior.ColorIndex = 6  
Next 
 laFin:

Auteur :

Mots clefs associés à cette page : , ,