Bonjour à tous ,
j'ai une macro qui a un moment donné ajoute des feuilles au classeur. Elles sont renommées
ce que je voudrais c'est supprimer les feuilles si la cellule A 5 est vide .
J'ai un code trouvé sur le net mais qui ne marche pas pouvez vous m'aider ?
Sub supprimerFeuillesVides(Wb As Workbook)
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Wb.Worksheets
If Ws.UsedRange.Cells.Address = "$A$5" And _
IsEmpty(Ws.Range("A5")) And Ws.Shapes.Count = 0 Then
Application.DisplayAlerts = False
If Wb.Worksheets.Count > 1 Then Ws.Delete
Application.DisplayAlerts = True
End If
Next Ws
Application.ScreenUpdating = True
End Sub
j'ai une macro qui a un moment donné ajoute des feuilles au classeur. Elles sont renommées
ce que je voudrais c'est supprimer les feuilles si la cellule A 5 est vide .
J'ai un code trouvé sur le net mais qui ne marche pas pouvez vous m'aider ?
Sub supprimerFeuillesVides(Wb As Workbook)
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Wb.Worksheets
If Ws.UsedRange.Cells.Address = "$A$5" And _
IsEmpty(Ws.Range("A5")) And Ws.Shapes.Count = 0 Then
Application.DisplayAlerts = False
If Wb.Worksheets.Count > 1 Then Ws.Delete
Application.DisplayAlerts = True
End If
Next Ws
Application.ScreenUpdating = True
End Sub