Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

mettre en rouge les 10 premier caracteres

2 réponses
Avatar
joseph84
Bonjour tout le monde,

je voudrais mettre en rouge les

2 réponses

Avatar
Jacquouille
Mettez, Mettez ...
Messie, il y a un blanc entre les caractères, comment ils vont faire, les
copains?

Joseph84, l'homme aux questions pointues.


With ActiveCell.Characters(start:=1, Length:).Font
.ColorIndex = 3


Jacquouille, adepte de l'enregistreur ....

" Le vin est au repas ce que le parfum est à la femme."
"joseph84" a écrit dans le message de groupe de discussion :


Bonjour tout le monde,

je voudrais mettre en rouge les
Avatar
MichD
Bonjour,

Un petit exemple :

'----------------------------
Sub test()
Dim C As Range
With Worksheets("Feuil1")
For Each C In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
C.Characters(1, 10).Font.Color = vbRed
Next
End With
End Sub
'----------------------------


MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :


Bonjour tout le monde,

je voudrais mettre en rouge les