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

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

  • METTRE EN GRAS.xlsm
    49.9 KB · Affichages: 7
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

Collins

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

Discussions similaires

Statistiques des forums

Discussions
312 327
Messages
2 087 314
Membres
103 515
dernier inscrit
Cherbil12345