Comment utiliser le nom d'une feuille en tant que variable dans Microsoft Excel 2007

Étape 1

Cliquez sur l'onglet "Développeur" puis sur "Visual Basic" pour lancer l'éditeur VB. Cliquez sur le menu "Insérer", puis sur "Modules" pour insérer un nouveau module de code.

Étape 2

Une nouvelle sous-procédure commence comme suit:

Noms de sous-feuille ()

Étape 3

Créez la variable "sheetName" pour conserver un enregistrement des noms des feuilles et deux variables qui seront utilisées comme compteurs de la manière suivante:

Dim sheetName As String Dim xCntr As Integer Dim shtCntr As Integer

Étape 4

Définissez le contenu de la variable "sheetName" avec le nom de la première page de votre livre Excel, comme suit:

sheetName = "Sheet1"

Étape 5

Attribue au compteur la valeur 1 représentant le premier tableur:

shtCntr = 1

Étape 6

Utilisez le code suivant pour créer une boucle "For ... Loop" sur chaque feuille de votre livre Excel et ajoutez le nom de la feuille à A1 à l'aide de la variable "sheetName":

Pour xCntr = 0 à 2

Feuilles de calcul (sheetName) .Activate Range ("A1"). Sélectionnez ActiveCell.FormulaR1C1 = RangeName Range ("A2"). Sélectionnez shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

XCntr suivant

Étape 7

Appuyez sur "F5" pour exécuter la procédure. Dans chaque feuille de calcul, A1 contiendra le nom de la feuille.