Adaptation de code avec If

[degap05]

Bonjour,

Pouvez-vous m'aider à adapter ce code, qui supprime Shapes(2).
L'adaptation consiste à sortir de la macro si Shapes(2) n'est pas présent sur la feuille.

Sub macro3()
With ActiveSheet
If ActiveSheet.Shapes(2).Visible = True Then
ActiveSheet.Shapes(2).Select
Selection.Cut
End If
End With
End Sub

Merci.

 

[Pierrot93]

Re : Adaptation de code avec If

Bonjour Degap

essaye ainsi :

Dim s As Shape
On Error Resume Next
Set s = ActiveSheet.Shapes(2)
If s Is Nothing Then Exit Sub
On Error GoTo 0
If s.Visible = True Then s.Cut

bon après midi
@+

 

[degap05]

Re : Adaptation de code avec If

Merci Pierrot93,

Parfait.

Salut.