Editer une cellule dans une listeview

Bonjour

Je sélectionne une ligne dans une listview. Je peux éditer la cellule de la première colonne de cette ligne sélectionnée. Cependant je voudrais pouvoir éditer au choix n'importe quelle cellule de cette ligne peu importe la colonne.

Si cela est possible, j'apprécierais le code pour ce faire

Merci de votre colloboration

Bonjour

Je ne crois pas (mais je ne connais pas tout) que l'on puisse modifier directement dans la ListView les éléments autres que ceux de la 1ère colonne

Il faut passer par une recopie de ceux-ci dans des contrôles, et modifier ces contrôles

Pour lire

Option Explicit

Dim LigneLstView As Long

Private Sub ListView_ItemClick(ByVal Item As MSComctlLib.ListItem)
' Lecture des éléments de la ListView
Dim K As Integer

  With Me.ListView
    LigneLstView = .SelectedItem.Index
    Me.TextBox1 = .ListItems(LigneLstView).Text
    For K = 2 To .ColumnHeaders.Count
      Me.Controls("Textbox" & K) = .ListItems(LigneLstView).ListSubItems(K - 1).Text
    Next
  End With
End Sub

Private Sub EcritureListView()
' Recopie des TextBox vers la ListView
Dim K As Integer
  With Me.ListView
    .ListItems(LigneLstView).Text = Me.TextBox1
    For K = 2 To .ColumnHeaders.Count
      .ListItems(LigneLstView).ListSubItems(K - 1).Text = Me.Controls("Textbox" & K)
    Next
  End With
End Sub

A toi de faire les Textbox nécessaires

Bonjour

Merci d'avoir pris le temps pour me répondre.

J'avais déjà en effet un code qui est le suivant:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

LIG = ListView1.SelectedItem.index

If ListView1.SelectedItem.index = LIG Then

Me.Label9.Caption = LIG

With Me

Me.Label2.Caption = ListView1.ListItems(LIG).ListSubItems(1).Text

Me.Label4.Caption = Me.Label4.Caption & " " & ListView1.ListItems(LIG).ListSubItems(9).Text & " $ "

Me.TextBox2.Value = ListView1.ListItems(LIG).ListSubItems(9).Text

End With

End If

End Sub

Merci et bonne journée