Comment faire un rapport de feuilles excel avec vba

Cliquez "Début," "Tous les programmes" et "Microsoft Excel" pour entrer dans l`interface Excel. Clique le "Développeur" ruban, puis "sécurité des macros" bouton. Vérifier "Désactiver toutes les macros avec notification" et cliquez sur "Sauvegarder." Maintenant, vous avez mis en place des macros dans votre Excel.

presse "Alt" et "F11" en même temps pour lancer VBE. Double-cliquez sur "sheet1" sur votre panneau de droite dans votre VBE pour ouvrir la fenêtre de code. Sélectionner "Feuille de travail" sur les options déroulantes dans la fenêtre de code.

Entrez le code suivant dans la fenêtre de code:

Sous PrintReport ()

Dim PAGE_NUMBER

Dim ActiveSh comme feuille de travail

Dim ShNameView As String

Set ActiveSh = ActiveSheet

Pour chaque cellule Range (Plage ("b3"), Gamme ("b3") .End (xlDown))

Sh_view = ActiveCell.Offset (0, 1) .Value

PAGE_NUMBER = ActiveCell.Offset (0, 1) .Value

Choisir le cas Cell.Value

Cas 1

Feuilles (ShNameView) .Select

cas n ° 2

Application. Aller Référence: = ShNameView

End Select

ActiveWindow.SeletedSheets.Printout Copies: = 1

Prochain

La boucle à l`aide du code conduit à une impression pour chaque cellule dans la colonne B à partir de B2. Le code imprime uniquement les pages dans le classeur en cours.