Bonjour tout le monde, et bonne année.
J'ai un soucis avec la remontée d'une multi sélection dans une feuille de calcul.
J'utilise un code de ce type :
For j = 0 To Truc - 1 'c'est le nb de ligne de mon listbox
If Lbx_Qui.Selected(j) Then
With Workbooks("fichier destination").Worksheets("feuille destination")
.Range("a" & 11 + i) = Lbx_Qui.List(j)
.Range("b" & 11 + i) = Tbx_Machin 'autre info pêchée dans mon userform
End With
i = i + 1
End If
Next j
Le problème est qu'à la première copie de la première information dans le fichier de destination, pof ! a p'us de sélection dans la listebox.
(C'est à dire au premier range(truc)=quelquechose)
Donc je retrouve bien les infos de la première ligne de ma multisélection mais pas le reste.
Une idée ? Je suis sur Excel 2003.
Merci d'avance
J'ai un soucis avec la remontée d'une multi sélection dans une feuille de calcul.
J'utilise un code de ce type :
For j = 0 To Truc - 1 'c'est le nb de ligne de mon listbox
If Lbx_Qui.Selected(j) Then
With Workbooks("fichier destination").Worksheets("feuille destination")
.Range("a" & 11 + i) = Lbx_Qui.List(j)
.Range("b" & 11 + i) = Tbx_Machin 'autre info pêchée dans mon userform
End With
i = i + 1
End If
Next j
Le problème est qu'à la première copie de la première information dans le fichier de destination, pof ! a p'us de sélection dans la listebox.
(C'est à dire au premier range(truc)=quelquechose)
Donc je retrouve bien les infos de la première ligne de ma multisélection mais pas le reste.
Une idée ? Je suis sur Excel 2003.
Merci d'avance