code pour une recherche aproximative

Sub recherche()

Dim societe As String
Dim LaCellTrouve As Integer
societe = InputBox("quel société recherché ?", "Recherche")

If Not IsError(LaCellTrouve = Range("C:C").Find(What:=societe, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
SearchFormat:=False).Row) Then
Cells(LaCellTrouve, 2).Interior.Color = vbRed
End If
End Sub

Cliquez pour agrandir...

InStr, fonction

Voir aussi Exemple Particularités
Renvoie une valeur de type Variant (Long) indiquant la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne.
Syntaxe
InStr([start, ]string1, string2[, compare])
La syntaxe de la fonction InStr comprend les arguments suivants :
Élément Description start Facultatif. Expression numérique qui définit la position de départ de chaque recherche. Si cet argument est omis, la recherche commence au premier caractère. Si l'argument start contient une valeur de type Null, une erreur se produit. L'argument start est obligatoire si l'argument compare est indiqué. string1 Expression de chaîne dans laquelle la recherche est effectuée. string2 Expression de chaîne recherchée. compare Facultatif. Indique le type de comparaison de chaînes. Si l'argument compare est de type Null, une erreur se produit. Si l'argument compare est omis, la valeur de l'instruction Option Compare détermine le type de comparaison. Indiquez un LCID (LocaleID) correct pour respecter les règles locales spécifiques à la comparaison.

Cliquez pour agrandir...