Sujet Précédent Sujet Suivant

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

Résolu/Fermé
PatProg Messages postés 6 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 2 août 2013 - 21 févr. 2013 à 18:39
PatProg Messages postés 6 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 2 août 2013 - 5 mars 2013 à 15:54
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 ;)

A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 févr. 2013 à 14:59
Bonjour, 
    ActiveSheet.PageSetup.PrintArea = "A1:" & O29.Value

A+

1
PatProg Messages postés 6 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 2 août 2013
28 févr. 2013 à 16:12
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 !
0
PatProg Messages postés 6 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 2 août 2013
28 févr. 2013 à 16:53
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 :)
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
1 mars 2013 à 06:12
Re,
ça dépend de ce que contient N5 ? 
    ActiveSheet.PageSetup.PrintArea = "$A$1:" & [N5].Value
    Range("$A$1:" & [N5].Value).Select
Tu dis
0
PatProg Messages postés 6 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 2 août 2013
5 mars 2013 à 15:54
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
0
Réponse 2 / 2
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
28 févr. 2013 à 16:30
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
0