Salut !
J'aimerais avoir votre aide pour la rédaction du macro.
Je cherche à réaliser une macro qui supprime tous les onglets (feuille) dont le nom des ces onglets sont dans une plage de cellule.
Voici pour le moment ce que j'ai réussi à faire :
Sub suppression_onglet()
Application.ScreenUpdating = False
Dim ongletsup As Range
Set ongletsup = Range("ongletsup")
For f = 1 To ongletsup.Rows.Count
ongletsup = ongletsup.Cells(f, 1)
Sheet(ongletsup).Select
ActiveWindow.SelectedSheets.Delete
Next f
End Sub
Comme vous avez pu le voir, ma plage de cellule contenant le nom de mes onglets à supprimer se nomme ongletsup.
Merci pour votre aide.
J'aimerais avoir votre aide pour la rédaction du macro.
Je cherche à réaliser une macro qui supprime tous les onglets (feuille) dont le nom des ces onglets sont dans une plage de cellule.
Voici pour le moment ce que j'ai réussi à faire :
Sub suppression_onglet()
Application.ScreenUpdating = False
Dim ongletsup As Range
Set ongletsup = Range("ongletsup")
For f = 1 To ongletsup.Rows.Count
ongletsup = ongletsup.Cells(f, 1)
Sheet(ongletsup).Select
ActiveWindow.SelectedSheets.Delete
Next f
End Sub
Comme vous avez pu le voir, ma plage de cellule contenant le nom de mes onglets à supprimer se nomme ongletsup.
Merci pour votre aide.