VBA Erreur erreur définie par l'application ou par l'objet

[2susy]

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 :

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

 

[tototiti2008]

Re : VBA Erreur erreur définie par l'application ou par l'objet

Bonjour 2suzy,

le problème ne viendrait-il pas de :
Cells(r + .ListCount - 1, 3) ?
ça ne serait pas
Cells(r + .ListCount - 1, 4)
plutôt ?

 

[2susy]

Re : VBA Erreur erreur définie par l'application ou par l'objet

Non non, merci d'avoir cherché à m'aider, finalement j'ai fait autrement !
merci encore !!