Discussion :

[fidecourt]

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

[laetitia]

bonjour fidecourt le forum qu entends tu

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 ????

[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 !

[Qwazerty]

Salut
comme ceci

Code :

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

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

A++
Qwaz

[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 :

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

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+++