If [B]texte1[/B] = [B]texte2[/B] Then
...
else
...
end if
The syntax for the InStr function is:start is optional. It is the starting position for the search. If this parameter is omitted, the search will begin at position 1.InStr( [start], string_being_searched, string2, [compare] )
string_being_searched is the string that will be searched.
string2 is the string to search for.
compare is optional. This is the type of comparison to perform. The valid choices are: vbBinaryCompare, vbTextCompare, and vbDatabaseCompare.
Dim i As Integer
i = 4
While Range("a" & i).Value <> ""
Dim Vers, Mot As String
Dim Position As Integer
Vers = UCase("*" & Range("a" & i).Value & "*")
Mot = UCase("*" & Range("A1").Value & "*")
Position = InStr(Vers, Mot)
If Position = 0 Then
Range("a" & i).EntireRow.Hidden = True
End If
i = i + 1
Wend
Je pense avoir bien compris la fonction like et instr (...)