Bonjour,

Je cherche a effacer une image positionnée dans une feuille et cellule donnée, j'ai écris ceci mais àa ne fonctionne pas.
J'ai l'erreur : "
Propriété ou méthode non gérée par cet objet
"

--> EffaceImage "Base", 3, 27 devrait effacer l'image de la cellule AA (colonne 27, ligne 3 ) de la feuille nommée "Base"

Pouvez vous me dire d'ou vient le probleme svp ?
Merci à vous,



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 EffaceImage(Worksheet_name As String, xRowIndex As Byte, xColIndex As Byte)
    Dim s As Shape, rng As Range
 
    Set oWs = Sheets(Worksheet_name)
    Set rng = Cells(xRowIndex, xColIndex)
 
 
    For Each s In oWs.Shapes
            If Not Intersect(s.TopLeftCell, oWs.rng) Is Nothing Then
                s.Delete
                Exit For
            End If
    Next s
 
End Sub