Comment faire un rapport à partir de feuilles de calcul excel avec vba

Cliquez "Démarrer," "Tous les programmes" et "Microsoft Excel" pour entrer dans l'interface Excel. Cliquez sur le "Promoteur" ruban, puis "Sécurité des macros" bouton. Chèque "Désactiver toutes les macros avec notification" et cliquez sur "Enregistrer." Maintenant que vous avez mis en place des macros dans vos Excel.

Presse "Alt" et "F11" simultanément 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

Réglez ActiveSh = ActiveSheet

Pour chaque cellule (Intervalle ("b3"), Range ("b3") .End (XlDown))

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

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

Select Case Cell.Value

Cas 1

Sheets (ShNameView) .Select

Cas 2

Application. Goto Référence: = ShNameView

End Select

ActiveWindow.SeletedSheets.Printout Copies: 1 =

Suivant

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.