Discussion :

[mrmouche30]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.End(xlUp).Row

J'ai essayé les codes suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

Salut,

un premier point ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à transformer (en principe) en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mrmouche30]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mrmouche30]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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