Mettre le texte en Arial et taille 14

[apdf1]

Bonjour

J'aimerai touvé le code en VBA pour mettre le texte de la cellule "G9" en Arial et taille 14

Ci-joint exemple

Merci d'avance

Cordialement

Max

 

[tototiti2008]

Re : Mettre le texte en Arial et taille 14

Bonjour Max,

à ajouter avant le End With

        .Font.Name = "Arial"
        .Font.Size = 18

 

[JNP]

Re : Mettre le texte en Arial et taille 14

Bonjour le fil 🙂,
Tu sais qu'il existe un enregistreur de macro qui t'aurait donné la bonne syntaxe 🙄 ?
Ton Characters ne sert à rien, il sert à ne modifier que certains caractères dans la cellule 😛...
D'où j'aurais écrit

With Range("G9") '.
    With .Font
        .Bold = True ' texte en gras
        .Name = "Arial"
        .Size = 14
    End With
    .Value = DateSerial(Year(Date), Month(Date), -1) ' -1 = date du 1er du mois moins 1 mois
    .NumberFormat = "mmm yyyy"
End With

Amitiés à TotoTiti et Philippe 😉.
Bonne journée 😎

 

[phlaurent55]

Re : Mettre le texte en Arial et taille 14

Bonjour max,

avec ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
ActiveCell.Font.Size = 18
ActiveCell.Font.Name = "Arial"
End If
End Sub

voir fichier joint

à+
Philippe

Edit: Bonjour Jean-Noël, tototiti

 

[apdf1]

Re : Mettre le texte en Arial et taille 14

Re

Je vous remercie de votre réponse

Bonne journée

Max