Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Listview ...

Listview ...

2 réponses
Avatar
Jean-Michel
Bonjour,

Je voudrais savoir comment je pourrai faire pour identifier chaque ligne
d'une liste view au meme titre qu'un tableau...
C'est a dire que si qq'un clique sur une ligne de ma liste view, je veux
etre capable de lui montrer dans le, debug.print par exemple, la ligne
entiere et les ligne du dessous et dessus, voici a quoi ressembre ma liste
view :

Set ObjListe = View1.ListItems.Add(, ,
OFtablo(V).produit)
ObjListe.SubItems(1) = OFtablo(V).cde
ObjListe.SubItems(2) = OFtablo(V).repere
ObjListe.SubItems(3) = OFtablo(V).caisson
ObjListe.SubItems(4) = OFtablo(V).teinte
ObjListe.SubItems(5) = OFtablo(V).Qte
ObjListe.SubItems(6) = OFtablo(V).longueur
ObjListe.SubItems(7) = OFtablo(V).gauche
ObjListe.SubItems(8) = OFtablo(V).droite
ObjListe.SubItems(9) = OFtablo(V).psupp1
ObjListe.SubItems(10) = OFtablo(V).psupp2
ObjListe.SubItems(11) = OFtablo(V).psupp3
ObjListe.SubItems(12) = OFtablo(V).psupp4
ObjListe.SubItems(13) = OFtablo(V).psupp5
ObjListe.SubItems(14) = OFtablo(V).psupp6
ObjListe.SubItems(15) = OFtablo(V).code

Que la valeur de View1.SelectedItem soit par exemple le numero de la ligne
ce qu'il permettra de ressortir les valeurs de toute la ligne !

J'espere que vous m'avez compris !

Merci d'avance pour vos reponses !
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jonathan
Ceci peut vous aider:

A = Listview1.SelectedItem.index
For I = 1 To 6 step 1
Msgbox Listview1.ListItem(1).ListSubsItems(I).text & " sur la colonne "
& I
Next I

@+
Jonathan
Avatar
Jean-Michel
Merci ca marche,

Mais pour ceux qui tombe sur ce message en fesant une recherche, voici la
version sans erreur de syntaxe :

a = View1.SelectedItem.Index
For i = 1 To 6 Step 1
MsgBox View1.ListItems(a).ListSubItems(i).Text & " sur la colonne " & i
Next i

Merci encore Jo !

"Jonathan" a écrit dans le message news:
3fbb588d$0$227$
Ceci peut vous aider:

A = Listview1.SelectedItem.index
For I = 1 To 6 step 1
Msgbox Listview1.ListItem(1).ListSubsItems(I).text & " sur la colonne


"
& I
Next I

@+
Jonathan