Recherche dans une macro...

[Olivier SAUNIER]

Bonjour,

J'efectue une recherche sur une zone et selectionne la cellule contant le coupable, lorsque je n'ai plus de coupable ma macro plante, ce que je conçois. Comment faire pour trapper le fait que j'ai comme possibilité que le résultat de ma recherche soit nulle?

Ci-joint le code fautif...

Range("C5:C" & Range("A65536").End(xlUp).Row).Select
Selection.Find(What:="Doublon", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select

Merci

 

[stef]

salut,

pitetre qque chose comme ca :

Sub Trouve()

Range("A1:A" & Range("A65536").End(xlUp).Row).Select

On Error GoTo Message:

Selection.Find(What:="8", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

Exit Sub

Message:
MsgBox "Pas de solution"

End Sub

@+

 

[Olivier SAUNIER]

Merci ça marche nickel ;o)