Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel imprimer

imprimer

1 réponse
Avatar
Anaïs
Bonjour!!!

Je dispose d'un userform où l'utilisateur peut choisir les champs à imprimer.
C'est à dire mon userform comporte plusieurs Checkbox ( entreprise,
responsable, ville,....), L'utilisateur coche les champs qu'il desire
imprimer.

Dans ma feuille excel, le champ Entreprise est dans la colonne A,
Responsable dans la colonne B,...

j'ai crée un code cependant mes champs s'impriment dans des pages
différentes, or je voudrais que tous les champs soient sur une même feuille
en colonne.

exemple de code pour 2 de mes chexckbox:

If entreprise = True Then
ActiveSheet.Columns("a:a").PrintOut

If responsable = True Then
ActiveSheet.Columns("b:b").PrintOut

end if
end if

merci d'avance
ANAIS
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
denis P
Salut
Si j'ai bien compris touts tes champs sont contigus et sur la la même
feuille...
Il suffit de masquer les colonne non sélectionnées...


If entreprise = False Then 'pas selec donc masquer
ActiveSheet.Columns("a")..EntireColumn.Hidden = True
end if


If responsable = False Then
ActiveSheet.Columns("b").EntireColumn.Hidden = True
end if

If patati.......coll c d f.....



'pour imprimer
ActiveSheet.Columns("a:b").PrintOut

'pour afficher les colonne masquer
Columns("A:E").EntireColumn.Hidden = False

denis p.

"Anaïs" a écrit dans le message de
news:
Bonjour!!!

Je dispose d'un userform où l'utilisateur peut choisir les champs à
imprimer.

C'est à dire mon userform comporte plusieurs Checkbox ( entreprise,
responsable, ville,....), L'utilisateur coche les champs qu'il desire
imprimer.

Dans ma feuille excel, le champ Entreprise est dans la colonne A,
Responsable dans la colonne B,...

j'ai crée un code cependant mes champs s'impriment dans des pages
différentes, or je voudrais que tous les champs soient sur une même
feuille

en colonne.

exemple de code pour 2 de mes chexckbox:

If entreprise = True Then
ActiveSheet.Columns("a:a").PrintOut

If responsable = True Then
ActiveSheet.Columns("b:b").PrintOut

end if
end if

merci d'avance
ANAIS