Cliquer et modifier subitems d une listview

Re : Cliquer et modifier subitems d une listview

Bonsoir.
Pour la sélection d'une colonne précise d'une ligne précise, d'une cellule en somme, je ne sais pas. Pour copier tous les champs de cette ligne dans des TextBox, vous n'avez pas forcément besoin de connaitre son numéro de ligne: l'évènement ItemClick vous passe en paramètre un objet Item qui représente la ligne. Je dis bien la ligne elle même et pas autre chose, ce qui veut dire qu'il est directement muni de la propriété Text pour sa 1ère colonne et de la collection SubItems

Re : Cliquer et modifier subitems d une listview

salut

un exemple mais en 2 temps.

Re : Cliquer et modifier subitems d une listview

bonjour,
merci pour vos réponse
Si , je n'arrive pas à charger ton ficher (objet non présent sur cette machine ????)
mais sinon j'ai trouve une solution sur ce même site

au chargement de la listview



UserForm2.ListView1.ListItems.Add , , t(li, 3)
UserForm2.ListView1.ListItems(.ListItems.Count).Tag = K






Private Sub ListView1_DblClick()
N°_LIGNE = UserForm2.ListView1.SelectedItem.Tag
INDEX_ITEM_LISTVIEW = UserForm2.ListView1.SelectedItem.Index

With UserForm4
.TextBox1.Value = UserForm2.ListView1.SelectedItem.Text
.TextBox2.Value = UserForm2.ListView1.SelectedItem.ListSubItems(1).Text
.TextBox3.Value = UserForm2.ListView1.SelectedItem.ListSubItems(2).Text
.TextBox4.Value = UserForm2.ListView1.SelectedItem.ListSubItems(3).Text
.TextBox5.Value = UserForm2.ListView1.SelectedItem.ListSubItems(4).Text
.TextBox6.Value = UserForm2.ListView1.SelectedItem.ListSubItems(5).Text
.TextBox7.Value = UserForm2.ListView1.SelectedItem.ListSubItems(7).Text
.TextBox8.Value = UserForm2.ListView1.SelectedItem.ListSubItems(8).Text

.Show vbModeless
End With

End Sub

cela charge toute la ligne
sinon une autre solution pour avoir le n° de colonne
https://www.excel-downloads.com/thr...olonne-apres-un-clic-dans-une-cellule.158413/

la deuxième solution en créant un tableau fonctionnne

bonne fin de journée

Re : Cliquer et modifier subitems d une listview

salut

voilà les lignes écrites dans la page de code de l'UsF

clic sur une ligne puis clic sur colonne donnent la donnée voulue.

Je me sers d'un fichier du lien pour voir maintenant Si... tu peux lire.Tiens moi au courant s'il te plait.

Re : Cliquer et modifier subitems d une listview

rebonjour,
même si j'ai ma solution j'ai essayé quand même de retester
même message impossible d'ouvrir car l'objet n'est pas sur cette machine

cela s'ouvre quand même mais au chargement de uf
cela bloque sur
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

bibliothèque introuvable

laquelle me manque t'il ?? je l'ignore

enfin je le redis pour moi cela fonctionne mais c'est vrai que par curiosité j'aimerais bien savoir pourquoi cea ne fonctionne pas
bonne fin de journée

Re : Cliquer et modifier subitems d une listview

Bonsoir.
Ça arrive assez fréquemment avec les ListView que l'objet ne soit pas défini dans les mêmes dossiers d'une machine à l'autre.
Vérifiez si la référence à MSComCtlLib n'est pas portée MANQUANT. Si c'est le cas décochez la, mettez la bonne à la place et réinstallez une ListView dans L'Userform.

Re : Cliquer et modifier subitems d une listview

bonsoir.
En théorie je suis d'accord (enfin je dis ça pour crâner parce que je n'y connais pas grand chose🙂) mais comment vérifier que c'est porté manquant, la décocher et la mettre à la bonne place.
bonne soirée

PS Au passage Dranreb, merci pour tes nombreuses réponses!!

Re : Cliquer et modifier subitems d une listview

C'est écrit en clair comme ça: "MANQUANT" dans VBA, Menu Outils, Références… Et la décocher est tout ce qu'on peut faire.
Elle peut parfois empêcher le chargement de la bonne car l'ajout se fait par référence au fichier tandis qu'une fois ajoutée elle est connue sous son nom de bibliothèque. Or ce nom est déjà pris par la référence manquante.