XL 2016 Mettre en gras après ":", "/" et "$"

[Collins]

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

 

[pierrejean]

Bonjour Collins
A tester:

Sub test(coldep, colfin, car, couleur)
For m = coldep To colfin
  For n = 1 To Cells(Rows.Count, m).End(xlUp).Row
      If InStr(Cells(n, m), car) <> 0 Then
          debut = InStr(Cells(n, m), car) + 1
          fin = Len(Cells(n, m))
         With Cells(n, m).Characters(Start:=debut, Length:=fin).Font
            .ColorIndex = couleur
         End With
      End If
  Next
Next
End Sub
Sub modifie()
Call test(1, 2, ":", 3)
Call test(3, 4, "/", 5)
Call test(5, 6, "$", 4)
End Sub

dans un module
et lance la sub modifie

 

[Collins]

Super PierreJean, ça marche à merveille.
Je te remercie beaucoup.

Pensant que çà peut m'arriver
Que faudrait il changer si j'avais par exemple les 3 écrits , / et $) dans les colonnes A et B par exemple.
Donc toujours avec leur couleur différente (rouge, bleu et vert comme précédemment).

 

[Collins]

J'ai écrit : avec la virgule ça m'a effectivement fait un smiley.
Lire :

 

[pierrejean]

Pour a et b il faudrait

call test(1,2,":",3)
call test(1,2,"/",5)
call test(1,2,"$",4)

Est-ce-que tu comprends ?

 

[Collins]

D'accord, bien compris.
Ça parait simple mais encore fallait il y penser.
Merci encore et bonne journée.