Erreur 381

Bonjour ,

j'ai besoin de votre aide c'est si possible bien sur, j'ai un problème au niveau de la recherche, j'ai créer un bouton de recherche sur l'userform quand je fait une recherche par nom d'entreprise pour les 1er enregistrements ça marche mais partir du 20 ème j'ai le message suivant : Erreur d'execution 381 impossible de lire la propriété Column.index table de propriété non valide.

pour le code suivant : Set oRange = oSheet.Range(oSheet.Cells(CLng(ComboBox1.Column(1)), 2), oSheet.Cells(CLng(ComboBox1.Column(1)) + CLng(ComboBox1.Column(2)) - 1, 2)).

fichier en P.j

je vous remercie d'avance.

cordialement.

Bonjour,

Votre problème vient du fait que vous chargez dans votre Combobox1 une valeur qui n'y existe pas : "Batna " au lieu de "Batna".

Je vous conseillerais cette correction :

ComboBox1.Value = RTrim(Cells(no_ligne, 1).Value)

Par ailleurs, dans cette instruction, "Range" étant une fonction et non une propriété, ceci serait plus approprié :

   With oSheet
        Set oRange = Range(.Cells(CLng(ComboBox1.Column(1)), 2), .Cells(CLng(ComboBox1.Column(1)) + CLng(ComboBox1.Column(2)) - 1, 2))
   End With

merci pour votre aide, ça marche bien

cordialement.