Complément de code

[BrunoDS78]

Bonjour à tous,

Quelqu'un serait-il comment transformer ce code pour que quand la recherche est infructueuse, j'ai une MsgBox avec "Référence introuvable".

Sub Relancer()
Application.ScreenUpdating = 0
Feuil2.Select
[A:A].Select
Selection.Find(What:=Feuil4.[g10], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
ActiveCell.Offset(0, 9) = Feuil1.[h2]
ActiveCell.Select
Feuil4.Activate


Merci d'avance

 

[Pierrot93]

Re : Complément de code

Re,

tu as une résonse ici :
https://www.excel-downloads.com/threads/aide-pour-suite-dun-code-vba.161043/

inutile de multiplier les posts, après très dur à suivre pour tout le monde....