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,
 

bambi

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

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
 

Fichiers joints

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


Haut Bas