Comment : répertorier par programmation toutes les feuilles de calcul dans un classeurHow to: Programmatically list all worksheets in a workbook

La classe Workbook fournit un objet Worksheets.The Workbook class provides a Worksheets object. Cet objet contient une collection de tous les objets Worksheet du classeur spécifié.This object contains a collection of all the Worksheet objects in the workbook.

S’applique à : les informations contenues dans cette rubrique s’applique au document-projets et ajouter de VSTO de niveau-dans les projets pour Excel.Applies to: The information in this topic applies to document-level projects and VSTO Add-in projects for Excel. Pour plus d’informations, consultez fonctionnalités disponibles par type d’application et de projet Office.For more information, see Features available by Office application and project type.

Pour répertorier toutes les feuilles de calcul existantes dans un classeur dans une personnalisation au niveau du documentTo list all existing worksheets in a workbook in a document-level customization

  1. Itérez au sein de la collection Worksheets et envoyez le nom de chaque feuille vers une cellule décalée par un contrôle NamedRange.Iterate through the Worksheets collection and send the name of each sheet to a cell offset from a NamedRange control.

    private void ListSheets()
    {
        int index = 0;
    
        Microsoft.Office.Tools.Excel.NamedRange NamedRange1 =
            Globals.Sheet1.Controls.AddNamedRange(
            Globals.Sheet1.Range["A1"], "NamedRange1");
    
        foreach (Excel.Worksheet displayWorksheet in Globals.ThisWorkbook.Worksheets)
        {
            NamedRange1.Offset[index, 0].Value2 = displayWorksheet.Name;
            index++;
        }
    }
    
    Private Sub ListSheets()
        Dim index As Integer = 0
    
        Dim NamedRange1 As Microsoft.Office.Tools.Excel.NamedRange = _
            Globals.Sheet1.Controls.AddNamedRange( _
            Globals.Sheet1.Range("A1"), "NamedRange1")
    
        For Each displayWorksheet As Excel.Worksheet In Globals.ThisWorkbook.Worksheets
            NamedRange1.Offset(index, 0).Value2 = displayWorksheet.Name
            index += 1
        Next displayWorksheet
    End Sub
    

Pour répertorier toutes les feuilles de calcul existantes d’un classeur dans un complément VSTOTo list all existing worksheets in a workbook in a VSTO Add-in

  1. Itérez au sein de la collection Worksheets et envoyez le nom de chaque feuille vers une cellule décalée par un objet Range.Iterate through the Worksheets collection and send the name of each sheet to a cell offset from a Range object.

    private void ListSheets()
    {
        int index = 0;
    
        Excel.Range rng = this.Application.get_Range("A1");
    
        foreach (Excel.Worksheet displayWorksheet in this.Application.Worksheets)
        {
            rng.get_Offset(index, 0).Value2 = displayWorksheet.Name;
            index++;
        }
    }
    
    Private Sub ListSheets()
        Dim index As Integer = 0
    
        Dim rng As Excel.Range = Me.Application.Range("A1")
    
        For Each displayWorksheet As Excel.Worksheet In Me.Application.Worksheets
            rng.Offset(index, 0).Value2 = displayWorksheet.Name
            index += 1
        Next displayWorksheet
    End Sub
    

Voir aussiSee also

Travailler avec des feuilles de calcul Work with worksheets
Comment : ajouter par programmation des feuilles de calcul à des classeurs How to: Programmatically add new worksheets to workbooks
Comment : déplacer des feuilles de calcul dans les classeurs par programmation How to: Programmatically move worksheets within workbooks
Accès global aux objets dans les projets OfficeGlobal access to objects in Office projects