Chaque lettre a une couleur propre

Fermé
Bert74 - 13 déc. 2010 à 14:09
Raymond PENTIER Messages postés 58802 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 10 janvier 2025 - 13 déc. 2010 à 17:55
Bonjour,

J'aimerais par exemple que pour chaque lettre que je tape dans un groupe de cellule prennent la couleur que je veux.
Je vous donne un exemple parce que je n'arrive par trop a expliquer ( surtout que je suis archi débutant en Excell )

Si par exemple je fais ceci pour du football

un V est une victoire
un N un match nul
un D une défaite

le tableau se présenterait plus ou moins comme ceci ( je résume )

A B

Equipe série

1 Marseille VVVVNDN
2 PSG DDDNDDV


Voilà donc j'aimerais que tout mes V apparaissent en vert et tout mes D en rouge par exemple sans faire ceci manuellement à chaque fois.

Comment faire ?

Je vous remercie d'avance et bonne journée



A voir également:

12 réponses

Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
13 déc. 2010 à 15:02
Re,

Tu as bien mis en surbrillance la plage C3 à C22, bien suivi la procédure et dans Format onglet Police tu as sélectionné la couleur verte pour le V

outre la couleur de police, tu peux simplement mettre le fond de cellule en couleur dans ce cas tu sélectionnes Remplissage à la place de police.

Si tu n'y arrives pas je te ferai un petit montage

1
Raymond PENTIER Messages postés 58802 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 10 janvier 2025 17 264
13 déc. 2010 à 17:55
Bert74, bonjour.

Marseille | VVVVNDN
Tout serait tellement plus simple si en colonne A tu mettais Marseille, en colonne B tu mettais V, en colonne C aussi, en colonne D et E aussi, N en colonne F, D en colonne G etc...

* Tu n'as pas de raison grave de faire des économies de colonnes ?
Faire autant de colonnes que de matchs te permet non seulement de les colorer facilement (posts #3 et #7), mais de calculer aisément les points et le classement de chaque équipe.

Cordialement.
1
bonjour

Voila sous ce lien ce qui peut te convenir

http://www.cijoint.fr/cjlink.php?file=cj201012/cijsI0Xhxb.xlsx

Crdt
0
Merci beaucoup mais qu'est ce que s'est ? je ne comprend pas ce lien
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
Modifié par Mike-31 le 13/12/2010 à 14:36
Salut,

Simple mise en forme conditionnelle,
commence par mettre en surbrillance la plage à surveiller exemple A1 à A50
Avec Windows7 je suppose que tu es sous Excel 2007 ou 2010
Onglet Accueil/Mise en forme conditionnelle/Nouvelle régle/Utiliser une formule pour déterminet quelles cellules le format sera appliqué
dans Modifier la description de la régle
saisir =$A1="V"
format/Police, choisir la couleur éventuellement la taille et le gras
Ok
recommencer pour la deuxième régle concernant le D
ou la formule sera =$A1="D"

etc ...

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Merci je vient de comprendre votre lien,

ce n'est pas exactement ca que je recherche

je voudrait que les VDNect... de chaque équipe soit dans la même celulle

http://img97.imageshack.us/img97/8104/excelll.jpg

Si ceci peux vous aider à mieux comprendre
0
Merci je n'avais pas vu votre message avant celui poster precedemment.

Je vous remercie et vais essayer celà de ce pas
0
Cela ne marche pas aucune lettre ne change

mes cellules vont de C3 a C22 j'ai donc remplacer =$A1="V" par =$C3="V"
0
http://img149.imageshack.us/img149/9141/excell.jpg

Si celà peux vous aider
0
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
Modifié par Mike-31 le 13/12/2010 à 15:39
Re,

alors pour cela il faut passer en VBA

Clic droit sur l'onglet de la feuille concerné et colles ce code qui mettra en vert les V et en rouge les D

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range, Lng As Long, i As Long
For Each Cellule In [C2:C22]
Lng = Len(Cellule.Text)
For i = 1 To Lng
If Mid(Cellule.Text, i, 1) = "D" Then
Cellule.Characters(i, 1).Font.ColorIndex = 3
ElseIf Mid(Cellule.Text, i, 1) = "V" Then
Cellule.Characters(i, 1).Font.ColorIndex = 4
Else
Cellule.Characters(i, 1).Font.ColorIndex = 0
End If
Next i
Next
End Sub

Si c'est cela, on pourra forcer certaines lettres en gras

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Je vous remercie du temps que vous consacrez a mon probléme.

Ou dois je coller ce code ?
0
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
Modifié par Mike-31 le 13/12/2010 à 16:13
Re,

Tu fais un clic droit sur l'onglet de ta feuille, puis clic sur Visualiser le code, une feuille va s'ouvrir avec une grande partie de la feuille blanche, c'est dans cette partie blanche que tu dois coller le code

Si tu n'y arrives pas, je te fais un petit montage

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0