Excel 2010 : Macro qui choisi le nombre de page à imprimer

[Résolu/Fermé]
Signaler
Messages postés
6
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
2 août 2013
-
Messages postés
6
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
2 août 2013
-
Bonjour,
J'aurais besoin d'un bouton d'impression spécial pour définir le nombre de page à imprimer selon la quantité d'information qui est entrée. J'ai la valeur dans une cellule ($O$29), il suffit de prendre cette valeur et l'imposer à l'imprimante de 1 à ($O$29).

Merci ;)

2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 171
Bonjour,
    ActiveSheet.PageSetup.PrintArea = "A1:" & O29.Value

A+

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
2 août 2013

Bonjour lermite222,
merci pour ta réponse, mais ce n'est pas la zone d'impression que je désir paramétrer, mais le nombre de page à imprimer. O29.value est donc le nombre total de page à imprimer.

Est-ce réalisable en macro ?

Merci !
Messages postés
6
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
2 août 2013

Encore moi !
Je pourrais finalement utiliser la zone d'impression automatique, mais ça ne fonctione pas, j'ai un message d'erreur : Objet requis !

voici mon code :
Sub Zone_impression_Auto()
'
' Zone_impression_Auto Macro
' Défini automatiquement la zone d'impression selon le nombre de cabinet défini en L38 multiplié par le nombre de ligne soit 38.
'
' Touche de raccourci du clavier: Ctrl+Shift+P
'
    ActiveSheet.PageSetup.PrintArea = "$A$1:" & N5.Value
    Range("$A$1:" & N5.Value).Select
End Sub


Que manque t-il ?

Merci d'avance :)
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 171
Re,
ça dépend de ce que contient N5 ?
    ActiveSheet.PageSetup.PrintArea = "$A$1:" & [N5].Value
    Range("$A$1:" & [N5].Value).Select
Tu dis
Messages postés
6
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
2 août 2013

WOW ! Hyper génial, ça fonctionne à merveille !
finalement
[N5] =CONCATENER("L";'COMMANDE A'!$P$29*38)
soit la colonne "L" qui est fixe et la ligne = (nbr de page)*(nbr de ligne par page)

Merci lermite222
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 628
Bonjour tout le monde,

Désolé de l'incruste...

Peut être comme ceci :

Dim NbPages As Integer

If Range("O29") = "" Or Range("O29") = 0 Then Exit Sub
If IsNumeric(Range("O29")) Then NbPages = CInt(Range("O29")) Else Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=NbPages