supprimer feuille

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2010

• #2

Re : supprimer feuille

Bonjour,

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

bonne journée
@+

 

Vote positif 0 Vote négatif

3

3ali

Guest

• 30 Novembre 2010

• #3

Re : supprimer feuille

objet graphique
voir exemple

 

Pièces jointes

• grapphh.zip

  12.3 KB · Affichages: 19

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2010

• #4

Re : supprimer feuille

Re,

essaye peut être ceci :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2010

• #5

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....

Code:

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

 

Vote positif 0 Vote négatif

3

3ali

Guest

• 30 Novembre 2010

• #6

Re : supprimer feuille

merci Pierrot93
ça ne marche pas

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2010

• #7

Re : supprimer feuille

Re,

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

 

Vote positif 0 Vote négatif

3

3ali

Guest

• 30 Novembre 2010

• #8

Re : supprimer feuille

merci et encore bravo
ça marche bien

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2010

• #9

Re : supprimer feuille

Re,

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

Code:

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

 

Vote positif 0 Vote négatif