Erreur dans le code

Bonjour,

je ne vois pas pourquoi j'ai une erreur dans le code.

Message d'erreur : "erreur définie par l'application ou par l'objet" (Voir ligne surligner)

Private Sub Rechercher_Click()

Call Responsable

'Nombre des enregistrements
Range("A1").Select
    Selection.End(xlDown).Select

 Dim lbtarget As MSForms.ListBox
    Dim rngSource As Range
     Set rngSource = Worksheets("Auxiliaire").Range(ActiveCell & ActiveCell.RowHeight)    
    Set lbtarget = Me.ListBox1
    With lbtarget
         'Détermine le nombre de colonne
        .ColumnCount = 7
         'Taille des colonnes
        .ColumnWidths = "50;35;300;30;50;150;50"
         'Insert the range of data supplied
        .List = rngSource.Cells.Value
    End With

End Sub

Cdlt.

Bonsoir,

Qu'est censé représenter cette plage Range(ActiveCell & ActiveCell.RowHeight) ?

Tu concatènes une cellule (un objet range) avec une variable numérique (rowheight), cela fait tout sauf une plage

Bonjour,

Normalement ça serait :

Range("A1" & activeCell.Row)

Mais ça ne fonctionne pas, il s'arrête au bout de 3 lignes.

Cdlt.

Tu ne réponds pas aux questions qu'on te pose, aide-nous à t'aider.

Je le répète, je ne vois pas comment en mélangeant un objet range et une variable long, cela peut correctement fonctionner.

Si tu saisis Range("A1" & activeCell.Row).Select, tu va activer aléatoirement activer la cellule en Colonne A et en ligne "1" & la ligne de la cellule active, si tu es en B2, le résultat est "A12" (1&2), si tu es en X25, le résultat est "A125" (1&25"). C'est cela que tu veux obtenir ?

Voici une liste non exhaustive d'objets range qui fonctionnent :

Range("A1")

Range("A" & ActiveCell.Row)

Range("A1:B1")

Range("A1:B"& ActiveCell.Row)

Range("A1",ActiveCell)

.../...