Repérer police de caractères rouge dans fichier Excel

[jacksud]

Bonjour à tous,

Mon problème :
J’ai fichier Excel avec des montants et quand je modifie un montant je le mets en police rouge gras.
Ce que j’aimerai c’est que sitôt qu’un montant est passé en police rouge sur une ligne entre la colonne 70 et 86 de pouvoir l’identifier en colonne 185 GC (repérer police caractères). Par rouge si un des montants est en « rouge » et « sans » quand la police est standard (noir). Afin de pouvoir faire après un filtre sur la colonne GC pour trier ces données.
Les lignes et colonnes ne doivent pas bouger ainsi que le plan.
J’ai enlevé les données confidentielles et remplacé les entêtes par des chiffres.
Jack

 

[Dugenou]

Re : Repérer police de caractères rouge dans fichier Excel

Salut Jacksud, salut le forum,

D'abord il faut créer une fonction personalisée "couleur police"
dans un module du classeur :
Function couleurPolice(c)
If c.Font.ColorIndex = -4105 Then
couleurPolice = "sans"
Else
couleurPolice = c.Font.ColorIndex
End If
End Function

ensuite en colonne GC :
=SI(ESTERREUR(TROUVE("3";couleurPolice(BS11)&couleurPolice(BT11)&couleurPolice(BU11)&couleurPolice(BV11)));"sans";"rouge")

je n'ai inclu que 3 colonnes par pure flemme

bon courage

 

[Denis]

Re : Repérer police de caractères rouge dans fichier Excel

Bonjour à tous
un petit essais avec XL4
(voir dans inserer nom)
Bon courage et à +
Denis

 

[jacksud]

Re : Repérer police de caractères rouge dans fichier Excel

Salut Dugenou

J'ai essayé la methode à Dugenou en placant d’un module la fonction

Function couleurPolice(c)
If c.Font.ColorIndex = -4105 Then
couleurPolice = "sans"
Else
couleurPolice = c.Font.ColorIndex
End If
End Function

Et mis sa formule en colonne GC

Mais ça ne marche pas je pense. Voir classeur

Jack

 

[jacksud]

Re : Repérer police de caractères rouge dans fichier Excel

Salut Denis,
Ta formule prends en compte que la colonne (78) BZ.
Il faut prendre toute modif sur la ligne entre la colonne 70 et 86 .
Merci
jack

 

[Efgé]

Re : Repérer police de caractères rouge dans fichier Excel

Bonjour jacksud, Denis, Dugenou,
Sur une fonction personnalisée de Boisgontier (donnée ce matin et que j'espère n'avoir pas trop "dénaturée"...😉 ):

Function SommeCouleurTexte(champ As Range, couleurTexte As Long)
Dim c, temp
Application.Volatile
temp = 0
   For Each c In champ
     If c.Font.ColorIndex = couleurTexte Then
      temp = temp + c.Value + 1 [COLOR=seagreen]'Si non les 0 ne sont pas pris en compte[/COLOR]
     End If
   Next c
 
   If temp > 0 Then
    SommeCouleurTexte = "Avec"
   Else
    SommeCouleurTexte = "Sans"
   End If
 
End Function

Cordialement

 

[Denis]

Re : Repérer police de caractères rouge dans fichier Excel

Re,
dans la formule (dans insérer nom), il faut mettre :
=OU(LIRE.CELLULE(24;Essai!BR16);(LIRE.CELLULE(24;Essai!BS16); etc) sans oublier la parenthèse finale.
ATTENTION, le 16, si ta cellule active est en ligne 16.
Tu auras alors comme résultat : VRAI ou FAUX
Bon courage et à +

 

[jacksud]

Re : Repérer police de caractères rouge dans fichier Excel

Merci à tous les deux je test cela demain matin
Jack

 

[jacksud]

Re : Repérer police de caractères rouge dans fichier Excel

Merci à tous les deux j'ai pris la solution de Dugenou car dans celle de Denis il me manque des parenthèses au bon endroit.
Jack