Utilisation de la fonction Find

[Sly le globe trotter]

Bonjour,

Je coince sur un bout de code et m'en remets une nouvelle fois à ce super forum pour avancer !

dans une macro, j'utilise le code suivant pour activer une cellule contenant une chaine de caractère :

    Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlFormulas, _
                         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                         MatchCase:=False).Activate

Le hic, c'est que le code plante si la chaine que je recherche n'est pas présente...
Comment tenir du fait que la chaine recherchée n'existe peut être pas ?

Merci

 

[Guest]

Re : Utilisation de la fonction Find

Bonjour,

Dim C as range
 
Set C= Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlFormulas, _
                         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                         MatchCase:=False)
 
If not C Is Nothing Then C.Activate

A+

 

[Pierrot93]

Re : Utilisation de la fonction Find

Bonjour,

modifie peut être comme suit :

Dim c As Range
Set c = Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False)
If Not c Is Nothing Then c.Select

bonne journée
@+

Edition : Re Hasco🙂.... Aarf, un peu lent moi....

 

[Sly le globe trotter]

Re : Utilisation de la fonction Find

Salut Hasco, Pierrot93,

Je savais que je pouvais compter sur ce forum ;-)
Merci bcp à vous deux pour votre aide.

Bon aprem
Sylvain