masquer une colonne à l'aperçu avt impression

[Océane]

Bonsoir le forum

cette macro :

'Réalise l'apercu avant impression des X lignes remplies sur les 50 possibles
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valeur$, ws As Worksheet, Plage As Range
Dim Lignes&
Application.ScreenUpdating = False
Set ws = ActiveWorkbook.ActiveSheet
'la feuille Notice sera visible entierement
If ws.Name <> "Notice" Then
With ws
'A1 est la premiere cellule de la premiere ligne à visualiser
If .Range("A1") = "" Then
'A1 premiere cellule, K1 derniere cellule de la premiere ligne
Set Plage = .Range("A1:K1")
Else
Set Plage = .Range("A1:A65536")
Lignes = WorksheetFunction.CountIf(Plage, ">""") + WorksheetFunction.Count(Plage)
' le chiffre 11, parce que la colonne K est la onzieme colonne
Set Plage = Plage.Resize(Lignes, 11)
End If
' .Unprotect
.PageSetup.PrintArea = Plage.Address
' .Protect
End With
End If
Application.ScreenUpdating = True
End Sub

que j'ai trouvé sur ce forum réalise l'apercu avant impression, sauf pour la feuille "notice", des X lignes écrites, d'un tableau de 50 sur 11 colonnes.

Je voudrai la modifier de facon à ce que la colonne J soit masquée pendant cet apercu avant impression, et libérée à la fermeture de cet apercu avant impression.
Merci d'avance

 

[malcy45]

Re : masquer une colonne à l'aperçu avt impression

bonjour,
je te propose une manip hors macro
c'est l'affichage personnalisé ou tout d'abord tu masques ta colonne j puis tu vas dans affichage puis affichage personnalisé et tu pourras sauvegarder cet affichage et t'en servir comme bon te semble.
Et si tu veux quand meme une tite macro et bien ils vont arriver les "vba" istes c'est sur
patience !!!
amicalement
remi

 

[bruno33]

Re : masquer une colonne à l'aperçu avt impression

Bonjour

Pour ne pas conserver la colonne masquée il suffit de sauvegarder avant de la masquer et de ne pas sauvegarder à la fin comme cela on garde la colonne non masquée.

Sub auto_close()
activeworkbook.saved=true (à la fermeture on dit à Excel que l'on a déjà sauvegardé et donc on quitte sans sauvegarder)

A+

 

[Océane]

Re : masquer une colonne à l'aperçu avt impression

Bonjour, Bruno, Malcy
Bonjour le forum

Merci pour vos solutions, mais en fait mon tableau s'adresse a des non initiés d'Excel, donc il faut que je leurs en demande le moins possible.

Il faudrait que lorsque l'opérateur clic sur la tite loupe : il obtienne un apercu avant impression sans la colonne j, et lorqu'il ferme l'apercu cette colnne J soit a nouveau visible.

C'est ce qui se passe pour l'instant, mais avec la colnne J visible.
A+

 

[Océane]

Re : masquer une colonne à l'aperçu avt impression

Bonsoir à tous
cette colonne " j " doit etre masquée uniquement à l'impression.
Visible à l'écran, invisible sur le papier.
A+