Controler l'impression !

[demax]

Bonsoir
Ma feuille presente 100 cellules donc si j'imprime il me sort 2 feuilles mais je souhaiterais imprimer la deuxieme feuille seulement si la cellules 51 a une valeur.
j'ai actuellemnt ca:
controlé par un bouton:

ActiveWindow.SelectedSheets.PrintOut Copies:=1

je ne vois pas comment controler l'impression.Je pense deja à une condition bien sur
if cells(51, 1).value > 1 then ....
if you have a solution for me!😀
merci

 

[Cousinhub]

Re : Controler l'impression !

Bonsoir,

essaie ainsi :

Dim X As Byte
X = IIf([A51] <> "", 2, 1)
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=X, Copies:=1

 

[vbacrumble]

Re : Controler l'impression !

Bonsoir tous


Peux-tu également essayer cette variante?
(car je n'ai pas d'imprimante pour tester)

Dim X As Byte
X = [=(A51<>"""")+1]
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=X, Copies:=1

A+

 

[demax]

Re : Controler l'impression !

super merci bhbh😉
peux tu me commenter cette phrase

IIf([A51] <> "", 2, 1)

j'ai jamais vu le( IIf)
merci en tout cas🙂

 

[demax]

Re : Controler l'impression !

bonsoir vbacrumble
je peux pas essayer ton code car j'ai du negocier avec mon voisin pour faire le test C une appli que j'utiliserais dans mon boulot
celle de bhbh fonction tres bien j'attends l'explication du code s'il veut bien!
desoled!😉
++

 

[Cousinhub]

Re : Controler l'impression !

Re-,

IIF est une fonction VBA, qui te donne une valeur, ou un texte quelconque, ou ce que tu veux, en fonction, d'une condition....

IIf(formule, valeur si vraie, valeur si faux)

la formule est donc : [A51] <> "", donc, si la cellule A51 n'est pas vide...

La valeur induite est :

si la formule est vraie, soit A51 non vide, X = 2

si la formule est fausse, soit A51 vide, X = 1

donc on imprime de la feuille 1 à la feuille X

Attention, la fonction IIf est très capricieuse....
Si une des réponses (valeur si vraie, valeur si faux) génère une erreur, la fonction va générer une erreur....toutes les solutions étant testées....

Exemple, tu es en cellule A1....
tu mets ce code :

x = IIf(ActiveCell.Row = 2, ActiveCell.Offset(0, -1), ActiveCell)

Comme tu n'es pas en ligne 2, on aurait du obtenir le résultat de la cellule
Or, il a testé la valeur de ActiveCell.Offset(0, -1), soit la cellule à gauche de la cellule A1, ce qui n'existe pas....

PS, je n'ai pas non plus d'imprimante, suffit juste de rajouter une imprimante virtuelle... du style Microsoft XPS Document Writer, qui t'imprime dans un fichier......

 

[vbacrumble]

Re : Controler l'impression !

Re



Merci du conseil ,bhbh

Une petit question: on les ouvre avec quoi les fichiers xps ?


A+

 

[demax]

Re : Controler l'impression !

re
si j'ai bien compris c'est en gros une contraction de

if [A51] <> "" then
X = 2
elseif
X = 1
...

merci pour tes explications detaillées😉
cool aussi pour l'imprimante!😀

 

[Cousinhub]

Re : Controler l'impression !

Re,

pour vbacrumble,

Perso, je ne les ouvre jamais, je les nommes tous "essai.xps", quitte à les remplacer, ou supprimer, par la suite, c'est juste pour tester mes codes en "situation" réelle....

Edit, si ce lien peut t'aider.....

Ce lien n'existe plus