Faire un formulaire pour impression d'un rapport

[Louve]

Bonjour, j'ai une base de données comportant des colonnes de A à AE. J'aimerais que les utilisateurs de cette base de données puissent à l'aide d'un bouton de contrôle et par l'ouverture d'un formulaire puissent cocher les colonnes (par titre) qu'ils aimeraient imprimer pour leurs besoins.

Je suis débutante en VBA et j'ai besoin de votre aide.

Merci à l'avance de votre aide.

 

[joss56]

Re : Faire un formulaire pour impression d'un rapport

Bonjour,


Le principe: créer sur une feuille excel la liste des entêtes de colonnes.
Nommer cette liste d'un nom de ton choix
Creer un contrôle combobox dans la barre d'outils Boîte à outils contrôles
Lier ce contrôle à ta liste nommée
Declencher un évenement "sur click" du combo:

sub combobox1_onclick()

columns(combox1.listindex+1).printout

end sub

A tester...

 

[joss56]

Re : Faire un formulaire pour impression d'un rapport

pardon, il faut lire:

sub combobox1_click (et non onclick)

 

[Compte Supprimé 979]

Re : Faire un formulaire pour impression d'un rapport

Salut Louve, salut Joss56,

Sinon avec un USF et un ListView qui te permet de cocher les colonnes que tu veux imprimer 😉

Voir le fichier joint.

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Wow! Ça marche! Mille merci à Bruno.

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Bonjour, j'ai essayé de recopier le module et le USF dans mon vrai tabeau avec les données, mais une « erreur de compilation variable non définie » se produit 😛rivate Sub UserForm_Initialize()
Dim DerCol As String, Cel As Range, Ind As Integer
DerCol = ActiveSheet.Range("IV3").End(xlToLeft).Address
Ind = 1
With Me.ListView1
.ListItems.Clear
For Each Cel In Range("A3:" & DerCol)
.ListItems.Add , Cel.Address, Cel
Ind = Ind + 1
Next
.View = lvwReport 'affichage en mode Rapport .Gridlines = True 'affichage d'un quadrillage
.FullRowSelect = True 'Sélection des lignes comlètes
.LabelEdit = 1 'empêcher la modification manuelle des données en spécifiant la valeur 1
.MultiSelect = False ' Multiselection inutile
End With
End Sub

Que signifie : View = 1nwiew Report ?

Merci à l'avance de votre aide.

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Personne ne peut m'aider ?

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Comment je fais pour copier cette macro que Benoit m'a fait sur ce forum dans mon vrai classeur ?

 

[Pierrot93]

Re : Faire un formulaire pour impression d'un rapport

Bonjour Louve

si j'ai bien compris, dans l'éditeur bva, fenêtre projet, tu prends l'USF avec la souris et tu le déplaces dans le projet du classeur que tu veux, de ce fait il se copiera avec le code.

bonne soirée
@+

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

C'est exactement ce que je fais, mais j'ai toujour l'erreur décrite plus haut sur le code view = IvwReport

 

[Pierrot93]

Re : Faire un formulaire pour impression d'un rapport

Re Louve

je sais pas trop, essaye de mettre cette ligne en commentaire, c'est peut être une proprièté qui est non disponible sur ta version...

@+

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Bonjour, merci de me répondre. Que signifie essaie de mettre cette ligne en commentaire ?

 

[Pierrot93]

Re : Faire un formulaire pour impression d'un rapport

re

tu met un quote devant (4 en minuscule)

'

quelle version excel as tu ?

@+

 

[Louve]

Re : Faire un formulaire pour impression d'un rapport

Pierrot, je possède Excel 2003. Désolée, mais je ne comprends pas où je dois mettre ce quote ? Devant quoi ?

Merci de me répondre

 

[Pierrot93]

Re : Faire un formulaire pour impression d'un rapport

Re

deval la ligne qui pose problème :

'.View = lvwReport 'affichage en mode Rapport .Gridlines = True 'affichage d'un quadrillage

@+