Bonjour,
j'ai un code qui met à jour la colonne D de la feuil activé par rapport à la colonne E de la feuil Base de données.
Ce code il prends comme critère de recherche la colonne C de la feuil active par rapport à la colonne D de la feuil Base de données.
Je souhaite utilisé ce code sur un autre fichier mais malheureusement j'ai pas pu l'adapter.
Je souhaite avoire une recherche multi critère :
1 colonne B de la feuil active / colonne A de la feuil Base de données
2 colonne C de la feuil active / colonne B de la feuil Base de données
et la colonne à mettre à jour est E de la feuil active par rapport à la colonne C de la base de donénes.
Est ce que quelqu'un d'entre vous pourrait m'aider ? sachant que je connais pas grande chose en VBA
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Mise_à_jour_n°_pièce() Application.ScreenUpdating = False Set bdd = Worksheets("Base de données") L = 3 'Ligne de début nblig1 = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row For i = L To nblig1 ActiveSheet.Cells(i, "D") = WorksheetFunction.VLookup(ActiveSheet.Cells(i, "C").Value, bdd.Range("$d$2:$e$2000"), 2, False) Next Application.ScreenUpdating = True End Sub
Partager