Discussion :

[louraluy]

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

[joe.levrai]

Bonjour,

expliquer ce que tu veux mettre en place est effectivement compréhensible, mais le descriptif de l'existant est trop succint.

Pour chaque ligne je dois rajouter des informations manuellement depuis un commentaire qui apparait dans mon listview.

tes commentaires apparaissent dans quoi :
- un contrôle (lequel ? il y a en combien ?) ?
- une colonne du listview (laquelle ? ) ?
- une colonne de la feuille excel ? (laquelle ? le commentaire est-il visible sur chaque ligne du listeview du coup ?) ?

tu les ajoutes "manuellement" comment tes commentaires ?

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.

ta liste de marques, elle est écrite quelque part dans Excel ?
c'est une liste figée, qui ne dépend pas de la ligne qu'on a sélectionné dans le listview ?
on écrit où la marque dans ta feuille excel ?

à quel moment ça doit faire l'action "écrire dans la page excel" :
- dès qu'on a sélectionné un choix dans le menu déroulant ? (c'est dangereux)
- on choisis une marque et ensuite on appuie sur un bouton ?

après avoir fait l'action, on masque le menu déroulant et l'utilisateur doit sélectionner une nouvelle ligne pour recommencer?
si on choisi une ligne qui contient déjà la marque, il se passe quoi ? L'utilisateur peut écraser l'ancienne marque ou pas ?


avec ces (quelques ) précisions, on devrait y voir plus clair ... mais il est pas interdit qu'il faille également expliquer l'objectif de ce listview et ce qu'il contient grosso modo