et oui encore moi !
et encore une question sur les ListView !
je pense qu'après celle ci je devrais avoir fait le tour de la question....
dans une listview dont l'ordre des colonnes est :
  1. Fournisseur
  2. Référence
  3. Désignation
  4. Qté
  5. etc...

je voudrais qu'en cliquant sur la listview la sélection se fasse non pas sur le Fournisseur (1ère col) mais sur la référence, permettant ainsi d'arriver directement sur la fiche détaillée de la référence produit sélectionnée
Est ce possible ?
voici le code de la listview en question :
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
Private Sub userform_initialize()
With LvwFour
    With .ColumnHeaders
       .Clear
       .Add , , "Fournisseur", 100
       .Add , , "Référence", 100
       .Add , , "Désignation", 250
       .Add , , "Qté en Stock", 70, (1)
       .Add , , "Prix Vente HT", 70, (1)
       .Add , , "Durée", 70, (1)
       .Add , , "Poids MA", 70, (1)
       .Add , , "Calibre", 70, (1)
       .Add , , "Type", 100, (1)
        End With
.Gridlines = True
 For i = 2 To Sheets("FOURNISSEURS").range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("FOURNISSEURS").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 17)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("FOURNISSEURS").Cells(i, 12), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 7)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 4)
    If Sheets("FOURNISSEURS").Cells(i, 17) > 0 Then
    .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &H4040
     Else
    .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &HFF
    .ListItems(.ListItems.Count).ListSubItems(3).Bold = True
    End If: Next: End With
 End Sub
Je ne sais pas s'il est possible de faire une telle action sur une listview ?
d'avance merci