Macro excel pour une impression selective

Fermé
FH - 21 oct. 2021 à 16:15
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 21 oct. 2021 à 18:39
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
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
21 oct. 2021 à 18:39
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