XL 2013 macros calculer la ligne suivante

[arrazki]

Bonjour,

J'essaye de créer une macros ou je peux appliquer ma formule de calcule sur la ligne suivante (cellule du bas suivante) jusqu’à la dernière ligne contenant une valeur.
ci-joint mon fichier avec un onglet contenant la macros.
Je veux faire une recherchev par rapport à l'onglet base prov dans l'onglet prov.
Dans l'onglet prov j'ai une formule en G2 et une recherchev en J2.
J'aimerai que ma macros exécute ces formule de calcul et quelle fasse copier coller valeur au lieu de laisser la formule de calcule dans les cellules.

Pouvez vous m'aider?

Merci

 

[vgendron]

Hello

Test avec cette macro

Sub formule()


Nbrligne = Range("a1").CurrentRegion.Rows.Count ' nbr de ligne
formuleG = "=""prov ove-""&J2"
formuleI = "=vlookup(E:E, 'base prov'!E:J,6,""FAUX"")"

Range("G2").Formula = formuleG
ActiveSheet.Range("I2").Formula = formuleI


Range("G2:G" & Nbrligne).FillDown
Range("I2:I" & Nbrligne).FillDown
Range("I:I").Copy
Range("I:I").PasteSpecial xlPasteValues

End Sub

 

[arrazki]

Sub formule()


Nbrligne = Range("a1").CurrentRegion.Rows.Count ' nbr de ligne
formuleG = "=""prov ove-""&J2"
formuleI = "=vlookup(E:E, 'base prov'!E:J,6,""FAUX"")"

Range("G2").Formula = formuleG
ActiveSheet.Range("I2").Formula = formuleI


Range("G2:G" & Nbrligne).FillDown
Range("I2:I" & Nbrligne).FillDown
Range("I:I").Copy
Range("I:I").PasteSpecial xlPasteValues

End Sub

HELLO,

Ca marche impect

Merci beaucoup