J'ai un problème dans ce petit bout de code :
activesheet.shapes.selectall
selection.shaperange.delete
Dans la plupart des cas tout fonctionne parfaitement, mais il arrive que
dans la feuille il n'y ait aucun objet, et ça coince au niveau du Delete. Ma
question est alors : est-il possible de faire un test du genre "si
shaperange est vide, alors rien, sinon on supprime tout" ?
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes.SelectAll Selection.ShapeRange.Delete End If
Starwing
-----Message d'origine----- Bonsoir à tous,
J'ai un problème dans ce petit bout de code : activesheet.shapes.selectall selection.shaperange.delete
Dans la plupart des cas tout fonctionne parfaitement, mais il arrive que dans la feuille il n'y ait aucun objet, et ça coince au niveau du Delete. Ma question est alors : est-il possible de faire un test du genre "si shaperange est vide, alors rien, sinon on supprime tout" ?
If ActiveSheet.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Delete
End If
Starwing
-----Message d'origine-----
Bonsoir à tous,
J'ai un problème dans ce petit bout de code :
activesheet.shapes.selectall
selection.shaperange.delete
Dans la plupart des cas tout fonctionne parfaitement, mais il arrive
que dans la feuille il n'y ait aucun objet, et ça coince au niveau
du Delete. Ma question est alors : est-il possible de faire un test
du genre "si shaperange est vide, alors rien, sinon on supprime
tout" ?
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes.SelectAll Selection.ShapeRange.Delete End If
Starwing
-----Message d'origine----- Bonsoir à tous,
J'ai un problème dans ce petit bout de code : activesheet.shapes.selectall selection.shaperange.delete
Dans la plupart des cas tout fonctionne parfaitement, mais il arrive que dans la feuille il n'y ait aucun objet, et ça coince au niveau du Delete. Ma question est alors : est-il possible de faire un test du genre "si shaperange est vide, alors rien, sinon on supprime tout" ?
