Discussion :

[alsimbad]

juste parce que c'est toi et que tu as souvent été bon avec moi

[ouskel'n'or]

Ah ! C'est ça ! Je ne connaissais pas. Entendu parler ici et là, mais par des gens qui savaient, pas des gens qui disaient.
Ceci dit tu n'as pas intérêt à avoir 12 colonnes, déjà, avec 5 ça fait 12 possibilités...
Bon, je dormirai mieux cette nuit.
Merci Alsimblad, je te revaudrai ça le jour où tu voudras chercher un mot en majuscules dans une chaîne en minuscules, promis !

[alsimbad]

ya pas de quoi, je vous en prie mon cher; pour une fois que c'est moi. c'est vrai que si tu veux mixer toute tes colonne, c'est pas forcement le plus simple, mais le plus souvent, le tableau de base reste mle meme, genre nom prénom n°matricule, et les autre colonne sont des groupes qui vont ensemble genre taille poid d'un coté et adresse telphone de l'autre
donc pour l'infirmier, c'est la vue 1 evec nom prenom taille poid
et pour le facteur, c'est nom prenom adresse telepheone
petit conseil pour keisti si tu veux essaye, la premier vue que tu dois enregistrer c'est une vue globale, avec toute tes colonne, parce que sinon, ensuite quand tu commence a les masquer, tu dois les faire réaparaitre une par une, c'est galere, tandis que là, un fois la vue enregistrer, il suffit de faire affichage personaliser:tout
et hop

[k-eisti]

Bonjour a tous

j'été un peut malade ces dérniers jours, et j'ai pas pu travailé sur mon application , j'ai essayé d'adapté les code source que ouskel'n'or ma donnés concernant les colonnes masquées et le choix des champs a imprimes.

car je doit en prémier temps si j'ai bien compris de récuperer sous un objet de type Range la référence des champs de la listBox2 qui contient les champs choisis par l'utilisateur, et je suis bloqué car je ne sais pas le faire , et peut être c'est pas ce qu'il faut faire

Merci de votre aide

[ouskel'n'or]

Comme j'avait toujours ton fichier...
Place ça dans la feuille de code de l'userform après avoir supprimé tout ce qu'il y avait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim FL1 As Worksheet
 
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = 0 Then Exit Sub
Me.ListBox2.AddItem Me.ListBox1.List(Me.ListBox1.ListIndex)
End Sub
 
Private Sub CommandButton2_Click()
Me.ListBox2.List = Me.ListBox1.List
End Sub
 
Private Sub CommandButton3_Click()
If Me.ListBox2.ListIndex = -1 Then Exit Sub
Me.ListBox2.RemoveItem Me.ListBox2.ListIndex
End Sub
 
Private Sub CommandButton4_Click()
Me.ListBox2.Clear
End Sub
 
Private Sub CommandButton5_Click()
Dim Liste, i, NbreColonne
FL1.Cells.EntireColumn.Hidden = False 'mis en remarque pour tester
Liste = ";"
For i = 0 To Me.ListBox2.ListCount - 1
    Liste = Liste & Me.ListBox2.List(i) & ";"
Next
NbreColonne = Range("IV1").End(xlToLeft).Column
    For i = 1 To NbreColonne
        If InStr(Liste, ";" & FL1.Cells(1, i) & ";") = 0 Then
            FL1.Columns(i).EntireColumn.Hidden = True
        End If
    Next
    FL1.Printout
End Sub
 
Private Sub UserForm_Activate()
Set FL1 = Worksheets("FichierCentrale")
Dim NoCol
NoCol = 1
Do
    Me.ListBox1.AddItem FL1.Cells(1, NoCol).Value
    NoCol = NoCol + 1
Loop While FL1.Cells(1, NoCol).Value <> ""
 
End Sub

Tu dis

PS - Là, j'ai fait ton boulot, alors essaie au moins de comprendre ce que j'ai fait.