Discussion :

[meolimo]

Bonjour

Sur un chiffrier qui comporte un tableau (˝tabCoord˝) ($A1 :$G900) stockant des coordonnées géographique


J’ai incorporé un TCD lié à ce tableau ainsi qu’un segment sur le champ Division
J’ai également incrusté une image (carte géographique illustrant le territoire couvert) sur cette image j’ai dessiné une première formes (8)



Mon objectif est de permettre par VBA par le clique sur le formes (8) de reproduire ce que produit la sélection du secteur sur le segment (filtrer le TCD)
Je cherche comment récupérer le chiffre contenu sur la formes intégrer sur l’image
Pour interagir sur le code vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ActiveWorkbook.SlicerCaches("Segment_Secteur")
                 .SlicerItems("6").Selected = True
                 .SlicerItems("1").Selected = False
                 .SlicerItems("2").Selected = False
                 .SlicerItems("3").Selected = False
                 .SlicerItems("4").Selected = False
                 .SlicerItems("5").Selected = False
                 .SlicerItems("7").Selected = False
                 .SlicerItems("8").Selected = False
                 .SlicerItems("9").Selected = False
                 .SlicerItems("10").Selected = False
                 .SlicerItems("11").Selected = False
                 .SlicerItems("12").Selected = False
    End With

je bute sur la façon de faire ... quelqu'un aurait une idée

Merci à l'avance et bonne journée

[meolimo]

J'ai trouvé une solution qui fais bien le travail,


J'ai incorporé 12 Cases à cocher par dessus l'image aux endroits précis masquant les numéros de zones et au clique de ces cases

Code :

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

1
2
3
Sub CheckBox1_Click()
Call MaProcedure
End Sub

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Sub MaProcedure()
 
ActiveWorkbook.SlicerCaches("Segment_Secteur").ClearManualFilter
 
With ActiveWorkbook.SlicerCaches("Segment_Secteur")
    If ActiveSheet.CheckBox1.Value = True Then
        .SlicerItems("1").Selected = True
    Else
        .SlicerItems("1").Selected = False
    End If
    If ActiveSheet.CheckBox2.Value = True Then
        .SlicerItems("2").Selected = True
    Else
        .SlicerItems("2").Selected = False
    End If
    If ActiveSheet.CheckBox3.Value = True Then
        .SlicerItems("3").Selected = True
    Else
        .SlicerItems("3").Selected = False
    End If
    If ActiveSheet.CheckBox4.Value = True Then
        .SlicerItems("4").Selected = True
    Else
        .SlicerItems("4").Selected = False
    End If
    If ActiveSheet.CheckBox5.Value = True Then
        .SlicerItems("5").Selected = True
    Else
        .SlicerItems("5").Selected = False
    End If
    If ActiveSheet.CheckBox6.Value = True Then
        .SlicerItems("6").Selected = True
    Else
        .SlicerItems("6").Selected = False
    End If
    If ActiveSheet.CheckBox7.Value = True Then
        .SlicerItems("7").Selected = True
    Else
        .SlicerItems("7").Selected = False
    End If
    If ActiveSheet.CheckBox8.Value = True Then
        .SlicerItems("8").Selected = True
    Else
        .SlicerItems("8").Selected = False
    End If
    If ActiveSheet.CheckBox9.Value = True Then
        .SlicerItems("9").Selected = True
    Else
        .SlicerItems("9").Selected = False
    End If
    If ActiveSheet.CheckBox10.Value = True Then
        .SlicerItems("10").Selected = True
    Else
        .SlicerItems("10").Selected = False
    End If
    If ActiveSheet.CheckBox11.Value = True Then
        .SlicerItems("11").Selected = True
    Else
        .SlicerItems("11").Selected = False
    End If
    If ActiveSheet.CheckBox12.Value = True Then
        .SlicerItems("12").Selected = True
    Else
        .SlicerItems("12").Selected = False
    End If
 
End With
End Sub

finalement j'ai masqué le segment derrière l'image .... Bingo le tour est joué