Comment puis je détecter dans une cellule du texte en noir ? Dans ma colonne
j'ai 4 couleurs de texte, seul le noir doit subir un traitement.
Merci de votre aide
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
JB
Bonjour,
Dans un module:
Function couleur(c As Range) couleur = c.Font.ColorIndex End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma co lonne j'ai 4 couleurs de texte, seul le noir doit subir un traitement. Merci de votre aide
Bonjour,
Dans un module:
Function couleur(c As Range)
couleur = c.Font.ColorIndex
End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB
http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" <Polio2...@orange.fr> wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma co lonne
j'ai 4 couleurs de texte, seul le noir doit subir un traitement.
Merci de votre aide
Function couleur(c As Range) couleur = c.Font.ColorIndex End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma co lonne j'ai 4 couleurs de texte, seul le noir doit subir un traitement. Merci de votre aide
Polio2004
Merci. C'est presque bon. Il me trouve les cellules vides en couleur noir. Il faudrait peut être y rajouter un test ?
"JB" a écrit dans le message de news:
Bonjour,
Dans un module:
Function couleur(c As Range) couleur = c.Font.ColorIndex End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma colonne j'ai 4 couleurs de texte, seul le noir doit subir un traitement. Merci de votre aide
Merci. C'est presque bon. Il me trouve les cellules vides en couleur noir.
Il faudrait peut être y rajouter un test ?
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189696020.948631.136930@k79g2000hse.googlegroups.com...
Bonjour,
Dans un module:
Function couleur(c As Range)
couleur = c.Font.ColorIndex
End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB
http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" <Polio2...@orange.fr> wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma
colonne
j'ai 4 couleurs de texte, seul le noir doit subir un traitement.
Merci de votre aide
Merci. C'est presque bon. Il me trouve les cellules vides en couleur noir. Il faudrait peut être y rajouter un test ?
"JB" a écrit dans le message de news:
Bonjour,
Dans un module:
Function couleur(c As Range) couleur = c.Font.ColorIndex End Function
Dans le tableur:
=SI(couleur(C2)=3;"rouge";"")
JB http://boisgontierjacques.free.fr
On 13 sep, 16:57, "Polio2004" wrote:
Comment puis je détecter dans une cellule du texte en noir ? Dans ma colonne j'ai 4 couleurs de texte, seul le noir doit subir un traitement. Merci de votre aide