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

[Rafi123]

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,

 

[bambi]

Bonjour Rafi123

Si tu parles de ce sujet, les solutions données fonctionnent chez moi avec Excel 2016
Donc elles devraient, je pense, fonctionner avec Excel 2010
Tu devrais mettre un fichier en exemple, cela permettra de voir ce que tu veux exactement

 

[mapomme]

Bonsoir @Rafi123 et bienvenue sur XLD 🙂,

Un fichier joint aurait été le bienvenu.

Voir le code suivant :

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

 

[Rafi123]

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.

 

[mapomme]

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..."