Supprimer toutes les pages de mon classeur excel commencant par graph [Résolu]

Signaler
Messages postés
42
Date d'inscription
mardi 1 août 2006
Statut
Membre
Dernière intervention
31 janvier 2008
-
Messages postés
42
Date d'inscription
mardi 1 août 2006
Statut
Membre
Dernière intervention
31 janvier 2008
-
Bonjour a tous,
voila j'ai un souci concernant ce script,
mon if ne fonctionne pas apparamment, je comprend pas trop pkoi

Quelqu'un voit t'il le problème?
 
Dim s As Worksheet
Dim b As String

   For Each s In Worksheets
     b = s.Name
        If Left(b, 4) = "Graph" Then
            Worksheets(b).Delete
        End If
   Next

merci pour vos réponses

2 réponses

Messages postés
42
Date d'inscription
mardi 1 août 2006
Statut
Membre
Dernière intervention
31 janvier 2008

I've got it !!!

j'ai trouvé c'est juste que excel défini les pages graphiques comme charts et non worksheets !!

voici le script permettant d'effacer tous les graphiques d'un classeur.

Dim s As Chart
Dim b As String
   For Each s In Charts
     b = s.Name
        If Left(b, 5) = "Graph" Then
            Sheets(b).Delete
        End If
   Next

voili voilou
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Salut,

Attention à la catégorie dans laquelle tu postes, un admin bienveillant déplacera ton post..
Thèmes / Visual Basic 6 / Langages dérivés / VBA

As-tu vérifier en affichant b avant d'essayer de supprimer la feuille?Je ne connais pas VBA mais peut-être faut t'il activer ou sélectionner la feuille avant de pouvoir la supprimer?