Supprimer des feuilles

5 réponses

Jean Bidule

23/03/2006 à 09:36

Bonjour au forum,

y-a-t-il un moyen simple de supprimer (par macro) toutes les feuilles dont
le nom commence par "r_" ?

Bien à vous
jean

5 réponses

Youky

23/03/2006 à 09:52

Salut Bidule,
voilà ta bidouillette
Youky

Sub supprime_onglet_r()
Application.DisplayAlerts = False
For k = Sheets.Count To 1 Step -1
If Left(Sheets(k).Name, 1) = "r" Then Sheets(k).Delete
Next
Application.DisplayAlerts = True
End Sub

"Jean Bidule" a écrit dans le message de news:
44225e20$0$29229$

Bonjour au forum,

y-a-t-il un moyen simple de supprimer (par macro) toutes les feuilles dont
le nom commence par "r_" ?

Bien à vous
jean

Jean Bidule

23/03/2006 à 09:57

Chouette! merci pour la bidouillette Youky

"Youky" a écrit dans le message de news:

Salut Bidule,
voilà ta bidouillette
Youky

Sub supprime_onglet_r()
Application.DisplayAlerts = False
For k = Sheets.Count To 1 Step -1
If Left(Sheets(k).Name, 1) = "r" Then Sheets(k).Delete
Next
Application.DisplayAlerts = True
End Sub

"Jean Bidule" a écrit dans le message de news:
44225e20$0$29229$
Bonjour au forum,

y-a-t-il un moyen simple de supprimer (par macro) toutes les feuilles
dont le nom commence par "r_" ?

Bien à vous
jean

JpPradier

23/03/2006 à 09:58

Bonjour Jean

For each sh in activeWorkbook.Worksheets
nom= sh.name
if left(nom,2) = "r_" then sh.Delete
next

j-p

JpPradier

23/03/2006 à 10:02

Comme l'as dit Youki, c'est mieux avec un 'Application.DisplayAlerts = False'

j-p

Jean Bidule

23/03/2006 à 10:05

Oui j-p, je l'ai integré ainsi, Merci, c'est super!

"JpPradier" a écrit dans le message
de news:

Comme l'as dit Youki, c'est mieux avec un 'Application.DisplayAlerts =
False'

j-p

Supprimer des feuilles

5 réponses

Veuillez sélectionner un problème