XL 2013 macros calculer la ligne suivante

arrazki

XLDnaute Junior
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
 

Fichiers joints

vgendron

XLDnaute Barbatruc
Hello

Test avec cette macro
VB:
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

XLDnaute Junior
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
 

Discussions similaires


Haut Bas