Colorer une lettre dans une chaîne de caractères

Bonsoir,

j'ai une chaine de caractères dans une cellule ex: "maison"

Je voudrai colorer automatiquement via une macro la lettre "a" en rouge et la lettre "o" en vert.

Et cela pour une colonne de 600 mots.

Je ne sais pas comment réaliser une telle chose.

Merci d'avance

Bonjour,

Les lettres à colorier sont toujours au même endroit ??

Dans l'exemple "maison" --> "a" est en deuxième position et "o" en avant dernière position.

Amicalement

non, l emplacement de la lettre peut varier.

ex:

maison

commande

etc..

Bonjour

J'ai trouvé sur le Net un code qui fait ce que tu demandes sur la cellule sélectionnée, mais je ne sais pas imbriquer 2 boucles en VBA, c'est à dire, ajouter à ce code la boucle pour parcourir les cellules de la colonne.

Un plus douè que moi (et il y en a un paquet..) te fera surement cela.

Sub couleurCaracteres()
For i = 1 To ActiveCell.Characters.Count
With ActiveCell.Characters(Start:=i, Length:=1).Font
Select Case ActiveCell.Characters(Start:=i, Length:=1).Caption
Case "a"
.ColorIndex = 3
Case "o"
.ColorIndex = 4
End Select
End With
Next i
End Sub

Cordialement

re,

Si c'est la colonne A qui comporte les mots, le code d'Amadeus peut être celui ci-dessous :

Sub couleurCaracteres()
Dim i As Byte
Dim j As Integer
Dim col As String
col = "A"
For j = 1 To Range(col & "65536").End(xlUp).Row
    For i = 1 To Range(col & j).Characters.Count
        With Range(col & j).Characters(Start:=i, Length:=1)
            Select Case .Caption
            Case "a": .Font.ColorIndex = 3
            Case "o": .Font.ColorIndex = 4
            End Select
        End With
    Next i
Next j
End Sub

Dans le code sur la ligne COL, remplace la lettre A par la lettre de la colonne où se trouve tes mots.

Amicalement

Merci à vous deux. Cela fonctionne.

Sujet résolu