Suppression automatique de feuille à l'ouverture du fichier

[Sly le globe trotter]

Bonjour à toutes et à tous,

Je suis en train de réaliser un fichier Excel avec quelques lignes de code VBA et je coince...

Je souhaite qu'à l'ouverture du fichier, les feuilles dont les cellules B1 sont vides soient automatiquement supprimées. Je pêche sur la programmation, à savoir utiliser une boucle For ou While. ça bloque au niveau des indices de ma boucle...

Je viens de faire quelques essais et à chaque suppression, une fenêtre me demande de confirmer la suppression. Peut on éviter l'apparition de cete fenêtre ?

Merci pour votre aide !
Sylvain

 

[ERIC S]

Re : Suppression automatique de feuille à l'ouverture du fichier

Bonjour

à essayer, mettre dans thisworkbook

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Range("B1") = "" Then ws.Delete
Application.DisplayAlerts = True
Next

End Sub

A+

 

[Sly le globe trotter]

Re : Suppression automatique de feuille à l'ouverture du fichier

Bonjour Eric_S,

Cette technique fonctionne du tonnerre !!! Je ne connaissais pas la fonction each, très utile !

Mille mercis !
Sylvain