mettre en rouge les 10 premier caracteres

Le
joseph84
Bonjour tout le monde,

je voudrais mettre en rouge les
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #23507161
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
MichD
Le #23507291
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
Publicité
Poster une réponse
Anonyme