Atteindre une cellule à partir d'une Listbox

Pierrot93

XLDnaute Barbatruc

• 1 Juillet 2013

• #2

Re : Atteindre une cellule à partir d'une Listbox

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 1 Juillet 2013

• #3

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 ... 😱

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juillet 2013

• #4

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 ...

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 1 Juillet 2013

• #5

Re : Atteindre une cellule à partir d'une Listbox

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juillet 2013

• #6

Re : Atteindre une cellule à partir d'une Listbox

Re,

karinette à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif