Une partie du text en couleur...

[SerGoy]

Bonjour

Voici une macro mais je voudrais que la partie en gras s'affiche en rouge.

Sub TM()
'
' TM Macro
' Macro enregistrée le 2007-05-18 par SGoyette
'

'
ActiveSheet.Shapes("Text Box 10").Select
Selection.Characters.Text = _
"Exceptionnellement, les travaux peuvent être exécutés en temps et matériel. Tarif horaire: 29,50$ / heure travaillée / homme." & chr(10) & "" & chr(10) & "Note : Lorsqu'une soumission écrite n'est pas nécessaire, il est possible"
Selection.Characters(201).Insert String:= _
" d'autoriser des travaux en temps et matériel en remplissant simplement le formulaire web au http://www.cslaval.qc.ca/ressmat/autorisation" & chr(10) & "Attention : Pour le formulaire web, votre # de bâtiment est le "
Selection.Characters(401).Insert String:="123"
With Selection.Characters(Start:=1, Length:=403).Font
.Name = "Comic Sans MS"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("E20").Select
ActiveCell.FormulaR1C1 = "(Temps Matér.)"
Range("J23").Select
End Sub

 

[myDearFriend!]

Re : Une partie du text en couleur...

Bonsoir SerGoy,


Puisque le texte semble défini et figé, tu devrais pouvoir faire comme ça :

[COLOR=NAVY]Sub[/COLOR] TM()
    [COLOR=NAVY]With[/COLOR] ActiveSheet.Shapes("Text Box 2").TextFrame
        .Characters.Text = "Exceptionnellement, les travaux peuvent être exécutés en temps et matériel. Tarif horaire: 29,50$ / heure travaillée / homme." & vbLf & "" & vbLf & "Note : Lorsqu'une soumission écrite n'est pas nécessaire, il est possible"
        .Characters(201).Insert [COLOR=NAVY]String[/COLOR]:=" d'autoriser des travaux en temps et matériel en remplissant simplement le formulaire web au http://www.cslaval.qc.ca/ressmat/autorisation" & vbLf & "Attention : Pour le formulaire web, votre # de bâtiment est le "
        .Characters(401).Insert [COLOR=NAVY]String[/COLOR]:="123"
        [COLOR=NAVY]With[/COLOR] .Characters.Font
            .Name = "Comic Sans MS"
            .FontStyle = "Gras"
            .Size = 11
            .Strikethrough = [COLOR=NAVY]False[/COLOR]
            .Superscript = [COLOR=NAVY]False[/COLOR]
            .Subscript = [COLOR=NAVY]False[/COLOR]
            .OutlineFont = [COLOR=NAVY]False[/COLOR]
            .Shadow = [COLOR=NAVY]False[/COLOR]
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        [COLOR=NAVY]End With
        [B]With[/B][/COLOR][B] .Characters(Start:=294, Length:=45).Font
            .ColorIndex = 3
        [/B][COLOR=NAVY][B]End With[/B]
    End With[/COLOR]
    Range("E20").[COLOR=NAVY]Select[/COLOR]
    ActiveCell.FormulaR1C1 = "(Temps Matér.)"
    Range("J23").[COLOR=NAVY]Select
End Sub[/COLOR]

Tu remarqueras au passage que tu n'as pas besoin de "sélectionner" la zone de texte pour pouvoir agir dessus.

Cordialement,