Public Function getWordAdress(ByVal sExpression As String, ByVal sColumnLetter As String, Optional ByVal bPartial As Boolean = False, Optional ByVal bSelectResult As Boolean = False, Optional vsSheetName As Variant) As Integer
' sExpression mot(s) ou partie de mot à chercher
' sColumnLetter lettre de la colonne dans laquelle chercher
' bPartial choix sur le mot comlet ou partie du mot
' bSelectResult sélectionner la cellule de la première occurence trouvée
' vsSheetName nom de la feuille dans laquelle cherche, celle active par défaut
' RETURN numéro de la ligne de la première occurence trouvée
Dim iColStop As Integer
Dim i As Integer
'selection feuille
If Not IsMissing(vsSheetName) Then Sheets(vsSheetName).Select
'dernière cellule
iColStop = Range(sColumnLetter & "65536").End(xlUp).Row
If bPartial Then
For i = 1 To iColStop
If Cells(i, sColumnLetter) Like "*" & sExpression & "*" Then
getWordAdress = i
If bSelectResult Then Cells(i, sColumnLetter).Select
Exit For
End If
Next i
Else
For i = 1 To iColStop
If Cells(i, sColumnLetter) = sExpression Then
getWordAdress = i
If bSelectResult Then Cells(i, sColumnLetter).Select
Exit For
End If
Next i
End If
End Function