Ecart type sur des lignes variables

Bonjour à tous j'ai un petit soucis car je voudrais automatiser un calcul d'écart type en fonction des valeurs de ma ligne qui sont variables. Ma derniere ligne est une variable nommé l et j'aimerais que la ligne du dessous soit mon écart type. Tout cela se fait sur la colonne 2. Je rpécise que tout le fichier est trié au préalable

Code:

---

1 2	Cells(l + 1, 2).Select ActiveCell.FormulaR1C1 = "=STDEV.S(R[-l]C:R[-1]C)"

---

Le résultat est une erreur définie par l'application ou par l'objet donc je pense qu'il n'aime pas le l dans la formule ...

Des idées ?

Merci d'avance :mrgreen:

Bonjour,

Pour atteindre la deuxième colonne de la dernière ligne du tableau en supposant que la dernière ligne de la colonne 1 corresponde à la ligne sur laquelle la formule s'appliquera.

Code:

---

Cells(Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1, 2).Select

---

Si la formule existe déjà sur la dernière ligne colonne 2, celle-ci sera écrasée.

Sinon, si la formule n'est mise en place qu'une seule fois, vous pouvez vous placer directement sur la cellule qui contiendra la formule.

Code:

---

Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Offset(1, 0).Select

---

Cordialement.

Le problème est que ma formule j'aimerais la placer en vba sur ma cellule et non sur ma feuille excel car je copie colle mon fichier source donc cela s'ecraserait automatiquement... Il faut juste que j'automatise ma formule et pas mon numéro de derniere ligne

En supposant que votre ligne de titre soit la ligne 1

Code:

---

1 2 3 4 5 6 7

Dim LigneDeTitre As Long   LigneDeTitre = 1 Cells(Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1, 2).Select ActiveCell.Clear   ActiveCell.FormulaR1C1 = "=STDEV.S(R[" & LigneDeTitre + 1 - ActiveCell.Row & "]C:R[-1]C)"

---

Nb : Activecell.Clear n'est pas forcément nécessaire.

Cordialement

Merci beaucoup ! En fait mon problème venait surtout de mon mauvais placement des " & " et des guillemets doubles et c'est pour cela que la formule ne marchait pas, j'ai donc fait :

Code:

---

1 2 3 4 5 6

Sheets("Feuille temporaire 2").Select l = Range("B1").End(xlDown).Row   Cells(l + 1, 2).Select   ActiveCell.FormulaR1C1 = "=STDEV.S(R[" & -l & "]C:R[-1]C)"

---

et tout fonctionne !

Merci de l'aide en tout cas. :ccool: