fonction if not dans la fonction find

[lostheroe]

Bonjour,

Je n'arrive pas à inclure la fonction 'if not is nothing then' dans la fonction find.
Je cherche à ce que ci la fonction find ne trouve pas la valeur alors qu'elle passe directement à suite

'If Not Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=False, SearchFormat:=False).Activate Is Nothing Then GoTo suite
'

Cordialement

 

[mapomme]

Re : fonction if not dans la fonction find

Bonsoir lostheroe,

Une proposition:

Dim xFind As Range
  Set xFind = Selection.Find(What:="[B]", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
          :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
          :=False, SearchFormat:=False)
  If Not xFind Is Nothing Then
    xFind.Activate
    GoTo suite
  End If

 

[lostheroe]

Re : fonction if not dans la fonction find

Merci mapomme

Ta solution marche très bien