Bonjour,

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

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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