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

Bonjour

ta couleur d'origine elle est où pour la comparaison

Sinon oui c'est possible
avec le font.colorindex

 

[PascalXLD]

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

Re

oups question idiote j'ai vu après (essaies en ajoutant la ligne en rouge

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
if c.font.colorindex<>Sheets("Simple Invoice").Range("B" & 11).font.colorindex then exit sub

 

[ninanani]

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

Re Pascal,
Merci de ta reponse aussi rapide.
Ma couleur d origine elle est en B11 sur ma "Simple Invoice"

Ou est ce que j insere le font.colorindex?

 

[PascalXLD]

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

re

Post croisé

réponse au dessus 😀

 

[PascalXLD]

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

re

sinon on ecrit

range("B11")
c'est bcp mieux que
Range("B" & 11) et plus rapide

 

[ninanani]

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

Re Pascal.

J ai teste, mais cela ne marche pas, la macro me ramene quand meme les information, alors que la couleur n est pas la meme.

Ce n est pas la couleur de fond de la case qui est differente, c est la couleur de l ecriture. Peut etre est ce cela?

 

[job75]

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

Bonjour ninanani, le forum,

S'il faut comparer les couleurs des cellules :

If c.Interior.ColorIndex <>  Sheets("Simple Invoice").Range("B11").Interior.ColorIndex Then Exit Sub

S'il faut comparer les couleurs des polices :

If c.Font.ColorIndex <>  Sheets("Simple Invoice").Range("B11").Font.ColorIndex Then Exit Sub

Edit : salut Pascal, je n'avais pas vu tes posts...

A+

 

[PascalXLD]

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

Re Pascal.

Ce n est pas la couleur de fond de la case qui est differente, c est la couleur de l ecriture. Peut etre est ce cela?

Bah pourtant je fais bien le test sur la couleur de la font

Ah mais tu es en 2007 et c'est vrai que des couleurs différentes peuvent renvoyer des colorindex identiques
je regarde

 

[ninanani]

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

Re Pascal

Non je ne suis pas en 2007, je suis en 2003.

J ai egalement teste avec les fonts de cellule, cela ne marche pas non plus.

Je ne comprends pas.

 

[PascalXLD]

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

RE

essaies en remplaçant colorindex par color

 

[PascalXLD]

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

RE

Sinon petite question
Ta couleur de police tu la mets à la main ou c'est une mise en forme conditionelle qui lui attribue ??

 

[ninanani]

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

Re Pascal,

J ai teste en renplacant par color, toujours le meme resultat.

Sinon oui c est une mise en forme conditionelle qui atribue la couleur. Cela change t il quelque chose?

 

[PascalXLD]

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

RE

oui car en direct il ne récupère pas le color ou le colorindex d'une MFC

Je regarde je crois qu'il y a un moyen

 

[ninanani]

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

Re, merci

J espere qu il y a un moyen...