Modification de la couleur du texte dans une formule.

[Peyo]

Bonsoir.


Une petite question, maintes fois posée... j'ai effectuée une recherche sur le forum avant de poster...

J'ai une petite formule :

=SI(LIGNE()=4;"";Q4-Q5)&" / "&Q5-Q6

qui me permet de calculer dans un classement le notre de point qui me sépare du joueur qui me précède et du jour qui me suit.

Imaginons que j'obtienne pour résultat

18 / 25

Sauf que j'aimerai en fait obtenir

18 / 25

Je lis beaucoup de chose sur les MFC, mais je ne vois comment ici obtenir une solution.

Kiki à une solution ?
Merci d'avance.

AMIcalement.
Peyo.

 

[James007]

Re : Modification de la couleur du texte dans une formule.

Bonsoir,

Tu as raison ... ce sujet a déjà été traité à beaucoup de reprises ...

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
With Target.Characters(Start:=1, Length:=2).Font
        .ColorIndex = 4
End With
With Target.Characters(Start:=4, Length:=2).Font
        .ColorIndex = 5
End With
End Sub

A +

 

[Hulk]

Re : Modification de la couleur du texte dans une formule.

Hello,

Une solution vba trouvée sur le net.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1:A100]) Is Nothing Then ' A adapter
If Target.Count = 1 Then Target.Characters(Left(1, 2)).Font.ColorIndex = 4
If Target.Count = 1 Then Target.Characters(Left(3, 1)).Font.ColorIndex = 1
If Target.Count = 1 Then Target.Characters(Start:=6, Length:=Len(Target)).Font.ColorIndex = 3
End If
End Sub

Il y a sûrement mieux, mais c'est une piste.

Cdt, Hulk.


Oups salut James 😀

 

[Peyo]

Re : Modification de la couleur du texte dans une formule.

Ok, merci pour ce code dont je comprends le fonctionnement. Mais je crois voir un petit bémol, il me semble puisque l'on compte des caractères par rapport à une position fixée.

Par rapport à l'exemple que j'ai cité :

18 / 25
pour
18 / 25

Il me semble que l'on touche une limite au truc pour des écarts

6 / 123
ou
123 / 6
ou même
8 / 8

Me trompe-je ?


AMIcalement.
Peyo.


EDIT : ceci dit, j'ai pas su tester la solution proposée, je ne c pas comment la mettre en place. Vba.Newbie.Inside.

 

[James007]

Re : Modification de la couleur du texte dans une formule.

Bonjour,

Limite ... pas vraiment ... car en fonction de chaque situation, il suffit de s'adapter ....
Dans ton cas particulier, il suffit de considérer / comme le séparateur, .... donc de le chercher, et de l'utiliser la première fois comme la fin du premier élément ....et ensuite comme le début du second ....

A +

 

[Peyo]

Re : Modification de la couleur du texte dans une formule.

Ahhhh, oui, tout à fait.
Le / à une position fiable et fixe (on va dire), donc traiter le avant et le après.

Je comprends le truc, mais... je ne c pas (encore) faire.
Ni même comment utiliser les codes VBA.


AMIcalement.
Peyo.