Discussion :

[rampage92]

BOnjour à tous,

J'ai la version la plus récente de Excel donc je n'ai pas accès aux Listviews. J'ai une Listbox dans une Frame qui a un nombre important d'éléments variables. ( entre 400 et 3500 éléments) Je gère donc l'affichage avec un scrollbar. J'aimerai pouvoir ajouter des Checkboxs devant chaque élément pour reproduire l'esprit d'un Listview. Est ce possible ?

Merci à tous

[rampage92]

J'a itrouvé ma réponse :

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
Private Sub CommandButton1_Click()
    With ListBox1
        For i = 1 To .ListCount - 1
            If .Selected(i) = True Then mess = mess & i & vbCrLf
        Next
    End With
    MsgBox mess
End Sub
Private Sub ListBox1_Click()
    MsgBox ListBox1.ListIndex
End Sub
Private Sub UserForm_Activate()
    Dim plage As Range, i As Long, large
    With Sheets("Ventes")
        Set plage = .Range("A1").CurrentRegion
        For i = 1 To plage.Columns.Count: large = large & ";" & Round(plage.Columns(i).Width): Next    ' on capture la largeur des colonnes
        large = Mid(large, 2, 200)
        With Me.ListBox1
            .RowSource = plage.Address
            .ColumnHeads = True
            .ColumnWidths = large
            .ColumnCount = plage.Columns.Count
            .ListStyle = 1
            .MultiSelect = 1
        End With
    End With
End Sub

Mais ma réponse appelle une autre question. Quand j'execute ce code, j'ai un titre dans mes colonnes qui correspond à l'adresse de la colonne. JE ne souhaite pas cela. Comment faire ?

[pijaku]

Bonjour,

Enlever la ligne :

Code :

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

.ColumnHeads = True

[Mr l'Ashanti]

pour activer les contrôles supplémentaires afin d'ajouter la listview il faut lancer ton application access et tu la ferme ensuite tu reviens dans excel et le tour est joué.
Au debut je ne pouvais pas utiliser les contrôles supplémentaires mais après une petite curiosité sur access j'ai pu le lancer et obtenir la listview et ajouter d'autres contrôles comme combobox images, listes images etc...