Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 :
b974af51-066b-43aa-9950-d11f3a173f5b@k6g2000yqc.googlegroups.com...
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
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
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 :
b974af51-066b-43aa-9950-d11f3a173f5b@k6g2000yqc.googlegroups.com...
'---------------------------- 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 :
