Objet Worksheet (Excel)Worksheet object (Excel)

Représente une feuille de calcul.Represents a worksheet.

RemarquesRemarks

L’objet Worksheet est un membre de la collection Worksheets .The Worksheet object is a member of the Worksheets collection. La collection Worksheets contient tous les objets Worksheet d'un classeur.The Worksheets collection contains all the Worksheet objects in a workbook.

L’objet Worksheet est également un membre de la collection Sheets .The Worksheet object is also a member of the Sheets collection. La collection Sheets contient toutes les feuilles (feuilles de graphique et feuilles de calcul) du classeur.The Sheets collection contains all the sheets in the workbook (both chart sheets and worksheets).

ExempleExample

Utilisez Worksheets (index), où index est le nom ou le numéro d’index de la feuille de calcul, pour renvoyer un seul objet Worksheet .Use Worksheets (index), where index is the worksheet index number or name, to return a single Worksheet object. L'exemple suivant montre comment masquer la feuille de calcul 1 dans le classeur actif.The following example hides worksheet one in the active workbook.

Worksheets(1).Visible = False

Le numéro d’index de la feuille de calcul indique la position de la feuille de calcul dans la barre d’onglets du classeur.The worksheet index number denotes the position of the worksheet on the workbook's tab bar. Worksheets(1)est la première feuille de calcul (la plus à gauche) Worksheets(Worksheets.Count) dans le classeur et est la dernière.Worksheets(1) is the first (leftmost) worksheet in the workbook, and Worksheets(Worksheets.Count) is the last one. Toutes les feuilles de calcul sont incluses dans le nombre d’index, même si elles sont masquées.All worksheets are included in the index count, even if they are hidden.


Le nom de la feuille de calcul s'affiche dans l'onglet correspondant.The worksheet name is shown on the tab for the worksheet. Utilisez la propriété Name pour définir ou renvoyer le nom de la feuille de calcul.Use the Name property to set or return the worksheet name. L'exemple suivant protège les scénarios sur Sheet1.The following example protects the scenarios on Sheet1.

 
Dim strPassword As String 
strPassword = InputBox ("Enter the password for the worksheet") 
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True

Lorsque la feuille active est une feuille de calcul, vous pouvez utiliser la propriété ActiveSheet pour y faire référence.When a worksheet is the active sheet, you can use the ActiveSheet property to refer to it. L’exemple suivant utilise la méthode Activate pour activer la feuille Sheet1, définit l’orientation de la page en mode paysage, puis imprime la feuille de calcul.The following example uses the Activate method to activate Sheet1, sets the page orientation to landscape mode, and then prints the worksheet.

Worksheets("Sheet1").Activate 
ActiveSheet.PageSetup.Orientation = xlLandscape 
ActiveSheet.PrintOut

Cet exemple montre comment utiliser l’événement BeforeDoubleClick pour ouvrir un ensemble de fichiers spécifié dans le bloc-notes.This example uses the BeforeDoubleClick event to open a specified set of files in Notepad. Pour utiliser cet exemple, votre feuille de calcul doit contenir les données suivantes:To use this example, your worksheet must contain the following data:

  • La cellule A1 doit contenir les noms des fichiers à ouvrir, séparés par une virgule et une espace.Cell A1 must contain the names of the files to open, each separated by a comma and a space.
  • La cellule D1 doit contenir le chemin d'accès des fichiers du Bloc-notes.Cell D1 must contain the path to where the Notepad files are located.
  • La cellule D2 doit contenir le chemin d'accès du programme Bloc-notes.Cell D2 must contain the path to where the Notepad program is located.
  • La cellule D3 doit contenir l'extension de fichier, sans le point, des fichiers du Bloc-notes (txt).Cell D3 must contain the file extension, without the period, for the Notepad files (txt).

Lorsque vous double-cliquez sur la cellule A1, les fichiers qui y sont spécifiés s'ouvrent dans le Bloc-notes.When you double-click cell A1, the files specified in cell A1 are opened in Notepad.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Define your variables.
   Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
   
   'If you did not double-click on A1, then exit the function.
   If Target.Address <> "$A$1" Then Exit Sub
   
   'If you did double-click on A1, then override the default double-click behavior with this function.
   Cancel = True
   
   'Set the path to the files, the path to Notepad, the file extension of the files, and the names of the files,
   'based on the information on the worksheet.
   sPath = Range("D1").Value
   sExe = Range("D2").Value
   sSfx = Range("D3").Value
   sFile = Range("A1").Value
   
   'Remove the spaces between the file names.
   sFile = WorksheetFunction.Substitute(sFile, " ", "")
   
   'Go through each file in the list (separated by commas) and
   'create the path, call the executable, and move on to the next comma.
   Do While InStr(sFile, ",")
      sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
      If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
      sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
   Loop
   
   'Finish off the last file name in the list
   sTxt = sPath & "\" & sFile & "." & sSfx
   If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub

ÉvénementsEvents

MéthodesMethods

PropriétésProperties

Voir aussiSee also

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.