Option Explicit
Dim TblPos() As Single ' A déclarer en tête de module
Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
Dim pos As Variant
pos = Application.Match(x, TblPos, 1)
If Not IsError(pos) Then Label1 = "colonne :" & pos
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
ReDim TblPos(1 To 3)
With ListView1
.ColumnHeaders.Add 1, , "Texte": TblPos(1) = 0
.ColumnHeaders.Add 2, , "Valeur": TblPos(2) = .ColumnHeaders(2).Left
.ColumnHeaders.Add 3, , "Couleur": TblPos(3) = .ColumnHeaders(3).Left
For Each c In Range("D3:D7")
With .ListItems.Add(, c.Address, c.Text)
.SubItems(1) = CStr(c.Offset(, 2))
.SubItems(2) = CStr(c.Offset(, 3))
End With
Next c
End With
End Sub