La fonction Ttest() [Résolu]

[Dormeur74]

Bonjour tout le monde,
Après 48 heures de galère et de recherches ici et là en Français et en Anglais, la fonction Ttest en VBA me sort toujours la même erreur : #NOM?

Savez-vous si cette fonction accepte des variables :

Code :

Cellule.FormulaR1C1 = "= TTEST(echantillon1, echantillon2,2,3)"

echantillon1 et échantillon2 étant des plages définies ci-dessous à titre d'exemple.

Code :

1
2
set echantillon1=range(C2:C7)
set echantillon2=range(B2:B5

)

La dernière valeur des colonnes B (ici 5) et C (ici 7) pouvant varier, je ne veux rien taper dans le dur.

Merci d'avance.

[Jean-Pierre49]

Bonjour,

Pas testé

Code :

Cellule.FormulaR1C1 = "= TTEST(" & echantillon1 & "," &  echantillon2 & ",2,3)"

Je ne connais pas cette fonction mais lorsque l'on veut insérer des variables dans une chaine de caractère il faut les insérer en coupant la chaine.

Tu dis

Bon courage

[mercatog]

Bonjour

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CommentFaire()
Dim Cellule As Range, Echantillon1 As Range, Echantillon2 As Range
Dim Nc As Long, Nb As Long
 
With Worksheets("Feuil1")
    Nc = .Cells(.Rows.Count, "C").End(xlUp).Row
    Set Echantillon1 = .Range("C2:C" & Nc)
    Nb = .Cells(.Rows.Count, "B").End(xlUp).Row
    Set Echantillon2 = .Range("B2:B" & Nb)
    Set Cellule = .Range("A1")
End With
 
Cellule.Formula = "=T.TEST(" & Echantillon1.Address & "," & Echantillon2.Address & ",2,3)"
 
Set Echantillon1 = Nothing
Set Echantillon2 = Nothing
Set Cellule = Nothing
End Sub

[gFZT82]

Bonjour,

Pour inscrire la formule

Code :

= TEST.STUDENT($C$2:$C$7;$B$2:$B$5;2;3)

dans la cellule A1, tu peux utiliser la ligne de code proposée par mercatog

Code :

.Range("A1").Formula = "= TTEST(" & echantillon1.Address & "," & echantillon2.Address & ",2,3)"

Pour avoir simplement le résultat inscrit dans la cellule A1, tu peux utiliser

Code :

.Range("A1") = WorksheetFunction.TTest(echantillon1, echantillon2, 2, 3)

Cordialement.

[Dormeur74]

La solution était bien

Code :

.Range("A1").Formula = "= TTEST(" & echantillon1.Address & "," & echantillon2.Address & ",2,3)"

Un grand bravo et surtout un grand merci à vous tous.