Bonjour,

J'ai un problème pour colorer les images groupées des départements à 3 chiffres :

Cà bug sur la guadeloupe seulement, mais j'ai une configuration similaire sur la 988 circo 1, qui fonctionne.
Nom : 1.png Affichages : 58 Taille : 10,1 Ko
ou çà colore l'image non groupée
Nom : 2.png Affichages : 52 Taille : 11,0 Ko
Mais pas cette image, qui comporte d'autres formes (iles)
Nom : 3.png Affichages : 53 Taille : 11,2 Ko

J'ai essayé de mettre du code pour les images groupées,
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
    ElseIf Me.nomVot.Value = "Vote 2" Then
        ws2.Range("B3").Value = tb1.Range(1, 4).Value 'affichage nom du vote
   '     shGpe() = Array("Dpt971Cir2,Dpt971Cir4") ', "Dpt976Cir2", "Dpt986Cir1", "Dpt986Cir2", "Dpt986Cir3", "Dpt988Cir1", "Dpt988Cir2")
    '    For i = 0 To UBound(shGpe)
     '       If ws2.Shapes(Application.Caller).ParentGroup.Name = shGpe(i) Then
      '           Set DCsh = ws2.Shapes(Application.Caller).ParentGroup
       '          dp = Mid(DCsh.Name, 4, 3)
        '         cr = Mid(DCsh.Name, 10)
         '        DCsh.Name = "Dpt" & dp & "Cir" & cr
          '       For j = 1 To ws2.Shapes.Count
           '         If tb1.DataBodyRange(i, 4).Value = "Abstention" Then
            '           ws2.Shapes(j).Fill.ForeColor.SchemeColor = 19 'vert marron
             '       ElseIf tb1.DataBodyRange(i, 4).Value = "Pour" Then
              '         ws2.Shapes(j).Fill.ForeColor.SchemeColor = 11 'vert clair
               '     ElseIf tb1.DataBodyRange(i, 4).Value = "Contre" Then
                '      ws2.Shapes(j).Fill.ForeColor.SchemeColor = 10 'rouge
                 '   End If
     '           Next j
      '      End If
       ' Next i
        For i = 1 To tb1.ListRows.Count
            ShapeName = "Dpt" & CSng(tb1.DataBodyRange(i, 1).Value) & "Cir" & CSng(tb1.DataBodyRange(i, 2).Value)
                If tb1.DataBodyRange(i, 4).Value = "Abstention" Then
                   ws2.Shapes(ShapeName).Fill.ForeColor.SchemeColor = 19 'vert marron
                ElseIf tb1.DataBodyRange(i, 4).Value = "Pour" Then
                   ws2.Shapes(ShapeName).Fill.ForeColor.SchemeColor = 11 'vert clair
                ElseIf tb1.DataBodyRange(i, 4).Value = "Contre" Then
                   ws2.Shapes(ShapeName).Fill.ForeColor.SchemeColor = 10 'rouge
                End If
        Next i
mais çà bug
Nom : 4.png Affichages : 54 Taille : 47,2 Ko

Pièce jointe 656801
Cà fonctionne sur le fichier, mais il est partiel.
(clic droit dans le fichier, onglet votes, vote 2)
Merci de votre aide