find dans Excel 2000

[Tniu]

Bonjour à tous

un petit post pour vous faire profiter d'une 'solution'

une fonction développée sous excel 2004 posait problème lors du passage à excel 2000.
Après enquête, le problème venait du Range(...).Find(...) qui rendait Nothing

seule solutions que j'ai trouvée :

Function my_find_col1(plage As Range, value As String) As Range
    ' la colone de recherche
    Dim searchCol
    ' le numéro de ligne
    Dim rowNb As Integer
    
    Set searchCol = plage.Columns(1)
    rowNb = Application.WorksheetFunction.Match(value, plage, 1)
    Set my_find_col1 = plage.Cells(rowNb, 1)
End Function

Il existe peut-être d'autres solutions, mais je ne les ai pas trouvées :-(

J'espère que ce post pourra être util

A +

Tniu