Discussion :

[TSAFACK-M]

Bonjour chers tous.

J'ai créer un Controle ListView Dynamiquement en VBA Excel et je voudrais bien agir dessus grâce au évenements comme ListView_Click, ListView_DbClick, ListView_MouseMove...

Voici le Code Permettant de générer la ListView dans le UserForm

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
Dim lvwCtrl as MSComctlLib.ListViewCtrl
 
Public Sub CreatDynamicFormControl(ParentForm As UserForm, _
                                bStrProgrID As ListView, _
                                ListViewName As String, _
                                IsControlVisible As Boolean, _
                                ParamArray ListColHeaders() As Variant)
    On Error GoTo ErrHnd
    Set lvwCtrl = ParentForm.Controls.Add("MSComctlLib.ListViewCtrl", ListViewName, IsControlVisible)
        With lvwCtrl
               'Propriétés du Contrôle...
        End With
    Exit Sub
ErrHnd:
    MsgBox "Une Erreur d'exécution est survenue dans la procédure de contruction du control ListView (" & _
    Err.Description & ")", 16 + 0, "Echec construction Object ListView"
    If (Not lvwCtrl Is Nothing) Then Set lvwCtrl = Nothing
End Sub

Tout ce que je parviens à faire sur le contrôle ainsi crée, c'est juste agir dessus en faisant un click sur CommandButton.

en faisant Me("ListViewProduit").Font.Size = 12 par Exemple


Quelqu'un aurrait-il une idée de comment faire avec les Événements natifs du ListView ?

Cordialement.

[Thumb down]

Code :

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

1
2
3
4
Dim WithEvents  lvwCtrl as MSComctlLib.ListViewCtrl
 Private sub lvwCtrl_ItemClick(ByVal Item As MSComctlLib.ListItem)
...
End Sub

[TSAFACK-M]

Merci pour la réponse, je teste ça.

Cordialement