Macro: Répéter une formule sur plusieurs lignes

[Fredox]

Bonjour,

Est-il possible de faire mieux que de réécrire ma formule 30 fois ?

Range("M19").Value = "=J19+(L19*100)"

il faudrait modifier les "19", de 19 à 49


Merci

 

[gilbert_RGI]

Re : Macro: Répéter une formule sur plusieurs lignes

Bonjour

comme ceci

Sub test()
For i = 19 To 49
Range("M" & i).Value = "=J" & i & "+(L" & i & "*100)"
Next
End Sub

 

[mapomme]

Re : Macro: Répéter une formule sur plusieurs lignes

Bonsoir Fredox,

Essayez: Range("M19:M49").Formula = "=J19+(L19*100)"

 

[Fredox]

Re : Macro: Répéter une formule sur plusieurs lignes

Merci Gilbert, Merci mapomme, les deux fonctionnent


Merci.

 

[Staple1600]

Re : Macro: Répéter une formule sur plusieurs lignes

Bonjour à tous

Une troisiéme pour varier les plaisirs

Sub b()
[M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)"
End Sub

PS: Sinon sans macros, on insère la formule en M19, touche F5-> M19:M49, CTRL+B

 

[gilbert_RGI]

Re : Macro: Répéter une formule sur plusieurs lignes

Bonjour à tous

Une troisiéme pour varier les plaisirs

Sub b()
[M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)"
End Sub

Ne copie la formule que sur 29 lignes ! ?