Bonjour à tous,
une fois encore je suis bloquée par une ligne, ("erreur définie par l'application ou par l'objet"). Malheureusement je ne sais pas du tout ce qui pêche alors pour ceux qui ont un peu de temps :
Merci d'avance !!
Susy
une fois encore je suis bloquée par une ligne, ("erreur définie par l'application ou par l'objet"). Malheureusement je ne sais pas du tout ce qui pêche alors pour ceux qui ont un peu de temps :
Code:
Sub RecapBy()
'affiche les personnes contenues dans la listBox dans la feuille Recap
Dim r As Integer
Set ShRe = ThisWorkbook.Sheets("Recap")
r = ThisWorkbook.Sheets("Recap").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
'If UserForm4.ListBox8.ListCount < 1 Then Exit Sub
'If UserForm4.ListBox8.ListCount > 1 Then
With UserForm4.ListBox8
[COLOR="Red"]ThisWorkbook.Sheets("Recap").Range(Cells(r, 4), Cells(r + .ListCount - 1, 3)) = .List[/COLOR]
End With
'End If
End Sub
Merci d'avance !!
Susy