VBA Listview

Version imprimable

VBA Listview

Bonjour/soir forum

Est ce que les listviews fonctionnent en xl2003

Je n'arrive pas à faire afficher la moindre entête.. et la ligne des noms lorsque je retire les marques de commentaires. J'ai épluché la doc

J'ai ramassé sur le site, un exemple FiltreListeView.xls dont les fonctionnalités sont celles que je recherche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
    Dim i As Long
    '--- code de la ListView1 ---
    With ListView1
        With .ColumnHeaders
           .Clear
           .Add , , "Nom", 100
           .Add , , "Domaine", 100
           .Add , , "Somme", 100
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
'                For i = 1 To Sheets("Résultats").Range("A65536").End(xlUp).Row
'                   .ListItems.Add , , Sheets("Résultats").Cells(i, 18)
'                   .ListItems(1).ListSubItems.Add , , Sheets("Résultats").Cells(i, 4)
'                Next
'        ListView1.ListItems(1).Selected = False '--- désactive la sélection de la première ligne par défaut ---
'        Set ListView1.SelectedItem = Nothing    '--- désactive la sélection de la première ligne par défaut ---
    End With
End Sub

Voilà, une autre longue journée par très lucrative...
A+
Bo

j'utilise le listView avec Excel 2003 sans problème

Pour l'exemple un code que j'utilise
par double clic sur un élément du listView j'alimente une feuille de calcul

Code:

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
Option Explicit
 
Private Sub CommandButton1_Click()
    Me.Hide
End Sub
 
Private Sub ListView1_DblClick()
 
'Recherche de l'index de la ligne double cliquée
Dim indice As Integer, ligneVide As Integer
 
indice = ListView1.SelectedItem.Index
ligneVide = 1
 
'Recherche première lignevide
While Sheets("listview").Cells(ligneVide, 1) <> ""
    ligneVide = ligneVide + 1
Wend
 
'Inscription des valeurs de la ligne double cliquée
Sheets("listview").Cells(ligneVide, 1) = ListView1.ListItems(indice).Text
Sheets("listview").Cells(ligneVide, 2) = ListView1.ListItems(indice).ListSubItems(1)
Sheets("listview").Cells(ligneVide, 3) = Format(ListView1.ListItems(indice).ListSubItems(2), "## ##0.00 €")
 
End Sub
 
Private Sub UserForm_Activate()
Dim ligneArticle As Integer
 
With ListView1
    With .ColumnHeaders
        .Clear 'Suppression des titres de colonnes
        'Alimentation des titres de colonne :
        'Titre de la colonne  : "Référence",
        'Largeur de la colonne :  ListView1.Width * 0.3,
        'Alignement de la colonne : lvwColumnLeft
        .Add , , "Référence", ListView1.Width * 0.3, lvwColumnLeft
        .Add , , "Désignation", ListView1.Width * 0.5, lvwColumnLeft
        .Add , , "Prix public", ListView1.Width * 0.19, lvwColumnRight
    End With
 
End With
 
ligneArticle = 2
 
ListView1.ListItems.Clear 'Suppression des éléments de la liste
 
While Sheets("Feuil1").Cells(ligneArticle, 1) <> ""
    With ListView1
        'Alimentation des éléments de la liste
        .ListItems.Add ligneArticle - 1, , Sheets("Feuil1").Cells(ligneArticle, 1)
        .ListItems(ligneArticle - 1).SubItems(1) = Sheets("Feuil1").Cells(ligneArticle, 2)
        .ListItems(ligneArticle - 1).SubItems(2) = Format(Sheets("Feuil1").Cells(ligneArticle, 3), "## ##0.00 €")
        ligneArticle = ligneArticle + 1
    End With
Wend
 
End Sub

20/05/2009, 17h33
Bocage

Listview suite...

Bonjour JPierreM, forum

Avant d'aller plus loin, il faut savoir que j'ai copié le listview du userform du fichier downloadé. :nono:
La nuit porte conseil et je me suis souvenue qu'en labview, j'ai déjà eu, par le passé, un pb avec la copie d'un indicateur qui avait perdu ses caractéristiques:
J'ai récréer un listview from scratch ...
Hop j'ai des entêtes...voyons ce que ca dit pour le reste et pour le double clic

Merci!

A plus
Bo

la visibilite des entetes

se fait par la propriete .HideColumnHeaders = False

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
    Dim i As Long
    '--- code de la ListView1 ---
    With ListView1
        .HideColumnHeaders = False
       With .ColumnHeaders
           .Clear
           .Add , , "Nom", 100
           .Add , , "Domaine", 100
           .Add , , "Somme", 100
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
    End With
End Sub

:ccool: et bonne continuation

20/05/2009, 20h43
Bocage

Listview...

Bonjour Lynx92260, forum,

je vais ajouter cette ligne...merci