Imprimer 2 feuilles par code vba

Résolu
lindette Messages postés 38 Statut Membre -  
lindette Messages postés 38 Statut Membre -
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 147 Statut Membre 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 Statut Membre
 
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