Problème fonction Vlookup avec VBA

Bonsoir à tous,

J'ai un petit soucis sur ma macro, j'aimerai faire un vlookup entre deux feuilles de mon excel,

En gros j'ai une feuille "Collateral", l'autre s'appelle "Exposure"

Je voulais faire un Vlookup de la valeur de la colonne A de ma feuille Collateral la chercher entre les colonnes A et D de ma feuille "Exposure" prendre la valeur de la troisième colonne après et mettre le résultat en colonne 6 de ma feuille "Collateral".

Evidemment le nombre de mes lignes est variable, du coup je suis obligé de mettre le code

Code:

---

.End(xlUp).Row

---

J'ai essayé les codes suivants :

Code:

---

1 2 3 4 5

For l = Sheets("Collateral").Range("A2").End(xlUp).Row To 2 Step -1 Sheets("Collateral").Cells(l, 6).Value = Application.VLookup(Sheets("Collateral").Cells(l, 1).Value, Sheets("Exposure").Range("A2:D").End(xlUp).Row, 3, False)   Next

---

Ainsi que

Code:

---

1 2 3 4 5

'For l = Sheets("Collateral").Range("A2").End(xlUp).Row To 2 Step -1 'Sheets("Collateral").Cells(l, 6).Value = Application.VLookup(Sheets("Collateral").Cells(l, 1).Value, (Sheets("Exposure").Range(Cells(2, 1), Cells(Rows.Count, 3).End(xlUp))), 3, False)   'Next

---

Vous auriez une idée de ce qui coince dans mon code ?

Merci d'avance,

Mrmouche

Salut,

un premier point ici :

Code:

---

Sheets("Exposure").Range("A2:D").End(xlUp).Row

---

à transformer (en principe) en

Code:

---

Sheets("Exposure").Range("A2:D" & Sheets("Exposure").Range("A65536").End(xlUp).Row)

---

Bonjour Jean Philippe,

Merci pour ta réponse, malheureusement la colonne 6 de ma feuille "collateral" qui devait accueillir le résultat de ma fonction vlookup est toujours vide,

J'ai mis ce code :

Code:

---

1 2 3 4 5

For l = Sheets("Collateral").Range("A2").End(xlUp).Row To 2 Step -1 Sheets("Collateral").Cells(l, 6).Value = Application.VLookup(Sheets("Collateral").Cells(l, 1).Value, Sheets("Exposure").Range("A2:D" & Sheets("Exposure").Range("A65536").End(xlUp).Row), 3, False)   Next

---

Citation:

---

Envoyé par Jean-Philippe André

Code:

---

Sheets("Exposure").Range("A2:D" & Sheets("Exposure").Range("A65536").End(xlUp).Row)

---

---

Bonjour, je voudrais pas me fâcher avec un modérateur mais "Range("A65536").End(xlUp).Row" c'est une mauvaise habitude, depuis 2007 Excel dépasse les 65000 lignes il vaut mieux utiliser Range("A" & rows.count). qui marche pour les fichiers xls et xlsx

De plus je crois qu'il y a un problème d'initialisation de la boucle:

Code:

---

For l = Sheets("Collateral").Range("A2").End(xlUp).Row To 2 Step -1

---

Soit tu pars de A2 et tu vas vers le bas (xldown) (si tu es sur qu'il n'y a pas de vide), soit tu pars de A & rows.count et tu vas vers le haut (xlup)
Là tu pars de A2 et tu montes donc en A1 donc tu boucles de 1 a 2 step -1 donc il ne fait rien.

Hello,

Merci beaucoup pour votre aide,

C'est vrai qu'il s'agissait d'un problème au début de la boucle, mon code fonctionne de cette façon :

Code:

---

1 2 3 4

For l = Sheets("Collateral").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 Sheets("Collateral").Cells(l, 6).Value = Application.VLookup(Sheets("Collateral").Cells(l, 1).Value, Sheets("Exposure").Range("A2:D" & Sheets("Exposure").Range("A" & Rows.Count).End(xlUp).Row), 3, False) Next

---

Citation:

---

Envoyé par halaster08

Bonjour, je voudrais pas me fâcher avec un modérateur mais "Range("A65536").End(xlUp).Row" c'est une mauvaise habitude, depuis 2007 Excel dépasse les 65000 lignes il vaut mieux utiliser Range("A" & rows.count). qui marche pour les fichiers xls et xlsx

---

On ne se fâche pas, tu as tout à fait raison ;)