RAZ

[NAT]

Bonsoir a vous

jai un petit probléme je cherche par un bouton raz a mettre une feuil a zero
sur cette page jai des wordart et text box
comment les sup
ma macro ne marche pas
merci pour votre aide

ActiveSheet.Shapes('WordArt 20').Select
Selection.Delete
ActiveSheet.Shapes('Text Box 21').Select
Selection.Delete
End Sub :unsure:

 

[loic38]

bonsoir
essayes cette macro

Sub macro2()
Set myDocument = Worksheets(1) 'à adapter
myDocument.Shapes.SelectAll

Selection.Delete

 

[nat]

Set myDocument = Worksheets(1) 'à adapter
myDocument.Shapes.SelectAll

Selection.Delete
OK OUI mais ça marche pas
le nom de la feuil IMP
merci

 

[loic38]

re-bonsoir Nat
dans mon exemple la macro s'effectue sur la Feuil1 (worsksheet1)
la feuille sur laquelle doit être supprimé tes wordart se trouve en quelle position ? 1,2,3 ?

 

[nat]

wordart 32 Dans C2:C6

 

[loic38]

re bonsoir
tu ne réponds pas à ma question tu m'as donné le nom de la feuille
pas son N° dans la liste

peut tu zipper ton fichier et le déposer sur un prochain post ?
merci

 

[loic38]

re bonsoir

essayes avec cette macro

Sub macro2()
Set myDocument = Sheets('Wordart32') 'à adapter
myDocument.Shapes.SelectAll

Selection.Delete
End Sub

wordart32 étant le nom de la feuille sur laquelle se trouvent les wordart

 

[nat]

merci loic38 pour ton aide
jai fait une piéce jointe

 

[nat]

escuse lol [file name=tp.zip size=2280]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tp.zip[/file]

 

[loic38]

bonsoir nat
pas vu la pièce jointe
attention elle doit être déposée en Fichier Zippé

 

[loic38]

re- bonsoir
ci joint fichier zippé avec macro RAZ
j'espère qu'elle marchera
dans le cas on en reparle demain
[file name=tpbis.zip size=9076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tpbis.zip[/file]

 

[nat]

merci et bon dimanche

 

[loic38]

bonsoir nat
finalement cette macro est elle utilisable ?