problème VBA Excel rempalcer rechercheV

Bonjour a tous
Donc pour ceux qui recherche comme moi et qui n'on pas d'aide je vous met ce que j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub CommandButton4_Click()
'ICI LA MACRO RECHERCHE LES REFERENCES DANS LE FICHIER RESSOURCE ET 
'COPIE DANS CETTE FEUILLE LES PRIX
 
    Sheets("Ma_feuille_ou_je_veux_insérer_les_prix").Select
    Dim rngArticle As Range
    Dim myWs As Worksheet
    Set myWs = ThisWorkbook.ActiveSheet
    Set rngArticle = myWs.Range(myWs.Range("K4"), myWs.Range("K4").End(xlDown))
  'c'est ici la plage de donné que je veux recherché
 
    '       OUVERTURE DU FICHIER DE PRIX (en caché)
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    Dim xlWk As Workbook
    Set xlWk = xlApp.Workbooks.Open("C:\Users\fichier_de_prix.xls")
    Dim xlWs As Worksheet
    Set xlWs = xlWk.Worksheets(1)
 
    '       RECHERCHE DE L'ARTICLE DANS L'AUTRE FICHIER(la base de donnée)
    Dim rngArticleRecherche As Range
    Set rngArticleRecherche = xlWs.Range(xlWs.Range("B2"), xlWs.Range("B65536").End(xlUp))
    'c'est ici la plage de donné dans la quel je recherche
 
    Dim rngRefTrouve As Range
    Dim cell As Range
    For Each cell In rngArticle
        Set rngRefTrouve = rngArticleRecherche.Find(cell.Value, , xlValues, xlWhole)
        If rngRefTrouve Is Nothing Then
            'MsgBox ("ATTENTION l'une ou plus des références est non trouvée")
            cell.Offset(, 1).Value = "#N/A"
            'si il n'a pas trouvé la ref, je met non-attribué dans la cellule de droite
        Else
            cell.Offset(, 1).Value = rngRefTrouve.Offset(, 6).Value
            'si il trouve alors il met la valeur de la 6em cellule de mon dossier ressources
            'dans la cellule de droite de mon dossier que je veux compléter
        End If
    Next
 
    '       LIBERATION DES RESSOURCES (fermeture du fichier caché)
    Set xlWs = Nothing
    xlWk.Close (False)
    Set xlWk = Nothing
    xlApp.Quit
    Set xlApp = Nothing
End Sub

Ce code permet de faire une rechercheV sans utiliser toute la RAM
c'est a dire qu'il va chercher une plage de cellule dans un autre fichier "sans l'ouvrir"
et copie la Xème cellule dans ta feuille de départ.