XL 2013 macros calculer la ligne suivante

arrazki · 30 Novembre 2016

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 · 1 Décembre 2016

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 · 1 Décembre 2016

vgendron à dit:
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

XL 2013 macros calculer la ligne suivante

arrazki

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Discussions similaires

XL 2013 macros calculer la ligne suivante

arrazki

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency