Impression de cellule Excel Résolu/Fermé

Question

Bonjour, 

Je vous écris car j'ai un problème sur un code tout con en VBA, qui dit "Tu imprimeras la cellule A2 le nombre de fois indiqué dans la cellule D8". Bref, tout bête, mais impossible de le faire marcher. Le problème survient quand j'essaie d'imprimer la cellule en particulier, alors que si je décide d'imprimer toute la page, je n'ai aucun souci. 

Dim NOne As IntegerNOne = Range("D8").Value    Range("A2").Select    Selection.PrintOut Copies:=NOne, Collate:=True, IgnorePrintAreas:=False

Et j'ai essayé comme ça aussi :

Sheets("Feuil1").Range("A2").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Je sais que j'aurais pu mettre directement Copies:=Range("D8").Value au lieu de déclarer la variable NOne, mais bref, là n'est pas le souci.

Vous auriez une idée?

Merci d'avance,
Sly

Configuration: Windows 7 / Chrome 37.0.2062.120

pijaku · Answer

Bonjour,

Le truc, c'est que, puisque tu sélectionnes une cellule et que tu imprimes la Selection, il faut ignorer le paramètre IgnorePrintAreas. Comme ceci :
Dim NOne As Integer
    NOne = Range("D8").Value
    Range("A2").Select
    Selection.PrintOut Copies:=NOne, Collate:=True ', IgnorePrintAreas:=False

Sly · Answer

Ho ok, nickel, merci beaucoup!

Effectivement, c'est logique, comme quoi...
Sinon je viens de contourner le problème avec une autre technique (j'avais isolé les cellules à imprimer sur un autre onglet, comme ça je pouvais imprimer la page en entier et non devoir choisir, mais c'est plus du bricolage.

Merci beaucoup, et bonne journée.

Impression de cellule Excel

2 réponses

Discussions similaires