Macro pour masquer toutes les feuilles sauf la feuille active, Excel vba

Si vous le souhaitez, vous pouvez masquer toutes les feuilles de calcul d’un classeur à l’exception de la feuille de calcul active en démarrant la macro suivante .

Sub activesfeuillesvisibles ()
Dim mafeuille As Object
  For Each mafeuille In Sheets
   If mafeuille.Name <> ActiveSheet.Name Then
      mafeuille.Visible = False
   End If
  Next mafeuille
End Sub

Commentaires

Définissez d’abord une variable objet. Ensuite, dans une boucle For Each Next, vous accédez à l’objet de collection Sheets, qui contient toutes les feuilles de tableau dans le classeur actif. Dans la boucle, vous comparez le nom de la feuille de calcul active avec celui correspondant. Feuille de calcul de l’objet de collection. Avec la propriété Visible, que vous définissez sur la valeur False, vous masquez toutes les feuilles de calcul du classeur à l’exception de la feuille de calcul active.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x