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.