Partager via

Objet Worksheet (Excel)

  • Article

Représente une feuille de calcul.

Remarques

L’objet Worksheet est membre de la collection Worksheets . La collection Worksheets contient tous les objets Worksheet d'un classeur.

L’objet Worksheet est également membre de la collection Sheets . La collection Sheets contient toutes les feuilles (feuilles de graphique et feuilles de calcul) du classeur.

Exemple

Utilisez Worksheets (index), où index est le numéro d’index ou le nom de la feuille de calcul, pour renvoyer un seul objet Worksheet . L'exemple suivant montre comment masquer la feuille de calcul 1 dans le classeur actif.

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. Worksheets(1) est la première feuille de calcul (la plus à gauche) du classeur et Worksheets(Worksheets.Count) la dernière. Toutes les feuilles de calcul sont incluses dans le nombre d’index, même si elles sont masquées.

Le nom de la feuille de calcul s'affiche dans l'onglet correspondant. Utilisez la propriété Name pour définir ou renvoyer le nom de la feuille de calcul. L'exemple suivant protège les scénarios sur Sheet1.

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

Lorsqu’une feuille de calcul est la feuille active, vous pouvez utiliser la propriété ActiveSheet pour y faire référence. L’exemple suivant utilise la méthode Activate pour activer Sheet1, définit l’orientation de la page en mode paysage, puis imprime la feuille de calcul.

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

Cet exemple utilise l’événement BeforeDoubleClick pour ouvrir un jeu de fichiers spécifié dans le Bloc-notes. Pour utiliser cet exemple, votre feuille de calcul doit contenir les données suivantes :

  • La cellule A1 doit contenir les noms des fichiers à ouvrir, séparés par une virgule et une espace.
  • La cellule D1 doit contenir le chemin d'accès des fichiers du Bloc-notes.
  • La cellule D2 doit contenir le chemin d'accès du programme Bloc-notes.
  • La cellule D3 doit contenir l'extension de fichier, sans le point, des fichiers du Bloc-notes (txt).

Lorsque vous double-cliquez sur la cellule A1, les fichiers qui y sont spécifiés s'ouvrent dans le Bloc-notes.

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énements

Méthodes

Propriétés

Voir aussi

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.