Masquer Colonnes à l'impression RESOLU

[jacky49]

Bonsoir le Forum,

J'ai ce code qui me sert à imprimer un tableau mais je voudrais masquer des colonnes et je n'arrives pas à insérer les lignes de code pour les masquer , je voudrais masquer les colonnes EM,EO,EP
merci d'avance
jacky

Sub PlacementSurLaLigne(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long


With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
     With .PageSetup
        .PrintArea = "EI1:EY" & Derlig
    End With
    .PrintOut Copies:=4, Collate:=True
End With
End Sub

 

[JCGL]

Re : Masquer Colonnes à l'impression

Bonjour à tous,

Peux-tu essayer :

Sub PlacementSurLaLigne(ByVal WsName As String)
    Dim MaPlage As Range
    Dim Derlig As Long


    With ThisWorkbook.Worksheets(WsName)
 Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
       Columns("EM:EM").EntireColumn.Hidden = True
       Columns("EO:EP").EntireColumn.Hidden = True
        With .PageSetup
        .PrintArea = "EI1:EY" & Derlig
        End With
        .PrintOut Copies:=4, Collate:=True
    End With
End Sub

A + à tous

 

[jacky49]

Re : Masquer Colonnes à l'impression

Bonsoir Le Forum, JCGL,

merci cela fonctionne impeccable
jacky

 

[jacky49]

Re : Masquer Colonnes à l'impression

Bonsoir Le Forum, JCGL,

merci cela fonctionne impeccable
jacky

Re,
j'ai parlé trop vite, cela fonctionne sur un code mais des que je veux cacher certaines colonnes et laissé seulement les colonnes EI à EL visble et la colonne EQ, cela ne fonctionne plus et il me laisse les colonnes EI à EL visible ( la c bon) mais il me laisse visble la colonne EN alors que je veux qu'elle soit masquer et il me masque toutes les autres alors qu'il devrait me laisser la colonne EQ visible. Je joins le code
merci
jacky

Sub PlacementSurLaLigne(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long


With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
Columns("EM:EM").EntireColumn.Hidden = True
Columns("EN:EP").EntireColumn.Hidden = True
Columns("ER:EY").EntireColumn.Hidden = True
     With .PageSetup
        .PrintArea = "EI1:EY" & Derlig
    End With
    .PrintOut Copies:=4, Collate:=True
End With
End Sub

 

[JCGL]

Re : Masquer Colonnes à l'impression

Bonjour à tous,

Tu n'as toujours pas joint de fichier...

Laisse je l'ai fait pour toi...

A + à tous

 

[jacky49]

Re : Masquer Colonnes à l'impression

Bonsoir le forum, JCGL,

Je pensais l'avoir joint mais il n'est pas passé et je n'ai pas vérifié. Mais pour ce qui est du code, en fait il fonctionne très bien, j'ai juste oublier d'associer le bouton au bon code. Erreur de ma part, j'aurais du vérifier comme il faut avant de poster
merci beaucoup
jacky