Adaptation de code avec If

degap05 · 11 Février 2010

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 · 11 Février 2010

Re : Adaptation de code avec If

Bonjour Degap

essaye ainsi :

Code:

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 · 11 Février 2010

Re : Adaptation de code avec If

Merci Pierrot93,

Parfait.

Salut.

Adaptation de code avec If

degap05

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires

Adaptation de code avec If

degap05

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency