Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro de transfert/recherche avec mise en forme conditionelle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ninanani

XLDnaute Occasionnel
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
 
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
 
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?
 
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?
 
Re : macro de transfert/recherche avec mise en forme conditionelle

Bonjour ninanani, le forum,

S'il faut comparer les couleurs des cellules :

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

S'il faut comparer les couleurs des polices :

Code:
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+
 
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
 
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.
 
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?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
473
Réponses
2
Affichages
161
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…