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

Le
jp
Bonjour,

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?

Merci de vos lumières

JP
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
Modeste
Le #5459791
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)))

jp
Le #5459681
Merci Modeste

Je vais juste modifier les couleurs sinon tout est ok.

JP

On 19 avr, 14:08, "Modeste"
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:, Length:=5).Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 6
            .Color = vbRed
       End With
 End With end with

--
--
@+
;o)))



Publicité
Poster une réponse
Anonyme