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?
L'imagination est plus importante que le savoir.... A . Einstein. :pastaper:
https://www.developpez.net/forums/blogs/179588-cb_60/
Merci de cliquer sur :resolu:pour clore cette discussion.
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
Partager