Impression de colonnes non adjacentes

[Gribouille83]

bonjour à tous...
je calle sur une macro excel vba...
j'utilise la feuille Facturation Ecritures qui comprend les colonnes de A à K
systématiquement je dois impimer les colonnes de A à C et D et E, ou F et G, ou H et I, ou J et K
dans le cas ci-dessous, je veux imprimer les colonnes A,B,C,F et G
la manoeuvre se fait mais lors du 'PrintPreview' les colonnes F et G ne sont pas affichées ni imprimées
Ce serait me rendre un immense service de m'aider , j'ai fait 4 macros

Bonnes Fêtes, Joyeux Noël à tous

Sheets("Facturation Ecritures").Select
Cells.Select
Selection.EntireColumn.Hidden = False 'pour afficher toutes les colonnes
Columns("D:K").Select
Selection.EntireColumn.Hidden = True 'cache la sélection
Columns("F:G").Select
Selection.EntireColumn.Hidden = False 'pour afficher les 2 colonnes
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.EntireColumn.Hidden = False 're-affiche toutes les colonnes

 

[HONORE M.A.H.J]

Bonjour,

Pourtant votre code fonctionne...

Cordialement,
HONORE

 

[Gribouille83]

merci de votre réponse, très sympa
mais ça ne fonctionne pas, les 2 colonnes s'ajoute sur la feuille mais au PrintPreview elles n'y sont pas et à l'impression
elles n'y sont pas non plus

 

[Lone-wolf]

Bonjour Gribouille, bienvenue sur XLD

Bonjour Honorat, le Forum

En PJ, fichier exemple et commenté.

 

[Lone-wolf]

Re Griboulle

Version2 avec choix dans Listbox. Donc, clique au choix sur les colonnes puis sur Print Preview.
Note: n'ayant pas d'imprimante, j'ai laissé en commentaire la ligne pour l'impression.