On Error Resume Next

Bonjour,

J'ai une macro_1 qui appelle une autre macro_2 dans ma deuxième macro je cherche dans la feuille le CodeClt si je ne le trouve pas je souhaite émettre un message et revenir a ma macro_1

macro_2

NbLignes = ListeContrat.Rows.Count
ListeClt3 = "A2" & ":M" & NbLignes + 1
'NLigne = Application.VLookup(CodeClt, Feuil19.range(ListeClt3), 13)
DerLigne3 = Feuil19.range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
ContLigne3 = Columns("M").Find(CodeClt, LookIn:=xlValues, LookAt:=xlPart).Row
If Err > 0 Then Worksheets("CtBA").Activate
ActiveSheet.ListObjects("CtratBA").range.AutoFilter Field:=13
Worksheets("Batigix").Activate
MsgBox "non trouvé"
' la je souhaiterai revenir sur la première macro_1 et si je n'ai pas erreur continuer macro_2
ActiveSheet.ListObjects("CtratBA").range.AutoFilter Field:=13, Criteria1:= _
CodeClt

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Merci de votre aide

FH

Bonjour,

Le principe à adapter à votre code:

    On Error Resume Next
    ContLigne3 = Columns("M").Find(CodeClt, LookIn:=xlValues, LookAt:=xlPart).Row

    If Err.Number = 0 Then 's'il n' y a pas d'erreur
        'on applique la suite du programme
    Else
        On Error GoTo 0 'on réinitialise la gestion d'erreur
        'on revient à la macro 1
    End If

Cdlt

Asturo83 bonjour,

Merci

Cordialement FH

Bonjour, çà fonctionne ou celà créée une boucle ? Macro 1 lance macro 2 qui si est en erreur retourne à macro 1 qui lance macro 2 ....