RechercheV en VBA avec gestion des #N/A

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Votre précédente macro de recherchev réécrite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MAJ_WB_2020()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Dim Sh1LstRw As Long, Sh2LstRw As Long, Col As Long
    Dim DataSh1 As Range
    Application.ScreenUpdating = False
    Set Sh1 = ThisWorkbook.Worksheets("AAA")
    Set Sh2 = ThisWorkbook.Worksheets("BBB")
    Sh1LstRw = Sh1.Range("A" & Rows.Count).End(xlUp).Row
    Sh2LstRw = Sh2.Range("A" & Rows.Count).End(xlUp).Row
    Set DataSh1 = Sh1.Range("A2:AI" & Sh1LstRw)
    For i = 1 To 5
        Col = Application.WorksheetFunction.Choose(i, 9, 10, 11, 34, 35) 
        Sh2.Range(Sh2.Cells(2, Col), Sh2.Cells(Sh2LstRw, Col)).FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,AAA!C1:C36," & Col & ",0),"""")"
        Sh2.Range(Sh2.Cells(2, Col), Sh2.Cells(Sh2LstRw, Col)).Value = Sh2.Range(Sh2.Cells(2, Col), Sh2.Cells(Sh2LstRw, Col)).Value
    Next i
    Set Sh1 = Nothing
    Set Sh2 = Nothing
End Sub

Cdlt

1 pièce(s) jointe(s)

OK, je viens de voir mon erreur.
Pour que tu comprennes l'erreur, reprenons le code ci-dessous :
Code:

1 2 3 Sh2.Range("L2").Value = Application.WorksheetFunction.VLookup( _ Sh1.Range("A2").Value, DataSh1, 12, False) Sh2.Range("L2").AutoFill Destination:=Range("L2:L" & Sh2LstRw), Type:=xlFillDefault
En orange, je dis qu'il faut donner à la cellule L2 la valeur que renvoie le Vlookup. Donne je donnes une valeur fixe à L2 et non pas une formule.
Or le AutoFill permet de tirer la formule. Donc si je tire la formule d'une cellule avec une valeur fixe, je tire la valeur fixe.
Pour utiliser AutoFill, il faut donc mettre une formule dans L2.

Au passage, je viens de voir autre chose : je m'étonne un peu que la valeur recherchée dans le VLOOKUP est dans une feuille différente de celle dans laquelle on retranscrit le résultat. En général, quand on utilise VLOOKUP c'est qu'on a une donnée et que à côté on veut retranscrire une autre donnée provenant d'une base de donnée. Explication :
Pièce jointe 557668
Du coup, je pense que ton VLOOKUP ne devrait pas faire une recherche de Sh1.Range("A2").Value, mais de Sh2.Range("A2").Value.

Je dirais donc qu'il faudrait qqc comme ça :
Code:

1 2 Sh2.Range("L2").FormulaR1C1 = "=VLOOKUP(R2C1, AAA!R2C1:R" & Sh1LstRw & "C35,12,FALSE)" Sh2.Range("L2").AutoFill Destination:=Range("L2:L" & Sh2LstRw), Type:=xlFillDefault
FormulaR1C1 permet d'écrire une formule dans une cellule => voir enregistreur de macro pour avoir la syntaxe de la formule.

18/04/2020, 14h37
YNK82

Bonjour Riaolle et Arturo83,

Je vous remercie pour votre temps consacré sur mon problème. Merci pour votre support.
De ce fait, le temps d'exécution de vos code est plus rapide. Donc problème résolu.

Vos codes sont bon. Je les ai enregistré dans mon fichier perso de script pour les utiliser sur des fichiers à venir.

Encore merci à tout les 2 et bon confinement

Salutations de la Nouvelle-Calédonie

Voir 40 message(s) de cette discussion en une page