bonjour
je reviens vers vous concernant mon probleme de suppression de feuille car je n'arrive pas a supprimer les feuilles qui s'appelle "graphique du 'date'"
j'ai essayer avec:
Code:
For j = 1 To Sheets.Count
If Sheets(j).Name Like "graphique du ?" Then Sheets(j).Delete
Next j
et
Code:
For j = 1 To Sheets.Count
If Sheets(j).Name Like "graphique du *" Then Sheets(j).Delete
Next j
Sub sup_graph()
Application.DisplayAlerts = False
For j = 1 To Sheets.Count
If Sheets(j).Name Like "graphique du" & "*" Then Sheets(j).Delete
Next j
Application.DisplayAlerts = True
End Sub
Re-,
effectivement, il faut agir comme pour les lignes, c'est à dire partir du max vers le min...
essaie :
Code:
Sub sup_graph()
Application.DisplayAlerts = False
For j = Sheets.Count To 1 Step -1
If Sheets(j).Name Like "graphique du" & "*" Then Sheets(j).Delete
Next j
Application.DisplayAlerts = True
End Sub