Macro excel pour une impression selective

FH -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

J'ai un fichier excel avec plusieurs onglets (plusieurs page de calcul dans le même fichier)
Dans mon usage, je n'utilise pas nécessairement tous les onglets.

J'aimerais avoir une commande macro qui permettrait de demander d'imprimer uniquement les onglets qui sont utilisés.
Soit par la validation d'une cellule plus grande que zero.
Je pourrais aussi créer une cellule a cocher sur chacun des onglets pour définir ''à imprimer''

Aidez moi svp

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    voir ceci:

    https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

    https://docs.microsoft.com/fr-fr/office/vba/api/excel.sheets.printout

    ce qui donne: 

    Option Explicit
'https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
'https://docs.microsoft.com/fr-fr/office/vba/api/excel.sheets.printout
Sub boucle()
'Déclare la variable objet
Dim Ws As Object
'Boucle sur tous les onglets du classeur
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Sheets
    'Renvoie le nom de chaque onglet
   If Ws.Range("A1").Value > 1 Then
      ActiveSheet.PrintOut
    End If
Next Ws
End Sub


    a mettre dans un module

    0