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:
Nbre = xls.CountIf(Rng, Texte)
xls correspond a un objet, il est déclarer plus haut :
Set xls = CreateObject("Excel.Application")
Voila la fonction
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
Partager