Imprimer 2 feuilles par code vba

Résolu/Fermé
lindette Messages postés 38 Date d'inscription lundi 16 juillet 2007 Statut Membre Dernière intervention 23 octobre 2008 - 13 août 2007 à 17:58
lindette Messages postés 38 Date d'inscription lundi 16 juillet 2007 Statut Membre Dernière intervention 23 octobre 2008 - 17 août 2007 à 17:50
Bonjour

J'aimerais connaître le code pour imprimer automatiquement soit 1 feuille ou 2 feuilles de mon classeur si la dans la deuxiéme feuille la cellule "A63" est rempli.
MERCI POUR VOTRE AIDE
Linda
A voir également:

1 réponse

Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 59
14 août 2007 à 18:02
Bonjour Lindette,

voici un exemple :

- Dans la section 'Change' de la feuille 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets(2).[a65] <> "" Then Imprimer
End Sub



- Dans un module de code :

Sub Imprimer()
  If Sheets(2).[a65] <> "" Then
    Sheets(Array("Feuil1", "Feuil2")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  End If
End Sub


Cordialement.
0
lindette Messages postés 38 Date d'inscription lundi 16 juillet 2007 Statut Membre Dernière intervention 23 octobre 2008
17 août 2007 à 17:50
Merci beaucoup et désolée pour la réponse tardive mais j'ai eu un p'tit souci avec l'ordi.
tout est revenu dans l'ordre maintenant
merci beaucoup
linda
0