Imprimer 2 feuilles par code vba [Résolu/Fermé]

Signaler
Messages postés
38
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
23 octobre 2008
-
Messages postés
38
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
23 octobre 2008
-
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

1 réponse

Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
57
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.
Messages postés
38
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
23 octobre 2008

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