Bonjour à tous,
J'ai créé une macro qui me permet de réaliser des devis. Quand le fichier devient trop lourd et suivant l'ordinateur sur lequel j'utilise ce fichier la mémoire vive devient insuffisante et bloque ma macro. Pour rétablir la situation je dois supprimer manuellement des feuilles.
J'aimerai inscrire dans ma macro une ligne de code qui limiterai automatiquement le nombre de feuilles en informant l'utilisateur que le nombre maximum de feuilles que j'aurai prédéfini est atteint cela éviterai d'aller jusqu'au plantage.
Le code ci-dessous à adapter (pour la quantité d'onglets) et à placer dans la composant ThisWorkbook :
Code:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
If Sheets.Count > 5 Then
MsgBox "La quantité maximale d'onglet est atteinte !"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub