Problème macro pour imprimer [Résolu]

Signaler
Messages postés
13
Date d'inscription
mardi 28 janvier 2020
Statut
Membre
Dernière intervention
20 février 2020
-
Christophe78129
Messages postés
13
Date d'inscription
mardi 28 janvier 2020
Statut
Membre
Dernière intervention
20 février 2020
-
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.

2 réponses

Messages postés
4636
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
22 février 2020
122
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...
Messages postés
13
Date d'inscription
mardi 28 janvier 2020
Statut
Membre
Dernière intervention
20 février 2020

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