Discussion :

[Djromé]

Salut les Kracks,

Je souhaiterai inclure dans une procédure la fonction cells.find (CTRL F) faisant une recherche uniquement dans la colonne A suite à une variable indiqué par l'utilisateur dans une input box:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Columns("A:A").Select
cells.Find(What:=varaccount1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate

Cette dernière marche très bien mais bug si l'utilisateur entre une donnée n'existant pas!
Aussi, je souhaiterai obtenir l'astuce me permettant d'y remédier du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cells.find = false then...

Salutations

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim c As Range
 
Set c = Range("A:A").Find(What:=varaccount1, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
    MsgBox c.Address
    Set c = Nothing
End If

[Djromé]

Merci Mercatog ;-)