OVH Cloud OVH Cloud

vérification de contenu

3 réponses
Avatar
accueil
Bonjour,
Si le contenu de la cellule A1 est écrit en rouge, j'aimerais qu'il s'
affiche 1 en B1, et si le contenu de la cellule A1 est écrit en bleu j'
aimerais qu'il s'affiche 2 en B1.
Comment faire ?
Merci d'avance pour vos réponses.
Jérôme

3 réponses

Avatar
Ricky [MVP]
Bonjour *accueil* (et tous les lecteurs)
| Bonjour,
| Si le contenu de la cellule A1 est écrit en rouge, j'aimerais qu'il s'
| affiche 1 en B1, et si le contenu de la cellule A1 est écrit en bleu
| j' aimerais qu'il s'affiche 2 en B1.
| Comment faire ?
| Merci d'avance pour vos réponses.
| Jérôme

Il me paraît plus simple de se demander pourquoi il est en rouge ou en bleu et d'introduire ce paramètre dans une condition en B1

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Rai
accueil wrote:
Bonjour,
Si le contenu de la cellule A1 est écrit en rouge, j'aimerais qu'il s'
affiche 1 en B1, et si le contenu de la cellule A1 est écrit en bleu
j' aimerais qu'il s'affiche 2 en B1.
Comment faire ?
Merci d'avance pour vos réponses.
Jérôme


Bonjour,

J'irais dans le même sens que Ricky, en me demandant pourquoi le contenu serait rouge ou bleu et en agissant à ce niveau,
néanmoins, tu peux utiliser le bout de code suivant :
If Range("A1").Font.ColorIndex = 3 Then Range("b1") = 1
If Range("A1").Font.ColorIndex = 5 Then Range("b1") = 2


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Avatar
accueil
Merci beaucoup c'est exactement ce que je voulais faire sans y arriver!!!
"Rai" a écrit dans le message de
news:camfmh$lks$
accueil wrote:
Bonjour,
Si le contenu de la cellule A1 est écrit en rouge, j'aimerais qu'il s'
affiche 1 en B1, et si le contenu de la cellule A1 est écrit en bleu
j' aimerais qu'il s'affiche 2 en B1.
Comment faire ?
Merci d'avance pour vos réponses.
Jérôme


Bonjour,

J'irais dans le même sens que Ricky, en me demandant pourquoi le contenu
serait rouge ou bleu et en agissant à ce niveau,
néanmoins, tu peux utiliser le bout de code suivant :
If Range("A1").Font.ColorIndex = 3 Then Range("b1") = 1
If Range("A1").Font.ColorIndex = 5 Then Range("b1") = 2


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...