Macro qui remplace #N/A par un message

[gourdin]

Bonsoir

Je souhaite qu'une macro place une formule du type "=rechercheV" dans une cellule mais si la valeur cherchée n'est pas trouvée ne s'affiche pas dans la cellule le code #N/A mais qu'un message d'erreur apparaîsse et arrête la macro.

Voir fichier joint en exemple

Merci

 

[mth]

Re : Macro qui remplace #N/A par un message

Bonsoir Gourdin,

Peut-être une simple formule ?:

=SI(ESTNA(RECHERCHEV(F7;C3:D10;2;FAUX));"ERREUR";RECHERCHEV(F7;C3:D10;2;FAUX))

(tu peux remettre en macro par l'enregistreur si tu veux bien sûr)

Bien à toi,

mth

 

[gourdin]

Re : Macro qui remplace #N/A par un message

Merci

Mais je souhaite que la macro délivre un message et s'arrete sans rien mettre dans la cellule F8 si la valeur cherchée n'a pas été trouvé.

 

[mth]

Re : Macro qui remplace #N/A par un message

re,

Petit essai avec ce code:

Sub Macro2()
With Sheets("Feuil1")
    If IsError(Application.VLookup(.Range("F7"), .Range("C3:D10"), 2, False)) Then
        MsgBox ("Erreur")
        .Range("F8").ClearContents
        Exit Sub
    Else
        .Range("F8") = Application.VLookup(.Range("F7"), .Range("C3:D10"), 2, False)
    End If
End With
End Sub

Bonne soirée,

mth

 

[gourdin]

Re : Macro qui remplace #N/A par un message

Merci

Je vais voir demain si je peux l'adapter à mon fichier original (c'est pas gagné...)

Bonne soirée

 

[gourdin]

Re : Macro qui remplace #N/A par un message

J'ai essayé mais ça ne convenait pas au fichier original.

Finalement, je pense plus simple que la macro fasse les actions suivantes :

Si la valeur cherchée "F7" se trouve dans dans la plage C3:C10 alors s'inscrit en "F8" la formule "'=RECHERCHEV(F7;C3😀10;2;FAUX)
sinon apparait le message "erreur" .

Quel serait le code de ce type de macro ?

Merci

 

[mth]

Re : Macro qui remplace #N/A par un message

Bonsoir gourdin,


euh ... n'est-ce pas déjà ce que fait la macro?
Je ne comprends pas bien la différence, est-ce la msgbox que tu veux supprimer et la remplacer par le message "erreur" dans la cellule ?
(ce qui du coup n'est pas loin de la proposition précédente ...)

Bref, comme tu le vois, je ne comprends pas ce que tu veux 😱

Bonne soirée,

mth

 

[gourdin]

Re : Macro qui remplace #N/A par un message

En fait je n'avais pas bien compris le code de ta macro, qui fait exactement ce que je souhaite.

Mais je n'arrive pas à l'adapter à mon code original qui est (en partie) le suivant :

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],base,2,FALSE))"

Désolé si je ne suis pas assez clair.

 

[mth]

Re : Macro qui remplace #N/A par un message

re 🙂

A priori, tu retires ton code actuel, enfin ces deux lignes (dont on ne peut pas dire grand chose comme ça prises isolément hors contexte ...), tu mets le code proposé à la place, tu remplaces "Feuill1" par le vrai nom de ton onglet, ainsi que .Range("C3: C10") par Base, on ne devrait pas tomber loin ?

Bonne soirée,

mth

 

[gourdin]

Re : Macro qui remplace #N/A par un message

Merci pour ton aide

Bonne soirée