Pb avec VLookup...

[titymax]

Bonjour et Bonne à tous !!

Concernant VBA, le changement d'année n'a rien changé, je suis toujours aussi naze...

Dans l'exemple joint, ça plante et je ne vois pas pourquoi ?

Pouvez vous m'aider ?

Merci bcp.

 

[titymax]

Re : Pb avec VLookup...

En changeant "WorkbookFunction.VLookup" par Application.VLookup", ça fonctionne, sauf que pour certaines lignes il y a "#N/A" qui s'affiche, comment puis je éviter cela ?

 

[Staple1600]

Re : Pb avec VLookup...

Bonjour à tous

En biaisant ainsi, cela fonctionne

Sub recopie()
Dim cel As Range, i As Long
Sheets("Feuil1").Select
Application.ScreenUpdating = False
i = 6
For Each cel In Range("B6", [B1000].End(xlUp))
If Not IsEmpty(cel) Then
Cells(i, "I") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,2,0)"]
Cells(i, "J") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,3,0)"]
Cells(i, "K") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,5,0)"]
End If
i = i + 1
Next
Application.ScreenUpdating = True
End Sub

EDITION:Je viens juste de voir ton message numéro deux
Pour les #NA voir avec SI et ESTNA
remplace la formule dans le code ci-dessus par celle-ci

"=IF(ISNA(VLOOKUP(RC2,Feuil2!R6C1:R9C5,2,0)),"""",VLOOKUP(RC2,Feuil2!R6C1:R9C5,2,0))"

 

[titymax]

Re : Pb avec VLookup...

Super et merci Staple, c'est exactement ce que je voulais, bonne année à toi !!