Taille de date heure mn en VBA dans une même cellule

Bonsour® jp avec ferveur ;o))) vous nous disiez :

Dans une cellule E1 en l'occurence, je voudrais faire apparaître la
date en taille 11 et style gras et hh:mn en taille 6 style normal
Voici la partie de la macro intéressée:
d = Format(Now, "dd mm yy hh:mm")
Sheets("récap dates ccf").Range("E1").Value = d
Que faut-il ajouter?

With Sheets("récap dates ccf").Range("E1")
.Value = Format(Now, "dd mm yy hh:mm")
With .Characters(Start:=1, Length:=9).Font
.FontStyle = "Gras"
.Size = 11
.Color = vbBLUE
End With
With .Characters(Start:, Length:=5).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 6
.Color = vbRed
End With
End With end with


--
--
@+
;o)))

Merci Modeste

Je vais juste modifier les couleurs sinon tout est ok.

JP

On 19 avr, 14:08, "Modeste" <nom...@nomail.net> wrote:

Bonsour® jp  avec ferveur  ;o))) vous nous disiez :

Dans une cellule E1 en l'occurence, je voudrais faire apparaître la
date en taille 11 et style gras et hh:mn en taille 6 style normal
Voici la partie de la macro intéressée:
               d = Format(Now, "dd mm yy hh:mm")
               Sheets("récap dates ccf").Range("E1").V alue = d
Que faut-il ajouter?

With  Sheets("récap dates ccf").Range("E1")
     .Value = Format(Now, "dd mm yy hh:mm")
      With .Characters(Start:=1, Length:=9).Font
            .FontStyle = "Gras"
            .Size = 11
             .Color = vbBLUE
       End With
       With .Characters(Start:=10, Length:=5).Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 6
            .Color = vbRed
       End With
 End With end with

--
--
@+
;o)))