Evenement et listbox

Private Sub ListBox2_Click()
ListBox2.Clear
Dim C As Range
For Each C In Range("L1:L38")
If C.Value <> "" Then
ListBox2.AddItem C.Value
End If
Next C
End Sub
------------------------------------------------------------
Private Sub ListBox2_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Range("F31").Select

ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R[-16]C[3],suivimarche!R[-30]:R[65505],24,FALSE)"
End Sub

Cliquez pour agrandir...