Application.ActiveSheet, propriété (Excel)

  • Article

Cette propriété renvoie un objet qui représente la feuille active (feuille au premier plan) dans le classeur actif ou dans la fenêtre ou le classeur spécifié(e). Renvoie Nothing si aucune feuille n’est active.

Syntaxe

expression.ActiveSheet

expressionUne variable qui représente un objetApplication.

Remarques

Si vous ne spécifiez pas un qualificateur d'objet, cette propriété renvoie la feuille active dans le classeur actif.

Dans le cas où un classeur apparaît dans plusieurs fenêtres, la propriété ActiveSheet peut être différente d’une fenêtre à l’autre.

Exemple

Cet exemple montre comment afficher le nom de la feuille active.

MsgBox "The name of the active sheet is " & ActiveSheet.Name

Cet exemple permet de créer un aperçu avant impression de la feuille active dont le numéro de page est situé en haut de la colonne B de chaque page.

Sub PrintSheets()

   'Set up your variables.
   Dim iRow As Integer, iRowL As Integer, iPage As Integer
   'Find the last row that contains data.
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   
   'Define the print area as the range containing all the data in the first two columns of the current worksheet.
   ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address
   
   'Select all the rows containing data.
   Rows(iRowL).Select
   
   'display the automatic page breaks
   ActiveSheet.DisplayAutomaticPageBreaks = True
   Range("B1").Value = "Page 1"
   
   'After each page break, go to the next cell in column B and write out the page number.
   For iPage = 1 To ActiveSheet.HPageBreaks.Count
      ActiveSheet.HPageBreaks(iPage) _
         .Location.Offset(0, 1).Value = "Page " & iPage + 1
   Next iPage
   
   'Show the print preview, and afterwards remove the page numbers from column B.
   ActiveSheet.PrintPreview
   Columns("B").ClearContents
   Range("A1").Select
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.