EXCEL-Lettres d'un mot transformée en Couleur

Bonsoir

XL<2007

"outils-correction automatique" te permet de créer ton code couleur-texte

Michel

Bonsoir,
Bonsoir Michel, je ne crois pas que c'est ca qu'il veux...
Avec une macro, Au cas ou tu connais pas le VBA.
tu tape Alt+F11, dans l'IDE de VBA, la fenêtre de gauche (explorateur de projet) tu a le nom des feuilles, double clic sur le nom de la feuille concernée, dans la nouvelle fenêtre tu fait un copier/coller du code ci-dessous

Dim TB(65 To 90) As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncCel As String
    On Error Resume Next ' au cas d'écritue d'un signe ou autre qu'une lettre 
    If AncCel <> "" Then
        Range(AncCel) = TB(Asc(UCase(Range(AncCel))))
    Else
        InitVar
    End If
    AncCel = Target.Address
End Sub
Sub InitVar()
TB(65) = "ROUGE"
TB(66) = "PARME"
TB(67) = "BLEU CLAIR"
TB(68) = "BLEU MARINE"
TB(69) = "BLEU"
TB(73) = "VERT"
TB(76) = "ORANGE"
TB(77) = "VIOLET"
TB(78) = "ROSE"
TB(79) = "JAUNE"
TB(80) = "VERT FONCE"
TB(82) = "NOIR"
TB(83) = "GRIS"
TB(84) = "MARRON"
TB(85) = "BLANC"

End Sub

Tu peu taper en minuscule ou majuscule, si la lettre n'est pas bonne, la cellule reste vide.
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  

Si tu veux, mais si tu avais suivi les explications que j'ai donné plus haut tu y serais arrivé.
http://cjoint.com/?hnaw7Y4mTK
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

J'ignore à quoi ressemble ton tableau.
Si jamais il ne se compose que d'une seule colonne, j'ai une manipulaton qui ne fait pas appel à des macros.
J'ai tout mis dans la même feuille, pour une meilleure compréhension, mais normalement les calculs intermédiaires seraient sdans une autre feuille du fichier.

Tu donnes un nom, CODAGE par exemple, à ton tableau de correspondance à 2 colonnes qui commence par A et se termine par BLANC (et qui peut très bien se trouver dans une autre feuille du même fichier).
Il ne te reste qu'à utiliser la fameuse et incontournable fonction RECHERCHEV pour règler ton problème, en lisant une à une les lettres (fonction STXT) qui composent le mot ou la phrase ; dans mon exemple je me liimite à 38 caractères et espaces. D'ailleurs pour gérer les éventuels espaces, j'ajoute une ligne au tableau CODAGE après la lettre U. Chaque colonne, à partir de G:G, reprend le résultat précédent et y ajoute le nouvel élément, grâce à l'opérateur de concaténation &.
Les saisies se font dans ton tableau principal, colonne D:D, et le résultat s'affiche à côté, colonne E:E, et non pas à la place de la saisie. http://cjoint.com/?hnfklM2YUx

Je sais bien que ce n'est pas exactement ta demande, mais il faut avouer qu'elle est un peu biscornue, et que c'est seulement avec une macro que les amis de CCM parviendront peut-être à te donner entière satisfaction. C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond

Pour tenter de mieux vous expliquer, j'ai mis sur le lien la feuille excel que j'ai déjà commencé à remplir A LA MAIN.

http://cjoint.com/?hnnKaGIYlq

Merci d'avance

Aztek

Merci raymond :)
mais c'est à se demander si la personne à l'origine de ce post prend la peine de regarder vraiment les réponses...
Bonne journée

Excellent eric, ça fonctionne parfaitement ! merci bcp

Bonjour tous,
Effectivement par formules c'est nickel, sauf que si c'est un classeur employé un peu comme un dictionnaire ou similaire il risque d'y avoir des milliers de lignes.
J'ai tester avec 1800 lignes et le fichier fair plus d'un méga, le même classeur avec un formule en VBA fait 170K
En VBA ont peu traiter en même temps les autres paramètres, comme l'intérieur par exemple pour répondre à la question de just1xpa2 et avec qelques lignes de codes supplémentaires tout les param souhaiter.

Un petit exemple en VBA...
Il permet de réactualiser l'ensemble du fichier, de faire du traitement instantané sans devoir copier de formule, de colorer les cellules si souhaiter.
http://cjoint.com/?hoqwlnGoeh
Bonne continuation,
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)