Discussion :

[Amélie2407]

Bonjour!
Je voudrais appliquer ma formule géométrique jusqu'à la derniere case non vide de la colonne I. Sacchant que je peux rentrer des nouvelles valeurs Comment faire?
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("H14") = (Range("G13") - Range("G14")) / Range("G14")
Range("I14") = Range("H14") + 1
nb_lignes = Range("H14").End(xlDown).Row - 13
 
Range("J13").Select
ActiveCell.FormulaR1C1 = "=GEOMEAN(I14:cells(9,nb_lignes)) "

[fring]

Bonjour et bienvenue,

Premier petit détail, tu as inversé les coordonnées ligne et colonne de la Cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(9,nb_lignes)

Cells(x, y) --> x = ligne et y = colonne

Concernant ta formule, essaye comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J13").FormulaR1C1 = "=GEOMEAN(I14:" & cells(nb_lignes, 9).Address & ")"