Aide pour suite d'un code vba

[BrunoDS78]

Bonjour à tous,

J'ai besoin d'aide pour la suite de ce code.

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

Je voudrais compléter ce code afin que lorsque la recherche est infructieuse, un MsgBox s'affiche car actuellement ca bloque si la référence n'est pas trouvée.

Merci par avance

 

[Pierrot93]

Re : Aide pour suite d'un code vba

Bonjour,

regarde ceci :

Dim c As Range
Set c = Selection.Find(What:=Feuil4.[g10], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart)
If c Is Nothing Then MsgBox "pas trouvé... ": Exit Sub

bon après midi
@+

 

[BrunoDS78]

Re : Aide pour suite d'un code vba

Bonjour Pierrot93,

ou faut-il que je le mettes ? Avant, Apres ou a la suite ?

Merci

 

[Pierrot93]

Re : Aide pour suite d'un code vba

Re,

en lieu et place de :

Selection.Find(What:=Feuil4.[g10], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate