Discussion :

[lcoulon]

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

[jurassic pork]

Hello,
ows.rng ?

Code :

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

1
2
3
4
5
6
7
    Set rng =  ows.Cells(xRowIndex, xColIndex)
    For Each s In oWs.Shapes
            If Not Intersect(s.TopLeftCell, rng) Is Nothing Then
                s.Delete
                Exit For
            End If
    Next s

[lcoulon]

C'est vu, merci pour la correction.