XL 2019 Erreur d'execution 13-Incompatibilite de type

[KTM]

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

 

[Jacky67]

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

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)

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

 

[KTM]

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)

Merci!!!
La fatigue me gagne on dirait.