Macro excel pour une impression selective
Fermé
FH
-
21 oct. 2021 à 16:15
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 21 oct. 2021 à 18:39
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 21 oct. 2021 à 18:39
A voir également:
- Macro excel pour une impression selective
- Spouleur d'impression - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
21 oct. 2021 à 18:39
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:
a mettre dans un module
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