Impression de plusieurs plages de cellules non-continues

Bonjour,
Si tu veux imprimer les deux plages en continu, masque la ligne 18 avant
d'imprimer, sélectionne A1:H37 et imprime.
Cordialement.
Daniel
Le 18/11/2015, egqcca a supposé :

Bonjour, j'ai un classeur Excel avec plusieurs feuilles. Chaque feuille
contient de l'information réparties en 2 plages de cellules. Par exemple :
Sur Feuill1: cellules A1 à H17 + Feuill1 A19 à H37. Sur les autres feuilles,
se sont les mêmes plages de cellules. Question: Je souhaite créer une macro
qui me permettrait d'imprimer disons 2 plages de cellules, une de la feuill1
et l'autre de la feuille 2 (Feuil1!A1:H17 + Feuil2!A19:H37). Comment puis-je
programmer cela ? MERCI, Eric

...imprime la sélection.
DanielCo vient de nous annoncer :

Bonjour,
Si tu veux imprimer les deux plages en continu, masque la ligne 18 avant
d'imprimer, sélectionne A1:H37 et imprime.
Cordialement.
Daniel
Le 18/11/2015, egqcca a supposé :

Bonjour, j'ai un classeur Excel avec plusieurs feuilles. Chaque feuille
contient de l'information réparties en 2 plages de cellules. Par exemple :
Sur Feuill1: cellules A1 à H17 + Feuill1 A19 à H37. Sur les autres
feuilles, se sont les mêmes plages de cellules. Question: Je souhaite créer
une macro qui me permettrait d'imprimer disons 2 plages de cellules, une de
la feuill1 et l'autre de la feuille 2 (Feuil1!A1:H17 + Feuil2!A19:H37).
Comment puis-je programmer cela ? MERCI, Eric

Bonjour,

Une approche simple...

'----------------------------------------------------
Sub test()
Dim Arr(), F As Worksheet, DerLig As Long

'les 2 plages à copier
Arr = Array("Feuil1!A1:H17", "Feuil2!A19:H37")

Application.ScreenUpdating = False
Application.EnableEvents = False
'Ajout d'une nouvelle feuillle
Set F = Worksheets.Add
Range(Arr(0)).Copy F.Range("A1")
DerLig = F.Range("A" & F.Cells.Rows.Count).End(xlUp).Row + 1
Range(Arr(1)).Copy F.Range("A" & DerLig)
With F
.PrintPreview 'après test modifie pour .PrintOut
End With
Application.DisplayAlerts = False
F.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'----------------------------------------------------



MichD
---------------------------------------------------------------
"egqcca" a écrit dans le message de groupe de discussion
: -bCdnfp5SdPLyNHLnZ2dnUU7982dnZ2d@giganews.com...

Bonjour, j'ai un classeur Excel avec plusieurs feuilles. Chaque feuille
contient
de l'information réparties en 2 plages de cellules. Par exemple : Sur
Feuill1:
cellules A1 à H17 + Feuill1 A19 à H37. Sur les autres feuilles, se sont les
mêmes plages de cellules. Question: Je souhaite créer une macro qui me
permettrait d'imprimer disons 2 plages de cellules, une de la feuill1 et
l'autre
de la feuille 2 (Feuil1!A1:H17 + Feuil2!A19:H37). Comment puis-je programmer
cela ? MERCI, Eric