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)) "