Résumé
Cet article contient une de Visual Basic pour Applications Microsoft macro de (procédure Sub) qui parcourt en boucle toutes les feuilles de calcul dans le classeur actif. Cette macro affiche également le nom de chaque feuille de calcul.
Informations supplémentaires
Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Ceci inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques. L’exemple de macro, procédez comme suit :
-
Tapez le code de macro suivant dans une nouvelle feuille de module.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
Pour exécuter la macro, placez le point d’insertion dans la ligne « Sub WorksheetLoop() » et appuyez sur F5.
La macro va effectuer une boucle dans le classeur et afficher une boîte de message avec un nom de feuille de calcul différente chaque fois qu’il exécute la boucle. Notez que cette macro affiche uniquement les noms de feuille de calcul ; Il n’affichera pas les noms des autres types de feuilles dans le classeur. Vous pouvez également parcourir l’ensemble des feuilles de calcul dans le classeur à l’aide d’une boucle 'For Each'.
-
Entrez le code de macro suivant dans une nouvelle feuille de module.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
Pour exécuter la macro, placez le point d’insertion dans la ligne « Sub WorksheetLoop2() » et appuyez sur F5.
Cette macro fonctionne comme la macro WorksheetLoop, sauf qu’il utilise un autre type de boucle pour traiter toutes les feuilles de calcul dans le classeur actif.
Références
Pour plus d’informations sur l’obtention d’aide sur Visual Basic pour Applications, consultez l’article suivant dans la Base de connaissances Microsoft :
163435 VBA : ressources de programmation pour Visual Basic pour Applications
226118 OFF2000 : ressources de programmation pour Visual Basic pour Applications
