Microsoft 365 Erreur d’exécution de type 13

[Ptitloups56]

Bonjour à tous,
j'ai XL 2024, il réagi comme le 365.
Je suis toujours novice dans le VBA, je m'aide de tuto pour effectuer mes lignes de code.
Dans le zone de recherche la ComboBox affiche une donnée peu importe la quelle et dans la TextBox lorsque je commence à écrire il m'affiche "Erreur d’exécution de type 13 ".
j'ai chercher mais je n'est pas de solution.
j'ai fait maigrir le fichier sinon impossible de le télécharger
je vous remercie d'avance pour votre sollicitudes

 

[fanfan38]

Bonjour et bienvenu sur le forum
Il manque une feuille

R = Feuil2.Range("A2:k" & Feuil2.[A1048576].End(xlUp).Row)

dans ta macro à l'initialisation de l'userform tu met: listbox1.list=client
ensuite tu appelle une macro qui dit listbox1.list=Feuille 2
A+ François

 

[nullosse]

Salut,
que veux-tu faire avec ton formulaire ?
Une listView est peut-être plus adaptée.

Nullosse

 

[job75]

Bonjour à tous,

Cl = Application.Match(.ComboBox1, Application.Index(R, 1), 0)

recherche l'en-tête du tableau définie par ComboBox1.

Donc au lieu de R = Feuil2.Range("A2:k" & Feuil2.[A1048576].End(xlUp).Row)

il faut R = Feuil2.Range("A1:k" & Feuil2.[A1048576].End(xlUp).Row)

puisque les en-têtes sont en ligne 1.

A+

 

[Ptitloups56]

Bonjour a vous,
merci fanfan38, job75 pour vos réponse qui m'aidé
nullosse je mets de coté ta solution pour mes prochaines code sur d'autres feuilles