Changer la couleur de la police pour certaines char dans une plage de cellule
Je voudrais changer la couleur de la police pour un caractère spécifique à l'intérieur d'une plage de cellules. J'ai compris comment le faire pour une seule cellule (code ci-jointe), mais je ne peux pas comprendre comment le faire par rapport à une plage de cellules; B8: F12. Quelqu'un peut-il aider?
merci!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim FindChar As String
Dim SearchString As String
SearchString = Range("B8").Value
FindChar = Chr(182)
For i = 1 To Len(SearchString)
If Mid(SearchString, i, 1) = FindChar Then
Range("B8").Characters(i, 1).Font.Color = RGB(221, 221, 221)
End If
Next i
End Sub
Vous devez vous connecter pour publier un commentaire.
Faire un appel à
LoopAndChangeColorForThisRange
et voir si cela fonctionne, comme vous le souhaitez.