XL 2013 Couleur de caractère dans une cellule qui contient une formule

[eddy1975]

Bonsoir le forum,

Je souhaiterai savoir s'il est possible de mettre des caractères d'une couleur au choix dans une cellule qui contient une formule.
Je sais le faire sur une cellule sans formule comme dans l'exemple joint.

Merci pour votre aide.

 

[M12]

Re : Couleur de caractère dans une cellule qui contient une formule

Bonsoir

A premiere vue les caracteres en couleur sont ceux qui ne sont pas numériques ?

Où alors , faut expliquer !

 

[eddy1975]

Re : Couleur de caractère dans une cellule qui contient une formule

Bonsoir,

J'aimerai avoir en F9 la même chose qu'en H9.

C'est un exemple, donc il se peut que ce soit des valeurs numériques également.

 

[M12]

Re : Couleur de caractère dans une cellule qui contient une formule

Re,

D'ou ma question!

si c'est tantôt des chiffres et tantôt des lettres on se base sur QUOI ?

ou alors c'est toujours les mêmes emplacements ?

Sinon, Pfffffut, c'est pas pour moi

 

[eddy1975]

Re : Couleur de caractère dans une cellule qui contient une formule

Tu sais lire, je pense. J'ai donné un exemple dans mon fichier et je n'ai pas demandé que tu te poses des questions avec des si.... Pas besoin d'ajouter des variables et des conditions la ou il n'y en a pas.

Il y une suite de chiffres et de lettres en H9 avec des couleurs, j'aimerai avoir la même chose en F9 (qui contient une formule) c'est pourtant bien clair comme énoncé.

Sois tu connais une solution et j'en serai ravis sinon passe ton chemin vers des problèmes plus compliqués avec pleins de variables et des conditions. Je ne t'en voudrais pas.

Merci.

 

[M12]

Re : Couleur de caractère dans une cellule qui contient une formule

Bonjour,

A tester

 

[eddy1975]

Re : Couleur de caractère dans une cellule qui contient une formule

Bonjour M12,

Merci pour ta proposition.
Est-ce possible d'automatiser tout cela sans cliquer sur bouton ?
Directement avec la formule dans la cellule serait l'idéal.

 

[M12]

Re : Couleur de caractère dans une cellule qui contient une formule

Re,

Remplace le code par celui-ci

Private Sub Worksheet_Calculate()
Range("F9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 For Each c In Selection
   c.Characters(Start:=5, Length:=1).Font.ColorIndex = 3
   c.Characters(Start:=12, Length:=2).Font.ColorIndex = 3

 Next
End Sub

 

[eddy1975]

Re : Couleur de caractère dans une cellule qui contient une formule

Re,

Est-ce possible que la macro s'exécute à l'ouverture du classeur sans cliquer sur le "bouton" ?
Merci.

 

[M12]

Re : Couleur de caractère dans une cellule qui contient une formule

Re,

En mettant le code dans le ThisWorkbook Open

 

[eddy1975]

Re : Couleur de caractère dans une cellule qui contient une formule

Désolé M12 ca ne répond pas à mes attentes.
Du coup j'ai fais un nouveau post avec le fichier en question.
Encore merci pour ton aide