Discussion :

[maxval18]

Bonjour,

Je recherche un code que si je coche mon CheckBox en cliquant sur une ville "Charpe" j'ouvre l'onglet qui correspond

Je vous remercie d'avance de votre aide

Cordialement

Max

[Bear the french]

Bonsoir Max,

Essaies d'affecter la macro ci-dessous à chacune des cartes de tes 4 départements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub clic_sur_selection()
 
 Dim Pref As String
 Dim tabldep() As Variant
 Dim i As Integer
 
    [AD23] = Right$(Mid(Application.Caller, InStr(Application.Caller, "-") + 1), 2)
 
    'je repasse en bleu tous les départements
    tabldep = Array("FR-22", "FR-29", "FR-35", "FR-56")
    For i = 0 To UBound(tabldep)
        ActiveSheet.Shapes(tabldep(i)).Fill.ForeColor.SchemeColor = 4
    Next
 
    'et on colorie le dépt cliqué en vert
    ActiveSheet.Shapes("FR-" & Worksheets("France").Range("AD23").Value).Fill.ForeColor.SchemeColor = 3
 
    'si la CheckBox1 est cochée, on ouvre l'onglet de la ville concernée
    If Worksheets("France").CheckBox1 = True Then
        Select Case Worksheets("France").Range("AD23").Value
        Case 22: Worksheets("St Brieuc").Activate
        Case 29: Worksheets("Quimper").Activate
        Case 35: Worksheets("Rennes").Activate
        Case 56: Worksheets("Vannes").Activate
        End Select
    End If
 
End Sub

ça doit fonctionner.

Bertrand

[maxval18]

Bonjour Bertrand

Sa fonctionne nickel en plus avec les commentaires je te remercie beaucoup de ton aide.

Maintenant reste a voir avec toute la carte car il y a 98 départements a mettre en place !

J'aimerais trouvé un code pour masquer les villes parce que 98 onglet sa fait beaucoup et qui s'ouvre que lorsque je clic dessus la ville correspondante.
ex: si je clic sur Nice l'onglet de Nice s'ouvre mais si après je clic sur Lyon l'onglet de Nice se ferme et l'onglet de Lyon s'ouvre un petit comme sa !

Bonne journée et merci encore

Max

Re,

J'ai rajouté 6 départements il ne devrais pas avoir trop de problème ou peut être juste un! au niveau des couleurs je m'explique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub clic_sur_selection()
 
 Dim Pref As String
 Dim tabldep() As Variant
 Dim i As Integer
 
    [AD23] = Right$(Mid(Application.Caller, InStr(Application.Caller, "-") + 1), 2)
 
    'je repasse en bleu tous les départements
    tabldep = Array("FR-22", "FR-29", "FR-35", "FR-56", "FR-50", "FR-14", "FR-61", "FR-53", "FR-49", "FR-85", "FR-44")
    For i = 0 To UBound(tabldep)
        ActiveSheet.Shapes(tabldep(i)).Fill.ForeColor.SchemeColor = 4
    Next
 
    'et on colorie le dépt cliqué en vert
    ActiveSheet.Shapes("FR-" & Worksheets("France").Range("AD23").Value).Fill.ForeColor.SchemeColor = 3
 
    'si la CheckBox1 est cochée, on ouvre l'onglet de la ville concernée
    If Worksheets("France").CheckBox1 = True Then
        Select Case Worksheets("France").Range("AD23").Value
        Case 22: Worksheets("St Brieuc").Activate
        Case 29: Worksheets("Quimper").Activate
        Case 35: Worksheets("Rennes").Activate
        Case 56: Worksheets("Vannes").Activate
        Case 50: Worksheets("Saint Lô").Activate
        Case 14: Worksheets("Caen").Activate
        Case 61: Worksheets("Alençon").Activate
        Case 53: Worksheets("Laval").Activate
        Case 49: Worksheets("Angres").Activate
        Case 85: Worksheets("LaRoche sur Yon").Activate
        Case 44: Worksheets("Nantes").Activate
 
        End Select
    End If
 
End Sub

Lorsque je clic sur un département il devient vert et la région devient bleu et le reste des département doit être Blanc ?

@+

Max