Bouton Imprimer
Fermé
Spepin
Messages postés
30
Date d'inscription
mercredi 21 août 2019
Statut
Membre
Dernière intervention
26 novembre 2019
-
6 oct. 2019 à 16:01
Spepin Messages postés 30 Date d'inscription mercredi 21 août 2019 Statut Membre Dernière intervention 26 novembre 2019 - 9 oct. 2019 à 18:41
Spepin Messages postés 30 Date d'inscription mercredi 21 août 2019 Statut Membre Dernière intervention 26 novembre 2019 - 9 oct. 2019 à 18:41
A voir également:
- Bouton Imprimer
- Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
- Imprimer en a5 - Guide
- Comment signer un pdf sans l'imprimer - Guide
- Réinitialiser chromecast sans bouton - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
1 réponse
Spepin
Messages postés
30
Date d'inscription
mercredi 21 août 2019
Statut
Membre
Dernière intervention
26 novembre 2019
9 oct. 2019 à 18:41
9 oct. 2019 à 18:41
En fait je veut la colonne A14;Ba14;F14;H14 à A60;B60;F60;H60 en l'introduisant dans la formule comment faire, merci d'avance;
Sub PRINT_ZONE()
' PRINT_ZONE Macro
Range("A14:B14").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A14:$E14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A1").Select
End Sub
Sub PRINT_ZONE()
' PRINT_ZONE Macro
Range("A14:B14").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A14:$E14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A1").Select
End Sub