Discussion :

[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 :

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

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

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

Code :

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

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 :

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

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 :

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

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 :

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

= 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 :

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

.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 :

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

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

Cordialement.

[Dormeur74]

La solution était bien

Code :

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

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

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