Première lettre en Rouge

Résolu

duduleray -
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:

Première lettre en Rouge
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Clavier iphone chiffre et lettre - Guide
Chiffre en lettre - Télécharger - Outils professionnels
Caractere speciaux lettre - Guide
Changer lettre disque dur - Guide

3 réponses

Réponse 1 / 3

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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?

duduleray

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

Réponse 2 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Réponse 3 / 3

duduleray

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

Discussions similaires

PIX

Réglage télécommande Freebox pop

Freeplugs reste au rouge

Formule Excel pour afficher les mois (chiffres) en lettre

Votre réponse

Discussions similaires