Discussion :

[jords]

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 :

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

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

[Invité]

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 :

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

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 :

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

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

Cordialement.

[jords]

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

[Invité]

En supposant que votre ligne de titre soit la ligne 1

Code :

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

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

[jords]

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 :

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

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.