Re : Fonction de recherche dans trois feuilles
Bonjour à tous,
J'ai essayé de modifier le code pour que si on trouve plusieurs résultat (pour info c'est toujours 1 et quelquechose dans la feuille Tableau3) pour que si on trouve 1, il le place dans un "string" lol et qu'il continu la recherche pour trouver s'il n'y a pas d'autres résultats mais je ne pense pas être dans la bonne direction:
Public U_400 As String
'Code de _Thierry sur XLD
Private Function SearchTableau3(ByVal SearchString As String, ByVal Line As Byte) As String
Dim cell As Range
With Worksheets(WSDatabase3).UsedRange
Set cell = .Find(SearchString, LookAt:=xlWhole)
If Not cell Is Nothing Then
SearchTableau3 = .Cells(Line, cell.Column - 0).Value
If SearchTableau3 = "1" Then
U_400 = 1
SearchTableau3 = .Cells(Line, cell.Column - 0).Value
End If
Else
SearchTableau3 = "XX"
End If
End With
End Function
et la j'appel la fonction:
SearchTableau3(TextBox2, 3)
Mais il me sort toujours 1 et pas l'autre cas.
merci