Evenement et listbox

[florentsarrazy]

Bonjour !

J'ai une question : J'ai cree une listbox qui contient une liste définie sur une feuille excel , comment faire pour que quand je selectionne un item de cette liste, cela renvoie à une cellule en particulier de cette feuille qui change de valeur en fonction de l'item sélectionné....j'ai essayé le bout de code suivant mais ca marche pas 🙁

Voici mon code :

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

Merci de votre aide.

 

[CBernardT]

Re : Evenement et listbox

Bonjour florentsarrazy,

Je n'ai pas bien compris ton problème !

Cependant je te poste un petit exemple qui peut de donner une idée de comment transférer des valeurs d'une listbox vers une feuille.

Cordialement

Bernard

 

[florentsarrazy]

Re : Evenement et listbox

Oui effectivement, c'est peut etre pas clair même pour moi...

je veux juste quand je clique sur les items de ma listbox voir apparaitre une valeur sur ma feuille excel.

Valeur qui se trouve sur un autre feuille excel.

Voila mon soucis.

Merci de ton aide.