XL 2019 Erreur d'execution 13-Incompatibilite de type

KTM

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur.xlsm
    22.3 KB · Affichages: 10

Jacky67

XLDnaute Barbatruc
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)
VB:
Set p = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
 

Discussions similaires

Statistiques des forums

Discussions
312 890
Messages
2 093 349
Membres
105 696
dernier inscrit
FrancisR