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

Fab117

XLDnaute Impliqué
Hello,

Je fais une boucle où je souhaiterais mettre une formule

VB:
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 :
Code:
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

XLDnaute Impliqué
Hello,
En continuant avec la boucle sur chaque cellule, j'ai trouvé:
VB:
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
 

Discussions similaires