Existe t'il une fonction "imprime si" ?

[cboulanger]

Bonjour à tous

je souhaiterais savoir sil existe une fonction "imprime si".

Si par exemple une cellule =1

je sui en train de faire un programme pour sortir des devis et nomenclature et cette fonction me serais d'un grande utilité.

Merci d'avance

Clément

 

[dixit]

Re : Existe t'il une fonction "imprime si" ?

bonjour,
en vba c'est possible avec printout
exemple :
if cells(5,5)=1 then printout (pour les arguments faire un enregistrement de macro)

 

[Spitnolan08]

Re : Existe t'il une fonction "imprime si" ?

Bonjour,
Si j'ai bien compris, il suffit dans ton programme de mettre à l'emplacement prévu pour le code d'impression :

If Range("A1")=1 Then Imprim
où A1 est la cllule que tu indiques et Imprim ta procédure d'impression : Sub Imprim()

Cordialement

 

[cboulanger]

Re : Existe t'il une fonction "imprime si" ?

J'ai du mal a comprendre vos explications,

je vou ai joint un classeur pour mieu exprimer ma recherche.

- Dans la feuille 1 : A1 = 1

et je voudrai que :

Si A1 feuille 1 = 1

alors on imprime la zone d'impression en feuille 2

Merci bcp pour votre aide

cordialement clément

 

[cboulanger]

Re : Existe t'il une fonction "imprime si" ?

voici le fichier désole, je lavé oublié

 

[Dull]

Re : Existe t'il une fonction "imprime si" ?

Salut cboulanger, Dixit, Spitnolan, le Forum

Avec ces quelques lignes associés à un bouton ou à intégrer dans ta macro cela devrait marcher

If Sheets("Feuil1").Range("A1") = 1 Then
    With Sheets("Feuil2")
    .PageSetup.PrintArea = "$B$7:$C$22"
    .PrintOut Copies:=1, Collate:=True
    End With
End If

Bonne Journée

 

[RV37]

Re : Existe t'il une fonction "imprime si" ?

Salut Cboulanger, le forum,

Ton fichier jont avec dans le module1 la macro.

Bon test

RV37

 

[RV37]

Re : Existe t'il une fonction "imprime si" ?

Oups !!!

Collision. Désolé DULL, je n'avais pas rafraîchit.

 

[cboulanger]

Re : Existe t'il une fonction "imprime si" ?

daccor merci bcp !

je pense comprendre, c compliqué les macro qd meme.

Merci encore ! clément

bonne journé à vous