Bonjour,

je dispose d'une carte et je dois faire un traitement à chaque fois que je clique sur un pays. Malheureusement la macro que j'ai fait ne marche pas et j'obtiens l'erreur suivante

"Run-time error '1004':

Application-defined or object-defined error"
je ne comprends absolument d'ou viens l'erreur je me suis aidé pourtant de l'enregistreur de macro

voilà le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AffecterMacro()
Dim loShape As Shape ' Forme
Dim Carte As Excel.Worksheet ' Feuille
Set Carte = ThisWorkbook.Sheets("Afrique - Carte ")
For Each loShape In Carte.Shapes("Carte").GroupItems
    loShape.OnAction = "AffecterValeur(" & loShape.Name & ")"
Next
End Sub
 
Sub AffecterValeur(Country As String)
Dim Carte As Excel.Worksheet ' Feuille
Set Carte = ThisWorkbook.Sheets("Afrique - Carte ")
Carte.Range("P4").Value = Country
End Sub
Merci d'avance pour votre aide