Trouver une cellule colorée

Tu peux utiliser ceci :

Ne pas oublier de modifier les paramètres de la procédure
pour qu'elle corresponde à ceux de ton application.

'------------------------------------
Sub TrouverFormat()
Dim Rg As Range
Dim LeCellFormat As CellFormat

Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.ColorIndex = 3 'Index à déterminer
'La liste pourrait être plus longue ...
End With

'Détermine la plage de cellules où s'effectue
'la recherche
With Worksheets("Feuil1") 'Nom feuille â dterminer
Set Rg = .Range("A:A") ' Adresse plage à déterminer
End With

'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", SearchFormat:=True)
'Si la procédure en trouve au moins une occurrence...
If Not C Is Nothing Then
C.Select
End If
End With

End Sub
'------------------------------------




"Free" <perez.jose@free.fr> a écrit dans le message de news: 4594d2f1$0$304$426a74cc@news.free.fr...
Bonjour à tous et bonne année,

J'aimerai savoir comment, à l'aide d'une macro, sélectionner une cellule
colorée en jaune.
Sachant qu'il n'y aura qu'1 cellule jaune dans la page, mais que son
emplacement change.
Si vous pouvez m'aider, je vous remercie par avance.
José