Imprimer 2 feuilles par code vba

Résolu

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

Configuration: Windows XP
Internet Explorer 6.0

Afficher la suite

1 réponse

Réponse 1 / 1
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
1. 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

Imprimer 2 feuilles par code vba

1 réponse

Discussions similaires

Newsletters