2
2susy
Guest
Bonjour à tous,
J'ai un problème (de plus) dans mon code, j'ai l'impression qu'il y a comme un bug. Il ne recopie que 2 lignes dans ma feuille Recap même lorsque la listbox en contient plus.
précision au cas où : nombre stocké sous forme de texte (pour la colonne 6 du combobox)
Si une bonne âme arrive à trouver où se situe l'erreur, merci d'avance et bon we !
susy
J'ai un problème (de plus) dans mon code, j'ai l'impression qu'il y a comme un bug. Il ne recopie que 2 lignes dans ma feuille Recap même lorsque la listbox en contient plus.
Code:
Sub RecapTo()
'affiche le nombre de lignes correspondant à celui de la listbox pour la personne sélectionnée dans la combo
Dim r As Integer, k As Long
Set ShRe = ThisWorkbook.Sheets("Recap")
r = ShRe.Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
For k = 0 To UserForm4.ListBox9.ListCount - 1
With ShRe
UserForm1.ComboSelect.TextColumn = 6
.Cells(r, 1) = UserForm1.ComboSelect.Text
.Cells(r, 34) = UserForm4.ListBox9.List(k, 7)
.Cells(r, 37) = UserForm4.ListBox9.List(k, 6)
.Cells(r, 35) = Date
r = r + 1
End With
Next k
End SubSi une bonne âme arrive à trouver où se situe l'erreur, merci d'avance et bon we !
susy