Première lettre en Rouge

Résolu/Fermé
duduleray - 14 mars 2020 à 12:32
 duduleray - 14 mars 2020 à 16:37
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

A voir également:

3 réponses

yg_be Messages postés 23476 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 février 2025 Ambassadeur 1 568
Modifié le 14 mars 2020 à 12:37
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?
1
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
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 14 mars 2020 à 15:44
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



1
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
0