imprimer zone non contigues sur même page

[gourdin]

Bonjour,

Comment imprimer sur la même page des celulles ou zones non contigues ?

("imprimer sélection" ne fonctionne pas dans ce cas là)

Merci

 

[PMO2]

Re : imprimer zone non contigues sur même page

Bonjour,

Une solution avec le code suivant à copier dans un module Standard.

Bonjour,

Une solution avec le code suivant à copier dans un module Standard.

Sub ImprMultiSelect()
Dim var
Dim i&
Dim deb&
Dim cpt&
Dim A$
Dim B$
Dim nbChamp&
Dim Add$()
Dim S As Worksheet
Dim S2 As Worksheet
Dim R As Range
On Error GoTo Erreur
Application.ScreenUpdating = False
Set S = ActiveSheet
A$ = Selection.Address
nbChamp& = 1
For i& = 1 To Len(A$)
  If Mid(A$, i&, 1) = "," Then nbChamp& = nbChamp& + 1
Next i&
If nbChamp& = 1 Then Exit Sub
ReDim Preserve Add$(1 To nbChamp&)
deb& = 1
cpt& = 1
For i& = 1 To Len(A$)
  B$ = Mid(A$, i&, 1)
  If B$ <> "," Then
    Add$(cpt&) = Add$(cpt&) & B$
  Else
    deb& = Len(Add$(cpt&)) + 1
    cpt& = cpt& + 1
  End If
Next i&
ActiveSheet.Copy before:=Sheets(ActiveSheet.Name)
Set S2 = ActiveSheet
With S2.Cells
  .ClearContents
  .Interior.ColorIndex = xlNone
  For i& = 5 To 12
    .Borders(i&).LineStyle = xlNone
  Next i&
End With
For i& = 1 To nbChamp&
  var = S.Range(Add$(i&))
  S2.Range(Add$(i&)) = var
Next i&
For i& = 1 To nbChamp&
  Set R = S.Range(Add$(i&))
  R.Copy
  S2.Range(Add$(i&)).Select
  Selection.PasteSpecial Paste:=xlPasteFormats
Next i&
S2.PageSetup.PrintArea = ""
S2.PrintPreview
'--- On supprime éventuellement la copie (contenant les sélections multiples)  ---
'--- Si vous voulez visualisez la feuille copie, quotez les 2 lignes suivantes ---
Application.DisplayAlerts = False
S2.Delete
'---------------------------------------------------------------------------------
Erreur:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

MARCHE A SUIVRE
Dans une feuille contenant des données, sélectionnez plusieurs plages. Seules ces cellules apparaîtront à l'impression.
Si cette feuille contient des objets (contrôles, images, graphiques) il faut non pas sélectionner directement les objets
mais les plages de cellules les entourant (la macro ne gère que les plages (Range)).
D'autre part et en ce qui concerne les graphiques, il y a lieu de sélectionner les plages de données leur servant de
source. Si vous ne voulez pas faire apparaître les sources, un moyen est de colorer la Police de la même couleur
que le fonds de la cellule.

Cordialement.

PMO
Patrick Morange

 

[gourdin]

Re : imprimer zone non contigues sur même page

Merci, j'ai fait une essai.

En effet seule la sélection apparait à l'aperçu mais comment enlever tout ce qui reste hors sélection et qui n'est pas du texte et notamment les encadrements, couleur des cellules autres cellules

Bref qu'il ne reste que la selection et rien d'autre à l'impression.

Merci

 

[PMO2]

Re : imprimer zone non contigues sur même page

Bonjour,

comment enlever tout ce qui reste hors sélection et qui n'est pas du texte et notamment les encadrements, couleur des cellules autres cellules

Effectivement je n'avais pas pensé à cela.
J'ai donc rectifié le code en conséquence. Reportez-vous à mon premier message que j'ai modifié et y télécharger la pièce jointe mise à jour.

Cordialement.

PMO
Patrick Morange

 

[gourdin]

Re : imprimer zone non contigues sur même page

bonjour,



effectivement je n'avais pas pensé à cela.
J'ai donc rectifié le code en conséquence. Reportez-vous à mon premier message que j'ai modifié et y télécharger la pièce jointe mise à jour.

Cordialement.

Pmo
patrick morange

merci beaucoup