XL 2019 VBA : RechercheV en boucle

[Titelaulau76]

Bonjour à tous,

j'aurais besoin de votre aide.
Je débute en VBA et je n'arrive pas à trouver la solution.
J'ai réussi à faire ma macro pour rechercher ma ligne VBA
Sub CATEGORIE()
CATEGORIE Macro
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("BDD")
With ws
.Range("J2").Formula = "=VLOOKUP(A2,CATEGORIE!$A:$D,4,0)"
End With
Call SCAT
End Sub

le souci est que j'aimerais que le résultat s'affiche sur la colonne complète.
J2 soit finalement de J2 à J2000
A2 soit de A2 à A2000.

Merci à tous par avance de votre aide.

 

[Robert]

Bonjour Titelaulau, bonjour le forum,

Essaie en rajoutant cette ligne :

Sub CATEGORIE()
CATEGORIE Macro '??
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("BDD")
With ws
.Range("J2").Formula = "=VLOOKUP(A2,CATEGORIE!$A:$D,4,0)"
End With
ws.Range("J2").AutoFill Destination:=ws.Range("J2:J2000"), Type:=xlFillDefault  <----- Ici
Call SCAT
End Sub

 

[Titelaulau76]

Bonjour,

merci Robert pour ce retour.
C'est top celà fonctionne.
est-ce que tu pourrais me dire comment faire pour éviter de voir apparaitre le #N/A quand la macro ne trouve pas de réponse à la rechercheV.
Je sais faire la formule sous Excel mais pas dans VBA.
Merci par avance.

 

[Robert]

Re,

Moi c'est le contraire je suis nul en formule. Utilise l'enregistreur de macros pour obtenir le code VBA avec la bonne formule...