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

  • Initiateur de la discussion Initiateur de la discussion 2susy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

2susy

XLDnaute Junior
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 :


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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
235
Retour