Objet feuille de calcul (Excel)

Représente une feuille de calcul.

Remarques

L’objet Feuille de calcul est membre de la collection Feuilles de calcul . 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 Feuilles de calcul (index), où index correspond au numéro ou au nom d’index de la feuille de calcul, pour retourner un seul objet de feuille de calcul . 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 l’emplacement 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) est 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é Feuille active pour y faire référence. L’exemple suivant utilise la méthode Activate pour activer Feuil1, définit l’orientation de 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 ensemble spécifié de fichiers 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.

  • Last updated on