fonction if not dans la fonction find

lostheroe · 1 Octobre 2015

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 · 1 Octobre 2015

Re : fonction if not dans la fonction find

Bonsoir lostheroe,

Une proposition:

Code:

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 · 1 Octobre 2015

Re : fonction if not dans la fonction find

Merci mapomme

Ta solution marche très bien

fonction if not dans la fonction find

lostheroe

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

lostheroe

XLDnaute Occasionnel

Discussions similaires