après avoir déjà mis un poste mais sans grand interet puisque sans PJ je reviens vers vous pour un nouveau problème !
dans le fichier joint, j'ai un userform qui à l'ouverture alimente une listview sous conditions.
ce que je souhaiterai faire c'est lorsque je clique dans la listview, que dans le textbox1 s'affiche la valeur inscrite
dans la colonne D de la Feuil 1 correspondant à l'interesse selectionne dans la listview.
en gros, je cherche a recuperer le numéro de ligne correspondant de facon a pouvoir intervenir sur n'importe quel colonne correspondant à la ligne selectionnee dans la listview
merci pour votre aide precieuse car je débute totalement avec les listview !
PS avec les listbox pas de problème : listbox1.listindex mais sur listvieuw cela me renvoie seulement le numero de la ligne de la listview pas celle du classeur
bonjour Jammy
ton fichier n'a pas de code il faut enregistré avec extension xlsm
la listview a une propiété key tu peux y mettre l'adresse de la cellule qui correspond
oui j'ai corrigé mon fichier joint
j'ai vu effectivement sur le forum la fonction key mais etant novice en la matière je n'arrive pas a le faire
en fait je ne sait pas sous quelle forme inscrire ma key !
je crois que cel doit etre dans cette ligne non?
With ListView1
.ListItems.Add , KEY, cel.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 2)
End With
en fait ce que souhaite savoir maintenant que j'ai pris connaissance de cette KEY,
est il possible que quand je clique dans la Listbox sur un nom, cela me remplisse la colonne F avec un "OK" en face du nom correspondant en faisant reference à la KEY
du genre .cells(key,5).value="OK"
Key me renvoie la cellule, comment selectionne une autre cellule sur la meme ligne?
peu familier des Listview, j'ai gratté un peu et mes trouvailles diffèrent un peu des propositions de Bebere, je les soumets donc:
dans Private Sub IniListview(Tbl As Variant)
Code:
For Each cel In plage
If cel.Value = "TEC 2014.1" Then
With ListView1
.ListItems.Add , , cel.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 2)
.ListItems(.ListItems.Count).Key = cel.Address
End With
End If
Next cel
Pour le transfert dans la textbox
Code:
Private Sub ListView1_Click()
TextBox1.Value = ListView1.SelectedItem
End Sub
bonjour Paf
tu peux aussi faire comme suit
clé=Me.ListView1.ListItems(ListView1.SelectedItem.index).Key
écart=2'colonne D
range(clé).offset(,ecart)="ok"