Suppression feuille en fonction cellule

[jcc]

Bonjour le forum ,

J aimerais creer la macro suivante :
j ai un classeur avec 20 feuilles : feuil1,feuil2.....
sur la feuille principale : accueil se trouve le bouton macro .
je voudrais supprimer automatiquement les feuilles en fonction de la cellule A2 de chaque feuille

exemple
feuil1 cellule A2 : pleine (avec chiffre) alors on passe a la feuil2 (mais on ne supprime pas .
feuil2 cellule A2 : vide . suppression de la feuil2 et on passe a la feuil3
ainsi de suite .

est ce possible

merci

 

[K@d]

Salut,

tu trouveras ci-dessous un petit code qui lira tout ton classeur et supprimera les feuilles inutiles. Il y a certainement plus propre mais c'est efficace...

Sub Suppr_Feuilles()

Dim i As Integer

BoucleSuppr:

'pour toutes les feuilles du classeur
For i = 1 To ThisWorkbook.Worksheets.Count

'si la cellule A2 est vide
If IsEmpty(Sheets(i).Range("A2")) Then

on sélectionne la feuille, on enlève l'alerte Excel et on la supprime
Sheets(i).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

'on retourne ensuite en haut pour éviter de sélectionner une feuille inexistante (car si on en supprime, il y en a moins qu'au départ)
GoTo BoucleSuppr

End If

Next i

End Sub

Voilà, j'espère que cela peut t'aider.
Note : si tu veux éviter de regarder ta première feuille, modifie la ligne ci-dessous comme telle :
If IsEmpty(Sheets(i).Range("A2")) and i>1 Then

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

 

[jcc]

Merci pour ta reponse ca fonctionne a merveille