Comment récupérer les éléments d'une listbox, à partir d'une cellule précise

[MarieT]

Bonjour,
Comment récupérer les éléments d'une listbox , à partir d'une cellule précise dans un formulaire :

Je débute sur VB et les explications de DJ.JOSS sont très claires. J'ai bien avancé, merci à lui, mais je butte sur 2 points :
1 – comment récupérer les éléments non pas à partir de la ligne 1 de la colonne B, mais à partir de la ligne 68 de la colonne B soit "B68"et les lignes en dessus
2 – que les cellules se vident à chaque fois que je clique sur le bouton dans le formulaire.
J'utilise Excel 2003

Voici ce que j'ai fait :
A - Création d'un bouton dans le formulaire avec cette macro affectée qui lance l'UserForm
Sub Lance9()
Load UserForm9
UserForm9.Show
End Sub

B - Création du UserForm avec la commande

Private Sub CommandButton1_Click()
Dim I As Integer, y As Integer

With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
Range("b"& y).Value=.List(I) (ce qui récupère les éléments en b1, puis b2, puis b3, etc..., si je mets "B68" les éléments s'affichent en B681, B682…)
End If
Next I
End With
Unload UserForm9

End Sub

Merci pour votre aide.
Cordialement.
MarieT

 

[jeanpierre]

Re : Comment récupérer les éléments d'une listbox, à partir d'une cellule précise

Bonjour MarieT, et Bienvenue sur le forum,

Essaie avec : Range("b"& y+67).Value=.List(I)

Bonne journée.

Jean-Pierre

 

[MarieT]

Re : Comment récupérer les éléments d'une listbox, à partir d'une cellule précise

Merci Jean Pierre
Ça marche, mon premier point est réglé.