Lance macro si erreur de recherche

[MJ13]

Bonjour à tous

Avec cette macro, je recherche le mot "Groupes":

[ QUOTE]
Test citation
[/QUOTE]
[ code]test code[/code]

Test citation

test code

Cells.Find(What:="Groupes", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Mais si il ne trouve pas ce mot,il bug.
Or, Je voudrai qu'il lance une macro que je peux nommer "nofind" si il ne trouve pas le mot "Groupes".

De plus, Je voudrai éviter d'utiliser on error.

Est-ce possible en VBA?
Merci d'avance

 

[job75]

Re : Lance macro si erreur de recherche

Bonjour MJ13,

Essayez :

Dim x As Range
Set x = Cells.Find(What:="Groupes", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
If x Is Nothing Then nofind Else: x.Select

A+

 

[MJ13]

Re : Lance macro si erreur de recherche

Bonjour job75

Merci pour ce code qui fonctionne très bien.

J'ai encore des lacunes!