Sortir et rerentrer dans une fonction "with end with"

[brizard]

Bonjour, je voudrai à partir d'une fonction with, end with lancer une deusième fonction with end with, puis revenir dans la première fonction with end with. Le problème est lors du retour dans la première fonction ça plante. Si quelqu'un peux m'aider ça serai sympa.
Mes variables sont déclarées "Public" dans un module.
Sub recherche1()

Worksheets("FRUITS ET LEGUMES").Activate
With Range("A1", "A20")
Set légumes = .Find("TOMATES")
If Not légumes Is Nothing Then
firstAddress = légumes.Address
Do


Worksheets("ESPAGNE").Activate
Range("A1").Select
Call recherche2

Set légumes = .FindNext(légumes)
Loop While Not légumes Is Nothing And légumes.Address <> firstAddress
End If

End With
End Sub


Sub recherche2()

With Range("A1", "A20")
Set barquette = .Find("Barquette 1kg5")
If Not barquette Is Nothing Then
firstAddress = barquette.Address
Do

barquette.Offset(0, 1).Select
Worksheets("FRUITS ET LEGUMES").Activate
Exit With
Set barquette = .FindNext(barquette)
Loop While Not barquette Is Nothing And barquette.Address <> firstAddress
End If

End With
End Sub

 

[ROGER2327]

Re : Sortir et rerentrer dans une fonction "with end with"

Bonjour brizard

Premier problème : Exit With n'existe pas. Les syntaxes associées à Exit sont :
Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
Deuxième problème : sans savoir ce que doivent faire ces procédures et sans voir à quelles données elles s'appliquent, il est délicat de faire des commentaires pertinents.
Un classeur support et quelques explications claires sur ce que vous cherchez à obtenir seront les bienvenus.
​

ROGER2327
#2555

 

[brizard]

Re : Sortir et rerentrer dans une fonction "with end with"

Merci de me consacrer un peu de temps, j'ai joint un petit fichier exemple.
Cordialement

 

[PMO2]

Re : Sortir et rerentrer dans une fonction "with end with"

Bonjour,

A tout hasard, essayez avec votre pièce jointe modifiée.

Cordialement.

PMO
Patrick Morange

 

[brizard]

Re : Sortir et rerentrer dans une fonction "with end with"

Merci de votre aide, c'est déjà mieux, le problème maintenant, c'est que dans la procédure "recherche1", la fonction find ne continue pas, elle s'arrête au premier objet trouvé, et dans mon cas elle doit pouvoir trouver plusieurs objets par exemple "Tomates" ou "Tomates cerises" ou "Tomates vertes". et relancer "recherche2" à chaque fois. Je continue à chercher une solution de mon côté. Bien aimable à vous de m'aider.
Cordialement
Brisard