XL 2010 Ameliorer une formule

polyteis

XLDnaute Occasionnel
Bonjour,

Avec l'assistant excel, j'ai concocté cette formule,
Sub etirer_formule()
Range("b9:eek:9").select
Application.cutcopymode=false
Selection.autofill destination:=range("b9:eek:50000")
Range("b9:eek:50000").select
Activesheet.calculate
End sub
A chaque mise a jour de la colonne A, je lance le bouton pour etirer ma formule.
Est il envisageable de parametrer dans ma formule le nombre de ligne a recalculer, en fonction de la derniere ligne de A

Merci pour vos retour
 

vgendron

XLDnaute Barbatruc
Bonjour
il suffit de retrouver la dernière ligne non vide de la colonne A
VB:
Sub etirer_formule()
fin=range("A" &rows.count).end(xlup).row
Range("b9:D9").autofill destination:=range("b9:D" &fin")

Activesheet.calculate
End sub
 

Discussions similaires

Statistiques des forums

Discussions
312 895
Messages
2 093 382
Membres
105 713
dernier inscrit
Karimov