Problème macro pour imprimer Résolu/Fermé

Question

Bonjour, 
Après avoir fait plusieurs recherches sur les forums, je n'ai pas réussi à trouver la solution à mon problème.
J'ai créer un petit programme sous excel 2013, mon soucis est d'imprimer un tableau avec la dernière cellule variable en fonction d'un calcul.

J’ai déclaré la variable dans Général - Déclaration

Dim Nb_lignes As Integer

Et voilà la macro pour l’impression, dans la cellule R14, j’ai le résultat d’opération qui me définit le nombre de ligne que je voudrai imprimer, zone d’impression de A1 à H(valeur R14) :

Private Sub Impression_Click()

Application.ScreenUpdating = False
    Set fm = Sheets("Fin de mois")

'Impression des feuilles

Nb_lignes = fm.Range("R14")
    fm.PageSetup.PrintArea = "$A$1:$H" & Nb_lignes.PrintPreview  'PrintOut pour l'impression

End Sub


Mais j’ai une erreur 424 Objet requis.
Est-ce que quelqu’un aurai une idée.
Merci d'avance.
Cordialement.

ThauTheme · Answer

Bonjour Christophe, bonjour le forum,

 Essaie comme ça :
Private Sub Impression_Click()
Dim fm As Worksheet
dim Nb_lignes As Integer

Set fm = Sheets("Fin de mois")
Nb_lignes = fm.Range("R14")
fm.PageSetup.PrintArea = "$A$1:$H" & Nb_lignes
'fm.PrintPreview
fm.PrintOut ' pour l'impression
End Sub 

La déclaration des variables n'est pas obligatoire mais je la recommande tout le temps. Ton problème venait du PrintOut en fin de ligne...

Christophe78129 · Answer

Merci ThauTheme,
Déjà un problème de résolu, Cela fonctionne impeccable, je suis en train de finir mon programme, mais je pense que je reviendrai pour d'autre petits soucis.
Cordialement.
Christophe78129

Problème macro pour imprimer

2 réponses

Discussions similaires