Bonjour à toutes et à tous,

J'ai un petit problème.

Dans une listview j'affiche des lignes issues dans un fichier excel. Pour chaque ligne je dois rajouter des informations manuellement depuis un commentaire qui apparait dans mon listview.
Ce que je voudrais c'est que quand je sélectionne une ligne, cela affiche dans un textbox le commentaire qui correspond à cette ligne.
De plus, je voudrais ajouter un menu déroulant à coté dans lequel je mettrais des marques, l'utilisateur se référant au commentaire pour remplir la marque. Une fois la marque remplie, cela l'enregistrera dans la feuille excel.

J'espère a]voir été assez claire je vous mets un bout de mon code actuel.
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
Private Sub UserForm_Initialize()
 
    ' Permet de cacher les boutons
    Contact_CB.Visible = False
    RES_CB.Visible = False
    Type_CB.Visible = False
    Marque_CB.Visible = False
    Commentaire_TB.Visible = False
 
 
'initialisation des variables
    Dim rg As Range
    Dim n As Integer
    Dim i As Integer
 
 
 
  Application.ScreenUpdating = False
 
    'Indication de la feuille dans laquelle on travaille et on va prendre les données
    Sheets("Export").Activate
    With ActiveSheet
 
        Set rg = [A1]   'ligne avec les titres
        n = 14   'nb de colonnes de données
 
        With Me.RES_LV
            'ajout des titres de colonnes
            For i = 1 To n
                .ColumnHeaders.Add , , rg.Offset(0, i - 1)
            Next i
 
            'ajout des éléments de la 1re colonne
            Set rg = [A2]   '1re ligne avec les données
            Do Until IsEmpty(rg)
                .ListItems.Add , , rg
                'ajout des éléments des autres colonnes
                For i = 1 To n
                    .ListItems(rg.Row - 1).ListSubItems.Add , , rg.Offset(0, i)
                Next i
                Set rg = rg.Offset(1, 0)    'prochaine ligne
            Loop
 
 
            .FullRowSelect = True   'permet de choisir une ligne complète
            .MultiSelect = True     'permet de sélectionner plusieurs lignes
            .View = lvwReport       'format d'affichage des données
        End With
    End With
 
    Sheets("Accueil").Activate
 
    Application.ScreenUpdating = True
 
End Sub