Macro qui remplace #N/A par un message

mth

XLDnaute Barbatruc

• 22 Octobre 2010

• #2

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

Bonsoir Gourdin,

Peut-être une simple formule ?:

Code:

=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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 22 Octobre 2010

• #3

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é.

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 23 Octobre 2010

• #4

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

re,

Petit essai avec ce code:

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Octobre 2010

• #5

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 23 Octobre 2010

• #7

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Octobre 2010

• #8

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.

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 23 Octobre 2010

• #9

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

 

Dernière édition: 23 Octobre 2010

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Octobre 2010

• #10

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

Merci pour ton aide

Bonne soirée

 

Vote positif 0 Vote négatif