Bonjour à tous
Je me suis basé sur la file : Mettre en gras après ":" Excel 2007
J'ai appliqué la macro de Patricktoulon en #12 voir ci-dessous 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.
Sub test()
BoldanicolaroitalicofontAnzator [A:G], True, True, , "algerian"
End Sub
Sub BoldanicolaroitalicofontAnzator(plage As Range, _
Optional gras As Boolean = False, _
Optional italico As Boolean = False, _
Optional couleur As Double = vbRed, _
Optional FontN = "calibri")
Dim i&, j&, chrStart&
Set plage = plage.Resize(plage.Parent.UsedRange.Cells.Count)
Application.ScreenUpdating = False
For Each cel In plage.Cells
With cel
chrStart = InStr(1, .Text, ":")
If chrStart > 0 Then
With .Characters(chrStart + 1, 99)
.Font.Bold = gras
.Font.Italic = italico
.Font.Color = couleur
.Font.Name = FontN
'etc....
End With
End If
End With
Next
End Sub
Je me suis basé sur la file : Mettre en gras après ":" Excel 2007
J'ai appliqué la macro de Patricktoulon en #12 voir ci-dessous 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.
Sub test()
BoldanicolaroitalicofontAnzator [A:G], True, True, , "algerian"
End Sub
Sub BoldanicolaroitalicofontAnzator(plage As Range, _
Optional gras As Boolean = False, _
Optional italico As Boolean = False, _
Optional couleur As Double = vbRed, _
Optional FontN = "calibri")
Dim i&, j&, chrStart&
Set plage = plage.Resize(plage.Parent.UsedRange.Cells.Count)
Application.ScreenUpdating = False
For Each cel In plage.Cells
With cel
chrStart = InStr(1, .Text, ":")
If chrStart > 0 Then
With .Characters(chrStart + 1, 99)
.Font.Bold = gras
.Font.Italic = italico
.Font.Color = couleur
.Font.Name = FontN
'etc....
End With
End If
End With
Next
End Sub