bonjour a tous


pour faire une recherche de couleur dans une celule
on utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
for i = 1 to sheets(1).range("a65000").end.(xlup).row
if range("a" & i).interior.colorindex=5 then 
compteur=compteur+1
end if
next
 
msgbox "il y  a  " & compteur & "celulles de cette couleur dans la plage"
 
end sub

y a t il un moyen de faire ca avec find et findnext???

merci d'avance


au plaisir