Impression de certaines colonnes

[G'Claire]

Salut a toutes et tous

Salut a toutes et tous

J'utilise ce code pour imprimer les lignes dont les données de la colonne O sont égale a Sorti.

Private Sub CommandButtonImpressionDossiersSortis_Click()

Sheets("Tool_Dossiers").[T7].AutoFilter Field:=15, Criteria1:="Sorti"
ActiveWindow.SelectedSheets.PrintOut
MsgBox "Impression en cours"
Sheets("Tool_Dossiers").AutoFilterMode = False

End Sub

Ce que j'aimerai s'est imprimer certaine colonnes car je n'ai pas besoin de toutes les colonnes suivant ce critères de sélection :

Voici les colonnes et l'ordre dont j'aurai besoin :

A - E - F - G - I - H - R - S - Q - P

Je vous remercient par avance de votre aide, G'Claire

 

[Pascal76]

Salut Claire,

Peut-être y-a-t-il une autre solution mais ce que je fais dans ton cas je masque les colonnes que je ne veux pas :

Columns("B").EntireColumn.Hidden = True

j'imprime et ensuite je les réaffiche

Columns("A:Q").EntireColumn.Hidden = False

Bon courage

Pascal

 

[G'Claire]

Pascal, le Forum

C'est bon cela fonctionne, je vais changer l'ordre de mes colonnes pour avoir l'impression dans le bon ordre, par contre je n'ai plus les entètes de colonnes, es-ce normale? Voila ce que cela me donne :

Private Sub CommandButtonImpressionDossiersSortis_Click()

Columns("B").EntireColumn.Hidden = True
Columns("J:N").EntireColumn.Hidden = True
Columns("T").EntireColumn.Hidden = True

Sheets("Tool_Dossiers").[T7].AutoFilter Field:=15, Criteria1:="Sorti"
ActiveWindow.SelectedSheets.PrintOut

MsgBox "Impression en cours"

Sheets("Tool_Dossiers").AutoFilterMode = False
Columns("A:T").EntireColumn.Hidden = False

End Sub


Merci, G'Claire

 

[Pascal76]

Salut Claire

j'ai essayer ta macro et je n'ai pas de problème, j'ai bien les en-têtes de colonnes.

N'y aurait-il un problème de zone d'impresson définie où ta ligne d'en-tête ne serait pas pris en compte ?

@ +

Pascal