Rechercher/remplacer

[Danilo]

Bonjour,
C'est la première fois que je m'inscrit sur un forum parlant de logiciel comme excel.

Je travaille actuellement sur excel 2003 et j'ai un petit problème à régler.

Je voudrais remplacer une couleur d'un caractère, dans une cellule contenant plusieurs caractères, par une autre couleur pour ce même caractère, sans modifier la couleur des autres caractères contenus dans la même cellule.

Me suis je bien expliqué? Si oui, je continu en précisant que je veux le faire sur toutes mes cellules contenant ce dernier!

Y a t'il une solution?

Merci

 

[Kobaya]

Re : Rechercher/remplacer

bonjour danilo,

Voici la commande nécessaire. A toi de la manipuler à ta guise.
Et bienvenue sur ce magnifique forum 🙂.

Sub Couleur()
    ' mettre en rouge 2 caractères à partir du 5e caractère
    ' de la chaîne contenue dans la cellule active
    ActiveCell.Characters(5, 2).Font.Color = RGB(255, 0, 0)
End Sub

 

[Kobaya]

Re : Rechercher/remplacer

allez ! encore un petit coup de pouce :

Sub Couleur()
    Dim rngPlage    As Range
    Dim C           As Range
    Dim strCar      As String
    Dim intPos      As Integer
    
    strCar = InputBox("Entrer le caractère à colorer", "Caractère")
    
    If strCar <> "" Then
        ' définir la plage de cellules avec du contenu
        Set rngPlage = Range("A1:" & Cells.SpecialCells(xlCellTypeLastCell).Address).Cells
        
        ' parcourir chaque cellule de cette plage
        For Each C In rngPlage.Cells
            ' identifier la position de strCar dans la chaîne
            intPos = InStr(1, C.Value, strCar)
            If intPos Then
                ' si le caractère a été trouvé, le mettre en rouge 
                C.Characters(intPos, 1).Font.Color = RGB(255, 0, 0)
            End If
        Next
        
        ' libérer la mémoire des variables objet
        Set rngPlage = Nothing: Set C = Nothing
    End If
End Sub

A +,😀

 

[Excel-lent]

Re : Rechercher/remplacer

Slt Danilo,

Bienvenu à toi

 

[Danilo]

Re : Rechercher/remplacer

merci
c'est parfait