XL 2019 Erreur d'execution 13-Incompatibilite de type

KTM à dit:

Bonjour chers tous
Depuis mon userform je veux extraire les informations selon le code saisi dans textbox1.
mais une erreur se produit .
comment résoudre ce problème ?
Merci

Cliquez pour agrandir...

VB:

Set p = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour,
Sans regarder la finalitée de ce code, je dirais qu'il manque "Row" dans cette ligne
Set p = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp) + 1)

Cliquez pour agrandir...