Existe t'il une fonction "imprime si" ?

cboulanger · 24/05/2007, 14h55

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 · 24/05/2007, 15h06

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 · 24/05/2007, 15h10

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 · 24/05/2007, 15h26

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 · 24/05/2007, 15h33

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

Dull · 24/05/2007, 15h52

Salut cboulanger, Dixit, Spitnolan, le Forum

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

Code PHP:


			
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 · 24/05/2007, 15h56

Salut Cboulanger, le forum,

Ton fichier jont avec dans le module1 la macro.

Bon test

RV37

RV37 · 24/05/2007, 15h58

Oups !!!

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

cboulanger · 24/05/2007, 16h17

daccor merci bcp !

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

Merci encore ! clément

bonne journé à vous

24/05/2007, 14h55	#1 (permalink)
cboulanger XLDnaute Junior Date d'inscription: mai 2007 Messages: 74	Existe t'il une fonction "imprime si" ? 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

24/05/2007, 15h06	#2 (permalink)
dixit XLDnaute Impliqué Date d'inscription: mars 2007 Localisation: Plougasnou Bretagne (France) Version Excel : Excel 2000 (PC) Messages: 750	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) __________________ Jacques au revoir, kenavo, goodbye, auf Wiedersehen informations Excel et autres sur mon site perso avec classeurs d'exemples http://www.ideocene.com Dernière modification par dixit ; 24/05/2007 à 15h10.

24/05/2007, 15h10	#3 (permalink)
Spitnolan08 XLDnaute Barbatruc Date d'inscription: décembre 2006 Version Excel : Excel 2003 (PC) Messages: 2 267	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

24/05/2007, 15h26	#4 (permalink)
cboulanger XLDnaute Junior Date d'inscription: mai 2007 Messages: 74	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

24/05/2007, 15h52	#6 (permalink)
Dull XLDnaute Accro Date d'inscription: septembre 2005 Localisation: Saint-Pierre de la Réunion (974) Version Excel : Excel 2003 (PC) Messages: 1 449	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 Code PHP: `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 __________________ @+ Dull "Ti pas ti pas n'arrive Grandbois" Si lui arrive à me supporter , alors pas d'hésitations .... SupporterXLDDownloads

24/05/2007, 15h58	#8 (permalink)
RV37 XLDnaute Nouveau Date d'inscription: août 2006 Messages: 35	Re : Existe t'il une fonction "imprime si" ? Oups !!! Collision. Désolé DULL, je n'avais pas rafraîchit.

24/05/2007, 16h17	#9 (permalink)
cboulanger XLDnaute Junior Date d'inscription: mai 2007 Messages: 74	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

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email

Discussions similaires
Discussion	Auteur	Forum	Réponses	Dernier message
Récupérer valeur "Oui ou Non" du message d'alerte Wind: "Suppression de fichiers"?	IFFIC	Forum Excel	0	15/12/2006 13h50
erreur sur formule =SI(A6="";"";SI(A6+1>MOIS.DECALER(A$6-1;1);"";A6+1))	malcy45	Forum Excel	6	23/11/2006 15h10
Combinaison: "GetDetailsOf" et Function "xxxx" ..(Chemin, Fichier, Feuille, Cellule)"	IFFIC	Forum Excel	1	14/11/2006 22h05
Pb affichage avec fonction "INCORPORER("MSDraw")	Matt38	Forum Excel Downloads - Archives	0	31/12/2004 11h50
Fonction "contenir" existe-t-elle?	Raphael	Forum Excel Downloads - Archives	3	28/10/2003 10h53