Discussion :

[huître]

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

[Marc-L]

Bonjour,

et quelle ligne déclenche l'erreur ?

[huître]

Salut,

la ligne 6 :

Code :

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

loShape.OnAction = "AffecterValeur(" & loShape.Name & ")"

[Marc-L]

Effectivement, il y a une erreur dans la déclaration de la propriété OnAction à cause des parenthèses !
Qui plus est, il n'est pas possible de passer un paramètre … Voir post #7 !

Contournement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AffecterMacro()
         Dim loShape As Shape
    For Each loShape In ThisWorkbook.Worksheets("Afrique - Carte ").Shapes("Carte").GroupItems
             loShape.OnAction = "AffecterValeur"
    Next
End Sub
 
Sub AffecterValeur()
    V = Application.Caller
    If Not IsError(V) Then ThisWorkbook.Worksheets("Afrique - Carte ").[P4].Value = V
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[huître]

merci pour l'aide mais un pb persiste encore

la fonction AffecterValeur marche bien en revanche j' obtiens tjrs une erreur pour la fonction AffecterMacro

Code :

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

1
2
3
4
5
6
Sub AffecterMacro()
         Dim loShape As Shape
    For Each loShape In ThisWorkbook.Worksheets("Afrique - Carte ").Shapes("Carte").GroupItems
             loShape.OnAction = "AffecterValeur"
    Next
End Sub

j'ai une tjrs la mm erreur

"Run-time error '1004':

Application-defined or object-defined error" qui porte sur cette ligne

Code :

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

 loShape.OnAction = "AffecterValeur"

[Marc-L]

J'ai testé rapidement sur des objets Shape individuels, non groupés, peut-être en est-ce la raison …

Évidemment si la feuille est protégée …

[patricktoulon]

Bonjour
peut être comme ceci:

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
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

Au plaisir