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

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,
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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

  • Rafi123- Mise en forme texte- v1.xlsm
    19.4 KB · Affichages: 26
Dernière édition:

Rafi123

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25