Microsoft 365 VBA - Mettre une formule dans une cellule (dans une boucle For i = ...)

[Fab117]

Hello,

Je fais une boucle où je souhaiterais mettre une formule

For i = 1 to 10
    'Je souhaiterais qu'il mette dans la cellule K&i la formule :  J&i divisé par la cellule K$2)
Next i

Le but étant de pouvoir déplacer mes lignes (en ajouter ou/et en supprimer, sans que ça n'influence le résultat) et/ou changer la valeur de la cellule K$2 et garder un résultat à jour.

J'ai essayé d'adapter :

Range("C2").Formula = "=A2*B2"

' avec des variantes de

Range("K" & i).Formula = "=Cells(i,10)/(K$2/2)"'

Mais sans succès jusque là.

Quelqu'un aurait-il la solution ?

Merci d'avance

Fab

 

[Fab117]

Hello,
En continuant avec la boucle sur chaque cellule, j'ai trouvé:

Range("M" & i).Formula = "=L" & i & "+K" & i & "*7"

Encore un grand merci à vous trois Bernard, Marcel et Jean Marie pour avoir pris le temps :

• De m'aider à résoudre mon problème
• De m'avoir proposer des alternatives "plus propres"

Très bone journée à vous

Fab