tester une valeur et imprimer - VB/VBA/VBS - Programmation
Marsh Posté le 18-11-2004 à 17:03:49
utilise 
 
ThisWorkbook.sheets("Feuil1" ).PrintOut 
 
pour imprimer la feuil1
Marsh Posté le 19-11-2004 à 15:12:56
merci mais je n'y arrive pas je debute completement !!! 
mais j'ai trouver comment faire autrement mais il me manque q'un petit truc si vous pouvez m'aidez 
 
voila une partie de ma macro donne ca: 
je met entre paranthese ce qu'il faut qu'il faudrait rajouter 
 
 
 ActiveWindow.SmallScroll Down:=27 
    Range("C57" ).Select (si la valeur de cette cellule est egal a "OUI" ) 
alors 
    Sheets("MARGES" ).Select 
    ActiveWindow.SelectedSheets.Delete 
    Sheets("CONTENU" ).Select 
 
 
merci d'avance !!
Marsh Posté le 19-11-2004 à 19:06:14
mets ca directement : 
 
if Range("C57" )="OUI" then 
Sheets("MARGES" ).Select  
ActiveWindow.SelectedSheets.Delete  
Sheets("CONTENU" ).Select  
End if
Marsh Posté le 18-11-2004 à 11:31:58
bonjour
voila je connais pas grand chose en programation!
je me contenté d'enregistrer mes macro mais la je suis facea un probleme !!!
en enfet je dois faire une macro qui doit tester la valeur de certaine cellule et en fonction de valeur imprimer une page !!
si "oui" on imprime la page si "non" on saute
voila si quelqu'un peut m'aider ca serait super sympa !