GADENSEB
XLDnaute Impliqué
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
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
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:
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