Imprimer 2 feuilles par code vba

Résolu
lindette Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
lindette Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -
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

Papou93 Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   59
 
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   Statut Membre Dernière intervention  
 
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