bonjour
y a t'il un moyen d'effacer toutes les feuilles commencant par GRAPH .
merci
bonjour
y a t'il un moyen d'effacer toutes les feuilles commencant par GRAPH .
merci
bonjour
essaie ça
cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Sheets 'suppression des feuilles qui commencent par GRAPH 'If Left(sh.Name, 5) = "GRAPH" Then sh.Delete 'suppression des feuilles de graphique If sh.Type = 4 Then sh.Delete Next Application.DisplayAlerts = True
bonsoir à tous
bonsoir fred
ok merci une petite modif est sa marche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim sh Application.DisplayAlerts = False 'deactive les messages autorisation d'effacer For Each sh In Sheets 'suppression des feuilles qui commencent par GRAPH 'If Left(sh.Name, 5) = "GRAPH" Then sh.Delete 'suppression des feuilles de graphique If sh.Type = 4 Then sh.Delete Next Application.DisplayAlerts = True ''reactive les messages autorisation d'effacer
merci
![]()
Bonsoir
Fred le type de choix réalisé =4 indique à VBA que la feuille est une feuille graphique et non une feuille de calcul?
bonsoir,
j'avais bien lu la demande
et ai proposé deux lignes de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 'suppression des feuilles qui commencent par GRAPH If Left(sh.Name, 5) = "GRAPH" Then sh.Delete
ou@+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 'suppression des feuilles de graphique If sh.Type = 4 Then sh.Delete
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager