Changer de couleur de police

Bonjour,

Je suis nouveau sur le forum et asser novice.

Sur une carte de France j'ai un groupe de N° de Département et un groupe de Préfectures qui se masquent ou se rend visible à l'aide de checkBox.

J'aimerais savoir s'il était possible que lorsque je clique sur une région ou un département les noms des villes et les N° de code postal changent de couleur de la police et deviennent blanc.

Mon code qui agit sur CheckBox est:

'  CheckBox Département et Préfecture
Private Sub CheckBox_Num_Dept_Click()
   CheckBox_Num_Dept.Caption = IIf(CheckBox_Num_Dept, "Avec  N° de Département", "Sans  N° de Département")

    If CheckBox_Num_Dept.Value = -1 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = True
    If CheckBox_Num_Dept.Value = 0 Then ActiveSheet.Shapes("Groupe_Num_Dept").Visible = False

End Sub
Private Sub CheckBox_Prefectures_Click()
  CheckBox_Prefectures.Caption = IIf(CheckBox_Prefectures, "Avec les Préfectures", "Sans les Préfectures")

    If CheckBox_Prefectures.Value = -1 Then ActiveSheet.Shapes("Groupe_Prefectures").Visible = True
    If CheckBox_Prefectures.Value = 0 Then ActiveSheet.Shapes("Groupe_Prefectures").Visible = False

End Sub

' Code qui agit lorsque je clique dans un département 
Sub hihihi()
 Dim n As Integer
 [C2] = Right$(Mid(Application.Caller, InStr(Application.Caller, "-") + 1), 2)
' ôter toutes les couleurs
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
' ci-dessous on colorie tous les dépt concernés en bleu
Select Case [C2]
Case 8, 10, 51, 52  '(champagne-ardennes)
ActiveSheet.Shapes("FR-08").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-10").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-51").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-52").Fill.ForeColor.SchemeColor = 4

Case 54, 55, 57, 88   '(lorraine)
ActiveSheet.Shapes("FR-54").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-55").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-57").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-88").Fill.ForeColor.SchemeColor = 4

Case 2, 60, 80   '(picardie)
ActiveSheet.Shapes("FR-02").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-60").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-80").Fill.ForeColor.SchemeColor = 4

Case 59, 62  '(nord-pas-de-calais)
ActiveSheet.Shapes("FR-59").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-62").Fill.ForeColor.SchemeColor = 4

Case 75, 92, 93, 94, 77, 78, 91, 95, 175, 192, 193, 194 '(ile de france)
ActiveSheet.Shapes("FR-75").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-92").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-93").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-94").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-77").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-78").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-91").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-95").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 4

Case "2A", "2B"  '(Corse)
ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 4

End Select

On Error Resume Next
' et on colorie le dépt cliqué en vert

If [C2] = "2A" Then ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 3
If [C2] = "2B" Then ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 3
choix = Format(CStr([C2]), "00")
ActiveSheet.Shapes("FR-" & choix).Fill.ForeColor.SchemeColor = 3

Select Case [C2] ' dépt en ile de france
Case 75 '(ile de france)
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 3
Case 92 '(ile de france)
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 3
Case 93 '(ile de france)
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 3
Case 94 '(ile de france)
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 3

End Select
End Sub

Je vous remercie de votre Aide

Cordialement

Max

Bonjour

La demande on la comprend, mais pour la réalisation, je pense, que ton fichier est indispensable

Comment tester sinon ?

Re,

Avec un fichier

Cordialement

Max