[XL-2010] Vlookup en VBA

Bonjour la communauté,

Tout d'abord je tiens à dire que je suis un gros débutant du VBA et que ma question concerne peut-être un code de 4 lignes mais voila j'ai trouver la réponse nul-part..

Voila mon problème. J'aimerai feeder mensuellement une partie d'une base de données à partir d'une autre base de données. Les base en questions fonctionnent comme un tableau à double entrée il y a un identifiant dans la première colonne et un identifiant en premiere ligne pour chaque colonne. Les deux sont dans le même classeur sur des sheet différente (disons sheet1 pour la base de donnée réceptrice et sheet2 pour la base de donnée qui va donné).

Je pourrais donc faire un simple vlookup dans les colonnes concernée de la sheet1 malheureusement la base qui doit être feeder ne peut pas contenir de formule.

Je n'ai pas trouver de bout de code duquel je pourrais commencer et je suis malheureusement trop débutant pour partir "from scratch". Quelqu'un pour aider un débutant ? Merci d'avance.

Bonjour,

Citation:

---

Envoyé par Sillystick

je suis malheureusement trop débutant pour partir "from scratch". Quelqu'un pour aider un débutant ? Merci d'avance.

---

Dans Excel, et Word, il y a un enregistreur de macros pour t'aider à commencer. C'est un peu long à expliquer ici, mais, il y a la marche à suivre dans ton aide.

Bonjour,

Si un VLookUp peut servir, tu pourrais générer ces formules par code, si nécessaire, et les remettre en valeur par la suite.

Code:

---

1 2 3

Range("B2:B" & nbLignes).Formula = "=VLOOKUP(.....)" Range("B2:B" & nbLignes).Copy Range("B2:B" & nbLignes).PasteSpecial xlPasteValues

---

Ça te copiera ta formule dans toute ta colonne de données et la mettra en valeur par la suite. Il s'agit juste de faire attention aux "$" dans les adresses.

Il y a aussi possibilité de passer par WorksheetFunction.VLOOKUP
À voir dans ton aide...

Autrement, il te faudrait boucler lignes et colonnes et ça risque d'être pas mal plus long, selon moi...

Merci pour ta réponse parmi,

j'ai essayer d'adapter ton code comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub copy() Dim i As Variant Dim b As Variant     b = Worksheets("Page5_1").Range("A3:h106")     For i = 3 To 7   Worksheets("sheet1").Select Range("B" & i) = WorksheetFunction.VLookup(Range("A" & i), b, 2) Next i Range("B2:B" & 7).copy Range("B2:B" & 7).PasteSpecial xlPasteValues       End Sub

---

Seulement adapter ce code pour les 4000 lignes sera vite fais mais pas pour les 25 colonnes... est ce que par hasard quelqu'un aurait une idée de code plus "léger" ?

Si tu es capable d'écrire tes formules dans ta feuille, tu peux aussi le faire dans le code.

Aucun besoin de boucle là-dedans...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Copie() Dim nbLignes As Long   Application.Calculation = xlCalculationManual 'passe en mode calcul manuel   Worksheets("sheet1").Activate 'Pas vraiment nécessaire si on la nomme expressément... nbLignes = Cells(Rows.Count, "A").End(xlUp).Row   Range("B3:B" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 2, FALSE)" Range("C3:C" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 3, FALSE)" Range("D3:D" & nbLignes).Formula = "=VLookup(A3, Page5_1!$A$3:$H$106, 4, FALSE)"   Application.Calculation = xlCalculationAutomatic 'passe en mode calcul automatique pour mettre à jour les formules une seule fois   Range("B2:Z" & nbLignes).copy Range("B2:Z" & nbLignes).PasteSpecial xlPasteValues   Range("A1").Select Application.CutCopyMode = False   End Sub

---

Merci parmi ton code marche à ravire ! J'ai d'autre question mais je pense ouvrir une nouvelle discussion car ce n'est plus relater à cette problèmatique.