Liste jours de la semaine

Private Sub CommandButton1_Click()
Dim i As Byte
Range("B1").Font.ColorIndex = 0
For i = 1 To 7
[B1].Characters(i, 1).Font.ColorIndex = IIf((Controls("CheckBox" & i)), 3, 0)
Next
End Sub

Sub x_joursemaines()
Set Dicocb = CreateObject("Scripting.Dictionary")
Set Dicocc = CreateObject("Scripting.Dictionary")
Set Dicocd = CreateObject("Scripting.Dictionary")

cb = Range("b4", [B65000].End(xlUp)).Value
cc = Range("c4", [c65000].End(xlUp)).Value
cd = Range("d4", [d65000].End(xlUp)).Value

For Each c In cb
Dicocb(c) = UCase(Left(c, 1))
Next c

For Each c In cc
Dicocc(c) = UCase(Left(c, 1))
Next c

For Each c In cd
Dicocd(c) = UCase(Left(c, 1))
Next c

[B1] = Replace(Join(Dicocb.items), " ", "")
[C1] = Replace(Join(Dicocc.items), " ", "")
[D1] = Replace(Join(Dicocd.items), " ", "")
[COLOR=SeaGreen]'inspiré et adapté de la syntaxe de JB[/COLOR]
End Sub