VBA - Formule RECHERCHEV jusqu'à dernière cellule non vide

[julien712]

Bonjour

J'ai ma formule "=RECHERCHEV(Y3;Global!$A:$K;9;0)"
Jusqu'à présent, j'ai mis cette formule jusqu'à la fin de mon tableau
Le tableau sera modifié chaque semaine. Des données viendront se rajouter dans la colonne Y

Je peux me servir de la formule : =SI(Y3="";"";RECHERCHEV(Y3;Global!$A:$K;9;0)

Le problème de la formule est que si je la colle jusqu'à la ligne 65536, la taille de mon fichier devient monstrueuse. (plus de 60Mo)

Donc je cherche un code VBA qui s'arrete de copier la formule jusqu'à la dernière ligne Y complète.

Faut il définir une variable qui indique la dernière ligne et ensuite appeler cette variable dans une boucle ?

Merci

Cdlt

 

[cbea]

Re : VBA - Formule RECHERCHEV jusqu'à dernière cellule non vide

Bonjour julien712,

voici une solution :

    Dim lgDebLig As Long
    Dim lgFinLig As Long
    Dim lgLig As Long
    
    ' Première ligne de la colonne Y
    lgDebLig = 7    ' A changer en fonction du début de la première ligne de données
    ' Dernière ligne remplie en colonne Y
    lgFinLig = Range("Y" & Cells.Rows.Count).End(xlUp).Row
    
    For lgLig = lgDebLig To lgFinLig
        ' Mettre la formule dans la colonne désirée
        Range("Z" & lgLig).Formula = "=VLOOKUP(Y" & lgLig & ",Global!$A:$K,9,0)"
    Next lgLig

 

[julien712]

Re : VBA - Formule RECHERCHEV jusqu'à dernière cellule non vide

Bonjour

Cela fonctionne merci
Je croyais que pour le VLOOKUP il ne fallait pas mettre la formule de recherchev mais plutot une formule différente.

mais bon cela fonctionne apriori 🙂

Merci en tout cas🙂

 

[cbea]

Re : VBA - Formule RECHERCHEV jusqu'à dernière cellule non vide

La formule est légèrement différente puisque VLOOKUP est une instruction en anglais et que par conséquent les ";" sont remplacés par les "," .