Autres Mettre en gras après ":" Excel 2007

  • Initiateur de la discussion Initiateur de la discussion kkamadou
  • Date de début Date de début

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 !

kkamadou

XLDnaute Junior
Bonour,
J'ai un grand souci
je veux mettre en gras ceci
Sheets("Feuil5").Range("A8").Value = "Date d'adhésion :" & " " & Cell.Offset(0, 1)
Sheets("Feuil5").Range("A8").Characters(Start:=17, Length:=30).Font.Bold = True
le code ci-dessus marche mais je veux un code qui pourra identifier les ":" puis mettre en
gras le texte qui se trouve à droite des ":" c'est-à-dire celui provenant de Cell.Offset(0, 1)
afin de faire une boucle pour mettre en gras tous les textes aprés les ":"
car je suis obligé de recopier autant de fois la seconde ligne de code que la première ligne de code.
merci d'avance
 

Pièces jointes

Solution
Re

Test OK sur mon PC
VB:
Sub BoldMeUpBeforeI_Go_Go()
Dim plg As Range, c As Range, chrStart&
Set plg = Range("A:J")
For Each c In plg.SpecialCells(xlCellTypeConstants, 2)
chrStart = InStr(1, c.Text, ":")
If chrStart > 0 Then
c.Characters(chrStart + 1, 99).Font.Bold = True
End If
Next
End Sub
EDITION1: Ah je suis repassé trop tard
(Mais moi, j'ai agi, pardon A:J 😉)
(en clair dans le texte, je veux dire 😉)
EDITION2: Je viens de voir que c'était AG
J'étais un peu AG, pardon âgé quand j'ai agi 😉
Vous adapterez en conséquence en remplaçant A:J par A:G
Bonjour à tous

Je rouvre cette file pour avoir un complément.
J'ai appliqué la macro de Patricktoulon en #12 qui me va bien sur un de mes fichiers mais serait il possible de me modifier cette macro car je voudrai qu'en :
Colonne A et B, après : les écritures soient en rouge.
Colonne C et D après / les écritures soient en bleu.
Colonne E et F après $ les écritures soient en vert.
 
- 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

Réponses
4
Affichages
671
Réponses
7
Affichages
903
Retour