formule vba avec autofill variable

[JANO]

Bonsoir le forum,

savez-vous comment je peux remplacer :=Range("A1:A25") pour tirer jusque ou il y a des valeurs dans les colonnes à droite.
En fait, des fois cela peut être 25 lignes et une autre fois 40.
Merci de votre aide.


Sub formule_et_tire()

Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[1]&""-""&RC[2]&""-""&RC[3]&""-""&RC[4]"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A25")
Range("A1").Select

End Sub

 

[DoubleZero]

Re : formule vba avec autofill variable

Bonjour, JANO, le Forum,

Comme ceci ?

Sub formule_et_tire()
Range("a:a") = ""
Range("a1:a" & Range("b65536").End(xlUp).Row) = "=RC[1]&""-""&RC[2]&""-""&RC[3]&""-""&RC[4]"
End Sub

A bientôt 🙂

 

[JANO]

Re : formule vba avec autofill variable

Merci infiniment DoubleZero,
Bonne soirée à tous