Aide pour suite d'un code vba

BrunoDS78 · 5 Avril 2011

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 · 5 Avril 2011

Re : Aide pour suite d'un code vba

Bonjour,

regarde ceci :

Code:

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 · 5 Avril 2011

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 · 5 Avril 2011

Re : Aide pour suite d'un code vba

Re,

en lieu et place de :

Code:

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

Aide pour suite d'un code vba

BrunoDS78

Guest

Pierrot93

XLDnaute Barbatruc

BrunoDS78

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Aide pour suite d'un code vba

BrunoDS78

Guest

Pierrot93

XLDnaute Barbatruc

BrunoDS78

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency