macro de transfert/recherche avec mise en forme conditionelle

[ninanani]

Bonjour a tous.

Dans ma macro suivante, je souhaiterais, que la ligne en rouge fasse attention a la couleur du nom qu elle doit comparer.
C est a dire que si elle trouve le meme nom mais pas de la meme couleur, alors c n existe pas, et c est la fin de la macro.

Sub cherche()
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B" & 11).Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then Exit Sub

If Not c Is Nothing Then
Sheets("Simple Invoice").Range("G" & 5) = c.Offset(0, 1)
Sheets("Simple Invoice").Range("G" & 6) = c.Offset(0, 2)

Sheets("Simple Invoice").Range("A" & 19) = c.Offset(0, 3)
Sheets("Simple Invoice").Range("A" & 20) = c.Offset(0, 4)
Sheets("Simple Invoice").Range("A" & 21) = c.Offset(0, 5)
Sheets("Simple Invoice").Range("A" & 22) = c.Offset(0, 6)

.
.
.
.


Je ne sais meme pas si c est possible, j espere.
Merci de votre aide

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

RE

Arf oui le truc tout bête
je l'avais zappé aussi 🙄