supprimer feuille

[3ali]

bonjour

comment supprimer des feuilles a mon choix d'1 classeur par macro ?

je veux supprimer feuil "graph1" ;"grahe2"....."graphn"
jusqu'a n éme graph par macro

merci

 

[Pierrot93]

Re : supprimer feuille

Bonjour,

les feuilles à supprimer sont des feuilles de calculs ou bien bien des objets graphiques....

bonne journée
@+

 

[3ali]

Re : supprimer feuille

objet graphique
voir exemple

 

[Pierrot93]

Re : supprimer feuille

Re,

essaye peut être ceci :

Sub test()
Dim ws As Object
Application.DisplayAlerts = False
For Each ws In Sheets
    If TypeName(ws) = "Chart" And ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[Pierrot93]

Re : supprimer feuille

Re,

viens d'ouvrir ton fichier, ce ne sont pas des objets graphiques mais des feuilles de calculs, ceci devrait mieux convenir....

Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
    If ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[3ali]

Re : supprimer feuille

merci Pierrot93
ça ne marche pas

 

[Pierrot93]

Re : supprimer feuille

Re,

tu as vu mon post de 7h43....

 

[3ali]

Re : supprimer feuille

merci et encore bravo
ça marche bien

 

[Pierrot93]

Re : supprimer feuille

Re,

Attention tout de même, sensible à la casse, enlève la majuscule lors du test...

Like "[B][COLOR="Red"]g[/COLOR][/B]raph*"