cherche donée dans 2 feuilles

[JANO]

Bonsoir le forum,

j'ai une macro qui fonction bien à une exception prêt ,

Sub Contrat()

Sheets("PS").Select
Columns("A:A").Select
Range("B1").Value = "Réponse"
Range("a2").Select
Do While ActiveCell <> ""
N° = ActiveCell.Value

Réponse = Application.VLookup(N°, Range("Table"), 4, False)
If Not Application.IsNA(Réponse) Then

ActiveCell.Offset(0, 1) = Réponse
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a1").Select

End Sub

Le problème est que en résulta j'ai #REF!
merci

 

[JCGL]

Re : cherche donée dans 2 feuilles

Bonjour à tous,

Peux-tu essayer avec :

Sub Contrat()

    Sheets("PS").Select
    Range("B1").Value = "Réponse"
    Range("A2").Select
    Do While ActiveCell <> ""
        Réponse = "=VLOOKUP(RC[-1],Table,2,0)"
        ActiveCell.Offset(0, 1) = Réponse
    ActiveCell.Offset(1, 0).Select
    Loop
    Range("A1").Select
End Sub

A+ à tous

 

[JANO]

Re : cherche donée dans 2 feuilles

Merci beaucoup JCGL, cela fonction trés bien.

 

[JCGL]

Re : cherche donée dans 2 feuilles

Bonjour à tous,

J'ai édité pour raccourcir le code

A+ à tous