Discussion :

[JukeBoX]

Je bloque juste sur un petit détail avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Copie()
Set ma = Range("C1").MergeArea
If ma.Address = "$C$1:$D$3" Then
ma.Value = Range("H1").Value & Chr(13) & Chr(10) & Range("H2").Value & Chr(13) & Chr(10) & Range("H3").Value
End If
End Sub

Le code fonctionne très bien mais j'aimerai juste que seulement le texte Range("H1").Value soit en rouge.
Avez-vous une idée ?

[ARTURO83]

Bonjour,

Ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Set ma = Range("C1").MergeArea
    If ma.Address = "$C$1:$D$3" Then
        NbCarH1 = Len(Range("H1").Value)
        ma.Value = Range("H1").Value & Chr(13) & Chr(10) & Range("H2").Value & Chr(13) & Chr(10) & Range("H3").Value
        Range(ma.Address).Characters(Start:=1, Length:=NbCarH1).Font.ColorIndex = 3
    End If

Cdlt

[JukeBoX]

Salut ARTURO

Whaou ça c'est de l'efficacité
A peine posté déjà résolu

Merci beaucoup c'est top

Passe une bonne journée !

[JukeBoX]

Ah juste pour info je viens de m'apercevoir que si l'on relance la macro une deuxième fois tout le texte se met en rouge... c'est normal ?

[ARTURO83]

Il suffit de passer le contenu de C13 en noir juste avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Set ma = Range("C1").MergeArea
    If ma.Address = "$C$1:$D$3" Then
        Range(ma.Address).Font.Color = 1
        NbCarH1 = Len(Range("H1").Value)
        ma.Value = Range("H1").Value & Chr(13) & Chr(10) & Range("H2").Value & Chr(13) & Chr(10) & Range("H3").Value
        Range(ma.Address).Characters(Start:=1, Length:=NbCarH1).Font.ColorIndex = 3
    End If

Cdlt

[JukeBoX]

Super ! Merci encore ARTURO pour ton aide