Erreur: Objet requis

Bonjour je m'approche de ce forum pour vous exposer mon problème.

J'ai développé une petite fonction qui en fonction des paramètre rentrés elle est capable de retrouver le texte cherché et de donner la ligne correspondante dans un fichier défini.

La fonction a déjà été utilisé dans un autre fichier et cela fonctionnait correctement mais la elle me retourne :
Erreur d’exécution 424 "Objet requis"

A cette ligne:

Code:

---

Nbre = xls.CountIf(Rng, Texte)

---

xls correspond a un objet, il est déclarer plus haut :

Code:

---

Set xls = CreateObject("Excel.Application")

---

Voila la fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function Find_Next(Rng As Range, Texte As String, Tbl()) As Boolean   Dim Nbre As Integer Dim Lig As Long, Cptr As Long   Nbre = xls.CountIf(Rng, Texte) If Nbre > 0 Then ReDim Tbl(Nbre - 1, 1) Lig = 1 For Cptr = 0 To Nbre - 1 Lig = Rng.Find(Texte, Cells(Lig, Rng.Column), xlValues).Row Tbl(Cptr, 1) = Lig Next Debug.Print Nbre Debug.Print Tbl(Cptr, 1) Else GoTo Absent End If Find_Next = True Exit Function Absent: Find_Next = False End Function

---

Besoin d'aide s'il vous plait

Bonjour.

Sauf si xls est une variable globale (ce que je ne recommande pas), je pense qu'il faut faire :

Code:

---

Function Find_Next(Xls as Excel, Rng As Range, Texte As String, Tbl()) As Boolean

---

afin que xls soit visible dans la fonction.

A+