sélectionner une item dans une listview

[pascal21]

bonjour à tous
j'aimerais savoir comment s'y prendre pour sélectionner un item (cellule) sur une listview et envoyer son contenu dans la sheets(10).range("a1") par exemple
j'ai essayé plusieurs choses mais sans résultat je ne sais même pas quelles propriètés sélectionner
merci à vous
si vous connaissez un tuto sur le sujet n'hésitez pas à le donner

 

[13GIBE59]

Re : sélectionner une item dans une listview

Salut Pascal. 🙂

Le must en matière de tutoriel :

http://silkyroad.developpez.com/VBA/ListView/

Tu as tout là dedans. reviens le cas échéant.

 

[pascal21]

Re : sélectionner une item dans une listview

Sheets(10).Range("a1").Value = (ListView1.SelectedItem.Text)
merci c'est parfait ça fonctionne comme je l'entends
pour ceux que ça interresse, j'ai mis le code dans l'évennement clic

 

[pascal21]

Re : sélectionner une item dans une listview

re
je cherche maintenant à colorier une ligne de la listbox si la 3eme colonne est différente de 100
je ne trouve pas l'info

 

[jp14]

Re : sélectionner une item dans une listview

Bonjour

Ci dessous un code pour exemple.
A adapter

Private Sub UserForm_Initialize()
Call USF
End Sub

Sub USF()
Dim i As Long
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Date", 60
       .Add , , "Heure", 60, 2
       .Add , , "Nombre", 60, 2
       .Add , , "%", 60, 2
    End With
 .View = lvwReport
 .FullRowSelect = False
 .Gridlines = True
  
        For i = 1 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
           .ListItems.Add , , CDate(Sheets("Sheet1").Cells(i, 1))
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Sheet1").Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Sheet1").Cells(i, 3) '
           .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Sheet1").Cells(i, 4), "0%")
             If Sheets("Sheet1").Cells(i, 4) <> 100 Then
               .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &HFF00&    ' '&HFF0000
             Else
               .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &HFF
             End If
        Next
End With
           
End Sub

JP

 

[Paritec]

Re : sélectionner une item dans une listview

Bonsoir Pascal JP14
JP 14 avec ton code tu ne vas pas colorier toute le ligne ou alors je me trompe?
tu vas colorier seulement la 4ème colonne non?
à te relire
a+
Bon week-end
Papou 🙂

 

[jp14]

Re : sélectionner une item dans une listview

Bonsoir Paritec, Pascal

Bonsoir Pascal JP14
JP 14 avec ton code tu ne vas pas colorier toute le ligne ou alors je me trompe?
tu vas colorier seulement la 4ème colonne non?
à te relire
a+
Bon week-end
Papou 🙂

Effectivement la macro change uniquement la couleur de la colonne 3

Pour changer la couleur d'une ligne il faut une boucle sur les différentes colonnes ou écrire simplement

.ListItems(.ListItems.Count).ForeColor = &HFF00& 
.ListItems(.ListItems.Count).ListSubItems(1).ForeColor = &HFF00& 
.ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF00& 
...................................................................

Ci dessous un exemple de macro pour changer la couleur de la ligne avec une boucle.

Dim £i As Long
With Me.ListView1
For £i = 1 To .ListItems.Count
    If .ListItems(£i).ListSubItems(3) <> "100" Then ' les données sont sous la forme texte
        .ListItems(£i).ForeColor = &HFF0000
           For £j = 1 To .ColumnHeaders.Count - 1
              .ListItems(£i).ListSubItems(£j).ForeColor = &HFF0000
           Next
    Else
        .ListItems(£i).ForeColor = &H0&
           For £j = 1 To .ColumnHeaders.Count - 1
              .ListItems(£i).ListSubItems(£j).ForeColor = &H0&
           Next £j
    End If
Next £i
End With

Dans la macro précédente on changeait la couleur lors de la création de la listview, la macro ci dessus change la couleur une fois la listview crée.

JP