Première lettre en Rouge [Résolu]

Signaler
-
 duduleray -
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 With
End Sub

3 réponses

Messages postés
10416
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 avril 2020
586
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?
Salut yg_be,

Merci de ta réponse,

Désoler il me semblai l'avoir bien fait, excuse moi.

Bon, j'ai l'erreur d'éxécution '424' Objet Requis

quand je fait ce code
For Each cel In Range("A1:H1"): cel.Value = UCase(Left(cel, 1)) & LCase(Right(cel, Len(cel) - 1)).Font.ColorIndex = 3
Next cel


ou alors toute l'écriture passe en rouge dans toutes les colonnes.


For Each cel In Range("A1:H1"): cel.Value = UCase(Left(cel, 1)) & LCase(Right(cel, Len(cel) - 1))
.Font.ColorIndex = 3
Next cel


merci pour ton aide

Cdlt Vieuxray
Messages postés
8084
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 avril 2020
1 355
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



Cordialement
Patrice

Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
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