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