Formes groupées et non groupées à gérer

Bonjour à tous,

Je fais une carte de France avec des shapes pour les circonscriptions.

Quand une circonscription fait un contour, je distingue les départements et circonscriptions avec la forme non groupée:

If IsNumeric(Mid(Application.Caller, 4, 2)) Then

dp = Mid(Application.Caller, 4, 2) 'département 

cr = Mid(Application.Caller, 9) 'circonscription 

End if

Mais quand j'arrive aux iles de l'outre mer, je dois grouper 3 îles avec 3 shapes pour avoir une circonscription.

Public ws2 As Worksheet

Public Sub principale()

Set ws2 = Sheets("France")

Set DCsh = ws2.shapes(Application.Caller).ParentGroup

If IsNumeric(Mid(DCsh.Name, 4, 3)) Then

dp = Mid(DCsh.Name, 4, 3)

cr = Mid(DCsh.Name, 10)

end if

Ce code fonctionne sur l'image groupée seule.

Mon probléme est de gérer les 2 types d'images, groupées et non groupées, sur la carte dans un onglet. Il faut faire reconnaitre à excel de distinguer une image groupée d'une image non groupée.

Merci de votre aide

Bonjour Trucky93,

Actuellement ton code fonctionne par le nom du shape que tu décomposes en 2 parties pour cibler département et circonscription.

Une forme groupée est un assemblage composée de plusieurs formes mais que l'on peut cibler séparément en VBA.

Tout dépend de ce que tu recherches à faire, par exemple colorer différemment une ou plusieurs formes.

Mais je téléchargerais ton fichier après le match de rugby. Si tu n'as pas inscris plus d'explications dans ton fichier, poste les dans un prochain message.

Bonjour Xcellus,

Je voudrais colorer aussi mais d'abord avoir des informations sur le clic d'une shape.

Le fichier actualisé.

A nouveau,

Voir la solution prise en note sur ta feuille.

Si besoin de plus de renseignements fais un retour. Ou clos le sujet.

Merci Xcellus,

Balaise la solution

Bonne soirée