Supprimez les feuilles de calcul inutiles avec une macro: Excel VBA

FONTE ZOOM:
Sur les Options Excel déterminer combien de feuilles de calcul contiendra votre classeur. Dans la plupart des cas, mais seulement la première feuille est rempli d'informations. En utilisant une macro, vous pouvez simplement supprimer toutes les autres feuilles de calcul.

Le code suivant fait pour vous:

Sous Restblaetterloeschen
Application.DisplayAlerts = False
Bien Worksheets.Count> 1
Worksheets.Delete
Wend
Application.DisplayAlerts = True
End Sub

Avec ce programme, toutes les feuilles de calcul, supprimées à l'exception de la première feuille.

Mais attention, seulement avec la ligne "Bien Worksheets.Count> 2" ne sont pas autorisés les deux premières feuilles de calcul gauche, mais le premier et le dernier.

Vous devez ensuite modifier la ligne suivante "Worksheets.Delete"

Sans la commande "Application.DisplayAlerts = False" Come Clean dans une boucle infinie, maintenant que vous obtenez toujours un avertissement.

Ci-dessus, vous trouverez d'autres questions à Excel VBA. Il suffit de regarder propre.

VOIR AUSSI:
  1.  
  2.  
  3.  
Sans commentaires

Laisser un commentaire

Code De Sécurité