copier 3 premiers items d'une listbox dans feuille

pierrejean

XLDnaute Barbatruc

• 9 Septembre 2008

• #2

Re : copier 3 premiers items d'une listbox dans feuille

bonjour 2suzy

A tester:

Code:

With UserForm4.ListBox9
x = 13
For n = 0 To .ListBox1.ListCount - 1
 ShSP.Range("B" & x + n).Resize(.ListCount) = .List(0, 3)
 ShSP.Range("F" & x + n).Resize(.ListCount) = .List(0, 6)
Next n
End With

Nb: je ne comprends pas bien l'utilité du Resize !!

 

Vote positif 0 Vote négatif

2

2susy

Guest

• 9 Septembre 2008

• #3

Re : copier 3 premiers items d'une listbox dans feuille

Bonjour PierreJean (toujours à la rescousse !)

j'ai tenté ce code, mais cette fois-ci il recopie le 1er item de la liste sur les 3 lignes de ma feuille...

j'ai affiné mon code avec ton aide, mais c'est toujours le même problème de recopie en ligne 15 alors qu'il n'y a que 2 lignes dans ma listbox...
en rouge la ligne qui ne fonctionne pas mais peut être une piste?

Code:

With UserForm4.ListBox9
x = 13
For n = 0 To 2
[COLOR="Red"]If .List(n, 3) And .List(n, 6) <> "" Then[/COLOR]
 ShSP.Range("B" & x + n).Resize(.ListCount) = .List(n, 3)
 ShSP.Range("F" & x + n).Resize(.ListCount) = .List(n, 6)
End If
Next n
End With

si d'autres idées, je suis preneuse !! merci 😉

 

Vote positif 0 Vote négatif

2

2susy

Guest

• 9 Septembre 2008

• #4

Re : copier 3 premiers items d'une listbox dans feuille

pour le resize, j'ai repris ça dans un code, je bricole vba donc je n'ai aucune idée de son utilité (au resize bien sûr) !!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Septembre 2008

• #5

Re : copier 3 premiers items d'une listbox dans feuille

Re

Supprime les .Resize et je pense que cela ira mieux

 

Vote positif 0 Vote négatif

2

2susy

Guest

• 9 Septembre 2008

• #6

Re : copier 3 premiers items d'une listbox dans feuille

merci pierrejean, comme quoi...j'aurais pu essayer de les retirer avant !!
ça marche bcp mieux maintenant !!

bon aprem à tous

 

Vote positif 0 Vote négatif