suppression de feuille

[luisf]

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:

For j = 1 To Sheets.Count
    If Sheets(j).Name Like "graphique du ?" Then Sheets(j).Delete
Next j

et

For j = 1 To Sheets.Count
    If Sheets(j).Name Like "graphique du *" Then Sheets(j).Delete

Next j

mais sa ne fonctionne pas!
quelqu'un a une idée??

merci

 

[Cousinhub]

Re : suppression de feuille

Bonsoir,
peut-être avec ce code :

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

 

[luisf]

Re : suppression de feuille

toujours le meme probleme:
erreur d'execution '9' : l'indice n'appartient pas a la selection

par contre avant d'avoir ce message d'erreur il supprime une feuille.

quand je clique sur debodage c'est la parti
If Sheets(j).Name Like "graphique du " & "*" Then
qui se met en surligner

 

[Cousinhub]

Re : suppression de feuille

Re-,
effectivement, il faut agir comme pour les lignes, c'est à dire partir du max vers le min...

essaie :

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

 

[luisf]

Re : suppression de feuille

impec sa fonctionne

merci