Imprimer cellules sélectionnées

poipoi59 · 11 Avril 2009

Grâce à wilfrid, je sélectionne des cellules via cette commande :

Sub sel_plage()
Dim plage As Range, frm As Range, c As Range
Set plage = Range("A:E")
Set frm = plage.Cells.SpecialCells(xlCellTypeFormulas)
Set plage = plage.Cells.SpecialCells(xlCellTypeConstants)
For Each c In frm
If c.Text > "" Then Set plage = Application.Union(plage, c)
Next
plage.Select
End Sub

J'aimerais maintenant imprimer cette sélection

comment faire ??

Merci

job75 · 11 Avril 2009

Re : Imprimer cellules sélectionnées

Bonsoir poipoi59,

Avec ce code, nul besoin de sélectionner :

Code:

With ActiveSheet
.PageSetup.PrintArea = plage.Address
.PrintOut 'ou .PrintPreview
End With

Mais attention, plage dans votre code exclut les cellules vides ou contenant "".

Ele peut donc être constituée de plusieurs zones (disjointes).

L'impression imprimera chaque zone séparément (une nouvelle page à chaque fois).

A+

poipoi59 · 12 Avril 2009

Re : Imprimer cellules sélectionnées

job75 à dit:
Bonsoir poipoi59,

Avec ce code, nul besoin de sélectionner :

Code:

With ActiveSheet .PageSetup.PrintArea = plage.Address .PrintOut 'ou .PrintPreview End With

Mais attention, plage dans votre code exclut les cellules vides ou contenant "".

Ele peut donc être constituée de plusieurs zones (disjointes).

L'impression imprimera chaque zone séparément (une nouvelle page à chaque fois).

A+

Bonjour,

Merci pour votre réponse,

mais j'aimerais, par une macro, sélectionner des cellules et la commande citée le faisait parfaitement et ensuite imprimer cette sélection

est-ce possible ?

Merci

poipoi59

poipoi59 · 13 Avril 2009

Re : Imprimer cellules sélectionnées

job75 à dit:
Bonsoir poipoi59,

Avec ce code, nul besoin de sélectionner :

Code:

With ActiveSheet .PageSetup.PrintArea = plage.Address .PrintOut 'ou .PrintPreview End With

Mais attention, plage dans votre code exclut les cellules vides ou contenant "".

Ele peut donc être constituée de plusieurs zones (disjointes).

L'impression imprimera chaque zone séparément (une nouvelle page à chaque fois).

A+

Est-ce possible alors de n'imprimer que la première zone (première page) ???

Merci

Imprimer cellules sélectionnées

poipoi59

XLDnaute Junior

job75

XLDnaute Barbatruc

poipoi59

XLDnaute Junior

poipoi59

XLDnaute Junior

Discussions similaires