probleme d'affichage avec macro (incrémentation)

[benj]

bonjour,
J'ai réaliser un userform avec 2 listes la première avec une liste de produit et la 2ème avec la liste des produits sélectionnés.
en cliquant sur 'CommandButton4' les infos se mettent par incrément a partir de la cellule D10.

Mais le problème c'est que je peut metre que 10 produits alor que j'en voudrai 20!

voici la macro:
merci

Private Sub CommandButton4_Click()
MsgBox 'Vous avez choisi ' & ListBox2.ListCount & ' Produits.'
For z = 0 To ListBox2.ListCount - 1
Range('D1' & z + 0).Value = ListBox2.List(z)
Next

Unload Me
End Sub

 

[Hervé]

Rerobleme d'affichage avec macro (incrémentation

Salut benj, le forum

Si si , ta macro doit bien renvoyer tout tes items, pour le 11ème regarde ligne 110

sinon, essaye comme ceci :

Range('D' & z + 10).Value = ListBox2.List(z)

salut

Message édité par: hervé, à: 19/10/2005 17:23