Bonjour le forum,
je vous sollicite de nouveau...
en fait j'ai créé une fonction toute simple, avec la fonction MATCH
Cependant cette fonction ne marche que quand elle veut. En gros, quand la fonction MATCH ne trouvera pas d'occurence du critere, ca plante avec une erreur 1004, sinon ca passe. Et des fois ca passe aussi, si elle trouve pas le critere...
je sais ps trop ou donner de la tete avec ce probleme, alors a vous de jouer si vous le voulez.
@+
je vous sollicite de nouveau...
en fait j'ai créé une fonction toute simple, avec la fonction MATCH
Code:
Public Function FindFirst(MaPlageRecherche As Range, Critere As Variant)
'Fonction réalisée le 26/07/2007
'Objectif : Trouver dans une plage de cellules (plage recherche) une valeur, critère (rigoureusement égale) et renvoyer la ligne de la cellule correspondante
Dim MyVar As Double
Dim MaPlage As Range
Dim NumeroPremiereLigne As Long
Set MaPlage = MaPlageRecherche
NumeroPremiereLigne = MaPlageRecherche.Row '
MyVar = Application.WorksheetFunction.Match(Critere, MaPlage, 0) + (NumeroPremiereLigne - 1) 'car match renvoie une référence relative à la plage de recherche
FindFirst = MyVar
End Function
Cependant cette fonction ne marche que quand elle veut. En gros, quand la fonction MATCH ne trouvera pas d'occurence du critere, ca plante avec une erreur 1004, sinon ca passe. Et des fois ca passe aussi, si elle trouve pas le critere...
je sais ps trop ou donner de la tete avec ce probleme, alors a vous de jouer si vous le voulez.
@+