Mettre la 1ère lettre d'un mot en gras et en rouge pour excel 2010

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Rafi123

XLDnaute Nouveau
Bonjour,
J'aimerai mettre la 1ères lettre d'un mot en gras et en rouge d'une colonne entière dans un tableau excel 2010. Les mots sont de tailles différentes. J'ai lu une discussion de 2009 sur le sujet mais je n'arrive pas à adapter les programmes à excel 2010.
Auriez-vous svp des solutions adaptées pour excel 2010?

Merci,
 
Bonsoir @Rafi123 et bienvenue sur XLD 🙂,

Un fichier joint aurait été le bienvenu.

Voir le code suivant :
VB:
Option Explicit

Const MaColonne = "A"
Const Mafeuille = "Test"

Sub PremLettre()
Dim xcell
  Application.ScreenUpdating = False
  With Sheets(Mafeuille)
    For Each xcell In Intersect(.Range(MaColonne & ":" & MaColonne), .UsedRange)
        With xcell.Characters(Start:=1, Length:=1).Font
          .FontStyle = "Gras"
          .Color = RGB(255, 0, 0)
        End With
    Next xcell
  End With
End Sub
 

Pièces jointes

Dernière édition:
Merci pour vos réponses,
Je suis une néophyte! Je ne sais pas comment mettre un fichier en exemple.
J'ai essayé de mettre le code de ma pomme dans ma feuille excel, j'ai le message suivant:
"erreur d’exécution '9': l'indice n'appartient pas à la sélection."
Je pense ne pas savoir comment intégrer le code à ma feuille de classeur.
 
Re,

Attention! Au début du code vous avez deux constantes MaColonne et Mafeuille.
Vous devez modifier la valeur de ces deux constantes en fonction de votre propre fichier.
  • MaFeuille doit contenir le nom de votre feuille où se trouve la colonne à modifier
  • MaColonne doit contenir les lettres référençant la colonne sur laquelle agir
Mon code va agir sur la colonne A de la feuille Test. Avant de lancer la macro, adaptez les constantes en fonction de votre fichier réel.

Pour joindre un fichier à votre message, éditez votre message
  • puis cliquez sur le bouton plus d'option...
  • puis cliquez sur le bouton "Téléverser un fichier..."
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour