Transfert de listviews

[christian.bedere]

Bonjour

Je viens vers vous pour vous demander comment je pourrais par un double clic sur la première listview ('besoins'), (apres avoir activé 'clic pour afficher le fournisseur', transférer la ligne sélectionnée sur la deuxième listview ('achats') en me permettant de saisir dans la deuxième listview la quantité ds la case 'quantit' (pas un textbox).

Merci pour votre aide

Bonne soirée à vous tous

Kiki

 

[jp14]

Re : Transfert de listviews

Bonjour

Dans une listview on ne peut écrire que dans la première colonne.

Une discussion concernant ce problème

https://www.excel-downloads.com/threads/modification-listview.115758/

JP

 

[christian.bedere]

Re : Transfert de listviews

Bonsoir JP

Merci pour cette aide mais je ne comprends pas où sont les modif ds la feuille de calcul .
Bonne soirée merci quand même

Kiki

 

[kjin]

Re : Transfert de listviews

Bonsoir,
J'ai rien compris !
En outre, tu ne peux pas modifier une valeur manuellement en dehors de la première colonne
A+
kjin

 

[job75]

Re : Transfert de listviews

Bonsoir,

Pour transférer la ligne sélectionnée de la ListView1 :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Itsel As Object, Quant As Single
Set Itsel = ListView1.SelectedItem
[COLOR="Red"]Quant = ???[/COLOR] 'détermination de la quantité
With ListView2
  .ListItems.Add , , Itsel
  .ListItems(.ListItems.Count).ListSubItems.Add , , Itsel.ListSubItems(1)
  .ListItems(.ListItems.Count).ListSubItems.Add , , Itsel.ListSubItems(2)
  .ListItems(.ListItems.Count).ListSubItems.Add , , Itsel.ListSubItems(3)
'--------------------------------------------------------
  .ListItems(.ListItems.Count).ListSubItems.Add , , Quant
End With
End Sub

La ligne en rouge est bien sûr à compléter.

Pour supprimer une ligne de la ListView2, cliquer sur la ligne :

Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView2.ListItems.Remove (ListView2.SelectedItem.Index)
End Sub

Edit : salut JP, kjin, pas rafraichi depuis longtemps...

A+

 

[christian.bedere]

Re : Transfert de listviews

Bonsoir JP, Kjin, Job75

Génial , ça marche impecc ! merci à vous, vs êtes géniaux

Kiki