[E-03]Sélection colonne dans ListView

Version imprimable

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 :

Fournisseur
Référence
Désignation
Qté
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:

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

30/03/2009, 14h40
laetitia

bonjour fidecourt le forum qu entends tu

Citation:

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

un autre userform une autre feuille ????
30/03/2009, 18h19
fidecourt

Bonjour à la "spécialiste de ListView" Laeticia !

Oui, je voudrais qu'en cliquant sur la listview dont la première colonne est Fournisseur, puis Référence arriver sur le formulaire UsfDetailArticle pour lister les infos concernant les entrées et sorties de stock de LA REFERENCE

or sur les ListView lorsque l'on clique sur une ligne, cela sélectionne la donnée de la première colonne

je voudrais savoir s'il est possible en mettant une formule magique, que ce soit la réf soit la colonne 2 qui soit sélectionnée

ESt ce plus clair ?
A+ et merci de te pencher sur mon souci !

Salut
comme ceci

Code:

1
2
3
4
5
6
Private Sub ListBox1_Change()
Dim texteL As String
 
texteL = ListBox1.Column(1, ListBox1.ListIndex)
 
End Sub

A++
Qwaz

31/03/2009, 11h20
fidecourt
bonjour Qwazerty !

merci pour ta piste, j'ai fini par trouver la bonne syntaxe pour la listview voici le code pour ma listview nommée "LvwFour" :
Code:

1 2 3 Private Sub LvwFour_Click() Dim NumArticle As String NumArticle = LvwFour.SelectedItem.ListSubItems(1)
cela sélectionne bien la donnée de la deuxième colonne de la listview c-à-d le 1er ListSubItems

encore merci à toi et à Laeticia qui m'a beaucoup aidé pour la construction des différentes listview de mes formulaires
A+++