Première lettre en Rouge Résolu

Question

Bonjour a tous, forum bonjour

Sous windows 10 et Excel 2007 Fr

Configuration: Windows / Edge 18.18362

J'ai 8 colonnes dont chacune comporte un titre.

J'ai fait le code ci dessous pour mettre la première lettre de chaque mot et de chaque colonne en rouge et je ne parviens pas pour la couleur.

Merci a vous et de votre aide, bonne après midi.

Cdlt Vieuxray

Sub EssaiCouleur()       Dim cel With Worksheets("Feuil1").Range("A1:H1")             For Each cel In Range("A1:H1"): cel.Value = UCase(Left(cel, 1)) & LCase(Right(cel, Len(cel) - 1))                .Font.ColorIndex = 3            Next cel End WithEnd Sub

yg_be · Answer

bonjour, 
peux-tu préciser "basic" quand tu partages du code vba?
"tu ne parviens pas pour la couleur": que se passe-t'il, as-tu un message d'erreur?

Patrice33740 · Answer

Bonjour,

Comme ça :
Option Explicit
Sub test()
Dim cel As Range
  For Each cel In ActiveSheet.Range("A1:H1")
    With cel
      .Value = UCase(Left(.Text, 1)) & Mid(.Text, 2)
      .Font.ColorIndex = xlAutomatic
      .Characters(Start:=1, Length:=1).Font.Color = vbRed
    End With
  Next cel
End Sub

duduleray · Answer

Salut Patrice 33740,

Merci pour la réponse et le petit code modifier, ça fonctionne
nickel et comme souhaité.

Je te remercie pour ton aide et ton savoir partagé.

Merci également a l'ami yg_be

Bon W-end a toi

Bien cordialement VieuxRay

Première lettre en Rouge

3 réponses

Discussions similaires

Newsletters