Discussion :

[olivier-tig]

bonjour
je souhaite masquer une colonne avant d'imprimer et ensuite l'afficher.
pour cela jai fait les procedures suivante, mais exel imprime non pas apres la fin de la procedure "BEFOREPRINT", mais apres le "WORKSHEET"


dans le thisworbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0 
    Range("A1").Value = "1"
   Application.ScreenUpdating = True
End If
End Sub

dans la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Activate()
   Application.ScreenUpdating = False
Columns("C:C").ColumnWidth = 11.14
   Application.ScreenUpdating = True
End Sub
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellChange As Range
Set CellChange = Range("A1")
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
If CellChange = "1" Then
 Application.ScreenUpdating = False
CellChange = ""
Sheets("acceuil").Activate
Sheets("DALLAS").Activate
 Application.ScreenUpdating = True
End If
End If
 
End Sub

[Daniel.C]

Bonjour,

Adapte cette macro. L'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cancel = True

annule l'instruction d'impression. Il faut donc refaire l'impression.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0
    Range("A1").Value = "1"
    Cancel = True
    ActiveSheet.PrintOut
    Columns("C:C").ColumnWidth = 10.71
   Application.ScreenUpdating = True
End If
End Sub

[olivier-tig]

En fait j'avais deja essayer cette solution qui ne fontionne pas car " cancel =true" annule la foction BEFOREPRINT dans son entier. Si on ne le met pas, la procedure va imprimer 2 fois mais sans masquer la colonne, puisqu'on la masquer et reafficher avant impression.

[Daniel.C]

Exact. Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0
    Range("A1").Value = "1"
    Cancel = True
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    Columns("C:C").ColumnWidth = 10.71
   Application.ScreenUpdating = True
End If
End Sub

la ligne 8, à adapter ne re-provoque pas le déclenchement de la procédure.

[olivier-tig]

Ca foctionne correctement merci