Encore find...

[jul51]

hello,

Bon j'ai une ligne avec find qui marche sans probleme mais j'aimerais que lorsque find ne trouve pas la valeur cherchée, il m'execute un autre morceau de code du style:

MsgBox "pensez à créer cette indice, il n'existe pas"

J'ai essayer avec un On Error GoTo mais il execute uniquement le on error? (Alors que si je commente les lignes de on error, la ligne marche bien donc pas de error qui justifirait cette execution automatique)

Existe t-il une autre solution?


merci de votre aide.

 

[Pierrot93]

Re : Encore find...

Bonjour Jul

essaye peut être avec le code ci dessous :

If c Is Nothing Then MsgBox "pensez à créer cette indice, il n'existe pas"

"c" étant la valeur renvoyé par find, type de donnée "range"

bon après midi
@+

 

[jul51]

Re : Encore find...

J'avais pas pensé à cela, mais il n'execute plus que les lignes sans se préoccuper du if:

Dim moler As Range
        
    Set moler = Range("F9:F150").Find(What:=FF, After:=Range("F9"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
        If moler Is Nothing Then
        MsgBox "Création d'un nouvelle indice de référence, pensez à l'insérer dans la feuille"
        Range(Cells(CC, 59), Cells(CC, ZtDerCol - 1)).ClearContents
        Else
        moler.Activate
        End If

j'ai peut etre mal ordonné mon code?

 

[Pierrot93]

Re : Encore find...

Re

chez moi cela fonctionne, dès l'instant ou FF est initialisé par une valeur, sinon FF est vide et il sélectionne la première cellule vide...

@+

 

[Pierrot93]

Re : Encore find...

Tu peux aussi tester que FF ne soit pas vide, comme ceci :

    Set moler = Range("F9:F150").Find(What:=FF, After:=Range("F9"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
        If moler Is Nothing Or IsEmpty(FF) Then
        MsgBox "Création d'un nouvelle indice de référence, pensez à l'insérer dans la feuille"
        Range(Cells(CC, 59), Cells(CC, ZtDerCol - 1)).ClearContents
        Else
        moler.Activate
        End If

@+

 

[jul51]

Re : Encore find...

merci de ton aide pierrot, ça marche enfin. j'ai juste du changer la syntaxe du if et else pour obtenir ce que je voulais.

Thank you