Atteindre une cellule à partir d'une Listbox

[karinette]

Bonjour à tous.

J'ai une listbox dans un USF qui charge la colonne B2:B800.
J'aimerais atteindre la cellule lorsque je sélectionne sa valeur dans la listbox.

Merci d'avance aux experts ... 🙂

 

[Pierrot93]

Re : Atteindre une cellule à partir d'une Listbox

Bonjour,

regarde peut être ceci, à utiliser dans le module de l'usf :

With ListBox1
    If .ListIndex <> -1 Then Cells(.ListIndex + 2, 2).Select
End With

bon après midi
@+

 

[karinette]

Re : Atteindre une cellule à partir d'une Listbox

Bonjour Pierrot93,
Le code fonctionne très bien, j'ai juste modifié les valeurs, car j'étais décalée dans mes cellules ...
Je tombe parfaitement sur la bonne de cette façon :

Private Sub ListBox1_Click()
With ListBox1
If .ListIndex <> -1 Then Cells(.ListIndex + 3, 2).Select
End With
End Sub

Je n'ai pas le niveau necessaire pour comprendre toutes les subtilités de VBA, mais ça marche ... 😱

 

[Pierrot93]

Re : Atteindre une cellule à partir d'une Listbox

Re,

Le code fonctionne très bien, j'ai juste modifié les valeurs, car j'étais décalée dans mes cellules ...

étrange si ta liste commence en B2.... à noter, le premier élément d'une "listbox" à le numéro d'index 0.... donc...

 

[karinette]

Re : Atteindre une cellule à partir d'une Listbox

Hoops, autant pour moi ... ça commence en B3 ...
C'est sûrement pour ça ...😱

 

[Pierrot93]

Re : Atteindre une cellule à partir d'une Listbox

Re,

Hoops, autant pour moi ... ça commence en B3 ...
C'est sûrement pour ça ...😱

oui sans doute... ceci explique cela.... 🙂