Problème avec la fonction Application.match

Version imprimable

Bonjour,

J'ai l'impression que cette fonction ne fonctionne pas tout le temps. Quelqu'un a une idée ?

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function Ligne_Top(Source_Sheet As String, Source_Ref As String) As Integer
'
' Fonction de détection de début du tableau
'
Dim Ligne_Départ
Ligne_Départ = Application.Match(Source_Ref, Sheets(Source_Sheet).Range("A:A"), 0)
If IsError(Ligne_Départ) Then
   MsgBox "Aucune balise de début de tableau connu"
Else
    Ligne_Top = Ligne_Départ
End If
End Function

Merci par avance

Etienne

27/02/2013, 06h58
Philippe Tulliez

Bonjour,

Citation:

J'ai l'impression que cette fonction ne fonctionne pas tout le temps. Quelqu'un a une idée ?

Qu'entends-tu par là ?
Pourrais-tu expliquer ce qui ne vas pas et dans quel cas.
Par exemple si tu cherches autres choses qu'une chaîne de caractères, cette fonction ne peut pas te renvoyer un numéro de ligne.

Code:

Debug.Print Ligne_Top("Feuil1", "10")

Si une cellule de la colonne A contient 10, cette valeur ne sera pas trouvée.
Si l'argument Source_Ref est variant

Code:

Public Function Ligne_Top(Source_Sheet As String, Source_Ref) As Integer

Dans ce cas, les deux cas de figures ci-dessous fonctionneront.
Debug.Print Ligne_Top("Feuil1", 10) ou Debug.Print Ligne_Top("Feuil1", "Toto") .
Cependant en commentaire de ta fonction, on lit "' Fonction de détection de début du tableau".
La fonction en question ne fait que renvoyer la position d'une valeur cherchée dans la colonne A de la feuille définie par l'argument Source_Sheet.
27/02/2013, 14h40
la_fouine1806

Bonjour,

Enfait j'ai trouvé... Enfait mon problème est qu'il me renvoyait une erreur 9 de temps en temps... car il était sur le mauvais workbook...

Du coup, j'ai ajouté le workbook dans ma fonction du coup ca marche... Comme quoi la nuit porte conseil...

Pour répondre à ta question, ma fonction me permet de déterminer la ligne à laquelle commence un tableau(de hauteur variable).