Discussion :

[oscar.cesar]

bonjour
y a t'il un moyen d'effacer toutes les feuilles commencant par GRAPH .

merci

[fred65200]

bonjour

essaie ça

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

cordialement

[oscar.cesar]

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

[cb_60]

Bonsoir
Fred le type de choix réalisé =4 indique à VBA que la feuille est une feuille graphique et non une feuille de calcul?

[fred65200]

bonsoir,

j'avais bien lu la demande

bonjour
y a t'il un moyen d'effacer toutes les feuilles commencant par GRAPH .

merci

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

@+