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
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