Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel detecter la couleur de police

detecter la couleur de police

6 réponses
Avatar
MAVEAN
Une cellule A1 est écrite en rouge ou en bleu ou en noir
.
Je veux que la cellule B1 donne la lettre C et si A1 est bleu la lettre A

Comment faire.
Merci.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
SL
Bonjour

tes couleurs ont elles été mise à la main ou à l'aide d'une Mise en Forme
Conditionnelle ?

Si MEFC, reprendre les conditions de celle-ci.

Si à la main :

une petite macro :
Sub Macro1()
Dim c As Range
For Each c In Selection
If c.Font.ColorIndex = 3 Then c(1, 2) = "Bleu"
If c.Font.ColorIndex = 5 Then c(1, 2) = "Rouge"
If c.Font.ColorIndex = 1 Then c(1, 2) = "Noir"
Next
End Sub

à condition que le Noir ne soit pas "automatique", que le Bleu soit bien le
3 et le Rouge le 5 (à modifier sinon).

Attention, si on change la couleur de la police, le changement dans la
cellule voisine ne sera pas automatique. Il faut relancer la macro.

Stéphane

"MAVEAN" a écrit dans le message de news:
437dbb93$0$18319$
Une cellule A1 est écrite en rouge ou en bleu ou en noir
.
Je veux que la cellule B1 donne la lettre C et si A1 est bleu la lettre A

Comment faire.
Merci.



Avatar
Lionel
Bonjour Mavean,

Tu peux également utiliser une formule nommée avec une fonction XL4. Si tu
ne connais pas, je t'explique :

Tu te places en B1 et tu fais Insertion/Nom/Définir, pour le nom tu tapes
Couleur et pour "Fait référence à :", tu entres la formule suivante :
"=LIRE.CELLULE(24;Feuil1!$A1)" ; naturellement, tu adaptes en fonction du nom
de ta feuille. Ensuite, dans ta cellule B1 à Bn, tu entres la formule
"=SI(Couleur=5;"A";"C")".

Tu peux trouver un exemple d'utilisation à l'adresse suivante :

http://www.excel-downloads.com/forums/2-90879-extraire-des-cellule-ecrites-en-bleues.htm#91039

Cordialement
Lionel


Une cellule A1 est écrite en rouge ou en bleu ou en noir
..
Je veux que la cellule B1 donne la lettre C et si A1 est bleu la lettre A

Comment faire.
Merci.





Avatar
Modeste
Bonsour®
Lionel wrote:
Tu peux également utiliser une formule nommée avec une fonction XL4. Si tu
ne connais pas, je t'explique :
Tu te places en B1 et tu fais Insertion/Nom/Définir, pour le nom tu tapes
Couleur et pour "Fait référence à :", tu entres la formule suivante :
"=LIRE.CELLULE(24;Feuil1!$A1)" ; naturellement, tu adaptes en fonction du
nom
de ta feuille. Ensuite, dans ta cellule B1 à Bn, tu entres la formule
"=SI(Couleur=5;"A";"C")".


attention !!!!Restriction !!!!!!!!!!!!!!!!!!!!!!
http://minilien.com/?ZA9794l49S

le changement de couleur ne provoque pas de recalcul,
il faut un changement de valeur du contenu de la cellule reference ici $A1
sinon ce résultat (B1) n'est hélas évalué que lors de la validation de cette
unique
cellule contenant "=SI(Couleur=5;"A";"C")"
si d'autres cellules contiennent "=SI(Couleur=5;"A";"C")" il faudra valider
chacune tour à tour ...
:-((



--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
Lionel
Re,

Effectivement, tu as raison sur le principe mais il y a un moyen de
contourner cela...
Dans les procédures événementielles de la feuille, il suffit d'écrire :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("B1", Range("B65536").End(xlUp)).FormulaR1C1 =
"=IF(Couleur=5,""A"",""C"")"
End Sub

Sauf à rester dans la même cellule après modification, cela recalcule toutes
les formules (identiques, bien sûr) dans la colonne B.

Elle est pas belle, la vie ?

"Modeste" wrote:
attention !!!!Restriction !!!!!!!!!!!!!!!!!!!!!!
http://minilien.com/?ZA9794l49S

le changement de couleur ne provoque pas de recalcul,
il faut un changement de valeur du contenu de la cellule reference ici $A1
sinon ce résultat (B1) n'est hélas évalué que lors de la validation de cette
unique
cellule contenant "=SI(Couleur=5;"A";"C")"
si d'autres cellules contiennent "=SI(Couleur=5;"A";"C")" il faudra valider
chacune tour à tour ...
:-((



--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042





Avatar
Modeste
Bonsour®
Lionel wrote:
Dans les procédures événementielles de la feuille, il suffit d'écrire :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("B1", Range("B65536").End(xlUp)).FormulaR1C1 > "=IF(Couleur=5,""A"",""C"")"
End Sub
Elle est pas belle, la vie ?


Oui...
;o))) mais Google est ton ami , MPFE ton crédo
si tu avais consulté le lien précédement cité ;o)))

../..
Function tcoul(cref As Range, color As Integer) As Boolean
Application.Volatile
tcoul = cref.Interior.ColorIndex = color
End Function
avec application.volatile il faut qd même un recalcul donc un changement de
valeur et non de format pour qu'elle opère et ainsi soit recalculée
(Lsteph)

au plus simple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub
(GD)

à mon avis vaut mieux utiliser F9 à bon escient,
car un recalcul à chaque changement de la selection active, peut devenir
excessivement pénalisant !!!
(GD)

Je pense que la méconnaissance de la MEFC entraine souvent une faute
"originelle" dans la conception d'un produit
Causes et conséquences, dans qques cas, ne sont pas placées dans le bon
"ordre" !
(AV)
../..

--
Utilisez un vrai lecteur de news !!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
Lionel
Re-re,

Je ne veux pas polémiquer mais Application.Calculate ne fonctionne pas dans
ce cas (je viens de la tester sur XL97), et je ne vois pas trop l'utilité de
la fonction tcoul citée dans le cas présent...

amicalement
Lionel

"Modeste" wrote:

Bonsour®
Lionel wrote:
Dans les procédures événementielles de la feuille, il suffit d'écrire :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("B1", Range("B65536").End(xlUp)).FormulaR1C1 > > "=IF(Couleur=5,""A"",""C"")"
End Sub
Elle est pas belle, la vie ?


Oui...
;o))) mais Google est ton ami , MPFE ton crédo
si tu avais consulté le lien précédement cité ;o)))

.../..
Function tcoul(cref As Range, color As Integer) As Boolean
Application.Volatile
tcoul = cref.Interior.ColorIndex = color
End Function
avec application.volatile il faut qd même un recalcul donc un changement de
valeur et non de format pour qu'elle opère et ainsi soit recalculée
(Lsteph)

au plus simple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub
(GD)

à mon avis vaut mieux utiliser F9 à bon escient,
car un recalcul à chaque changement de la selection active, peut devenir
excessivement pénalisant !!!
(GD)

Je pense que la méconnaissance de la MEFC entraine souvent une faute
"originelle" dans la conception d'un produit
Causes et conséquences, dans qques cas, ne sont pas placées dans le bon
"ordre" !
(AV)
.../..

--
Utilisez un vrai lecteur de news !!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042