Discussion :

[GADENSEB]

Bonjour le Forum,

je travaille sur une listview qui affiche une Bdd

1 ) Le début de code me renvoi les 20 premiéres colonnes de la Bdd, mais je voudrais selectionner que qq colonnes :
- par exemple : la 3 la 5 et 42 (au hasard)

Quelle partie du code à modifier (et à optimiser) ? --> Dans l'usf BDD

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub IniListview()
Dim i As Long
Sheets("BASE EMPLOI").AutoFilterMode = False
With LISTBDD
   .ListItems.Clear
    With .ColumnHeaders
       .Clear
       .Add , , "1", 60
       .Add , , "2", 60
       .Add , , "3", 60
       .Add , , "4", 60
       .Add , , "5", 60
       .Add , , "6", 60
       .Add , , "7", 60
       .Add , , "8", 200
       .Add , , "9", 200
       .Add , , "10", 200
       .Add , , "11", 200
       .Add , , "12", 200
       .Add , , "13", 60
       .Add , , "14", 160
       .Add , , "15", 60
       .Add , , "16", 160
       .Add , , "17", 60
       .Add , , "18", 160
       .Add , , "19", 60
       .Add , , "20", 160
       .Add , , , 0
    End With
 
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
 
            For i = 2 To Sheets("BASE EMPLOI").Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheets("BASE EMPLOI").Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 3)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 4)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 5)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 6)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 7)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 8)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 9)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 10)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 11)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 12)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 13)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 14)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 15)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 16)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 17)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 18)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 19)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BASE EMPLOI").Cells(i, 20)
           .ListItems(.ListItems.Count).ListSubItems.Add , , i
 
        Next
 
    LISTBDD.ListItems(1).Selected = False
    Set LISTBDD.SelectedItem = Nothing
 
End With
 
End Sub

2) Je voudrais que la ligne que je double clique (code non commencé) dans la listview me permette d'ouvrir l'usf GESTIONPOSTE en récupérant les données de la ligne concernée dans le listview
Le pivot est la colonne CODEBASE...



Est-ce que c'est clair ?


Bonne aprem

Seb