Microsoft 365 Probléme de macro qui ne s'exécute pas

[Wartdogs]

Bonjours,

Je rencontre un problème dans l'exécution d'une macro qui doit effacer une image dans une colonne. Message impossible d'exécuter la macro "feuil,coordonnée cellule, nom personne" pas disponible dans ce classeur ou désactiver. La macro se trouve dans une feuille déclarer en public et les autres en private.

Public Sub Supprimer_Signatures(Target As String, Participant As String)
If MsgBox("Etes-vous s?r" & vbLf & _
"de vouloir supprimer la signature de" & vbLf & _
Participant & " ?", vbCritical + vbOKCancel) = vbOK Then
Range(Target).ClearContents
Shapes(Application.Caller).Delete
End If
End Sub
Merci pour vos réponse
Prenez soin de vous
Cordialement

 

[sylvanu]

Bonjour Wartdogs,
Essayez de remplacer :

Shapes(Application.Caller).Delete

par

NomShape = Application.Caller
ActiveSheet.Shapes(NomShape).Delete

 

[Wartdogs]

Bonjour Wartdogs,
Essayez de remplacer :

Shapes(Application.Caller).Delete

par

NomShape = Application.Caller
ActiveSheet.Shapes(NomShape).Delete

Bonjour Silvanu,

Je te remercie pour ta réponse,

Cordialement