Valeur non trouvée

[Jacky]

Bonjour

J'ai écrit cette macro pour rechercher une valeur dans une colonne mais je voudrais afficher un message si la valeur recherchée n'est pas trouvée


Sub RecherValeur()
Range("A:A").Select
Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée. ")
Cells.Find(What:=(Var), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
With Application.ActiveCell
End With
Exit Sub
End Sub

Merci A tous pour votre aide

 

[sousou]

Modifier ton traitement d'erreur.

Sub RecherValeur()
Range("A:A").Select
Dim Var
Dim NumLg
On Error GoTo suite
Var = InputBox(Prompt:="Taper la valeur recherchée. ")
Cells.Find(What:=(Var), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
With Application.ActiveCell
End With
Exit Sub
suite:
MsgBox ("Valeur non trouvée!")
End Sub

 

[Jacky]

Bonjour

Ta macro marche à merveille

Merci encore

 

[philoo]

Je cherche à faire la même chose que Jacky, mais avec une fonction. Et mon code marche très bien avec une macro (assez similaire avec celui de Jacky) , mais si je la transforme en fonction, ça ne marche pas. En fait, je veut une fonction qui renvoie la valeur cherchée dans le tableau donné en paramètre, du style : function trouve_val(valeur_a_chercher, tableau)
Est-ce que quelqu'un peut m'aider (je cherche depuis longtemps !!) merci !

Phil