Bonjour,
Voici l'ensemble des paramètres existants de la fonction .Find :
.Find(What:="TrucMucheRecherché", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
De ton côté tu fais :
Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
Si je comprends bien, tu veux .Find/trouver non seulement la valeur de c (c.Value) mais aussi sa couleur ?
On dirait que le SearchFormat correspond à ce que tu souhaites, qu'en dis-tu ?
Il ne te resterait alors qu'à faire :
Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole,,,,SearchFormat:=True)
ou quelque chose du genre (je ne sais plus si j'ai bien mis les virgules).
Ainsi ton .Find cherchera la valeur de ton c mais aussi son format et donc sa couleur au passage ()encore faut-il que cela soit formaté pareil : Bold/Italic/Police.
Sinon, si tu veux faire plus simple mais moins "propre", tu mets une condition dans
1 2 3
| If Not D Is Nothing Then
End If |
Une simple If D.Font.Color = Then si tu parles de la couleur dans laquelle est écrit ton truc. Sinon, tourne toi du côté de la couleur de la cellule.
Bonne chance pour la suite.
Partager