Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

analyse statistique, interprétation des résultats, items examen

9 réponses
Avatar
nanaco
analyse statistique, interprétation des résultats, items examen

9 réponses

Avatar
Misange
tournedos rossini, vacherin, tatin
chacun ses choix dans la vie !
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !


nanaco a écrit :
analyse statistique, interprétation des résultats, items examen


Avatar
Jacky
> tournedos rossini, vacherin, tatin


Avec un choix pareil, si tu lances une invitation, il y aura des
participants.....c'est certain!
;o))
--
Salutations
JJ


"Misange" a écrit dans le message de news:
%23l$
tournedos rossini, vacherin, tatin
chacun ses choix dans la vie !
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !


Avatar
Misange
;-)
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !


Jacky a écrit :
tournedos rossini, vacherin, tatin


Avec un choix pareil, si tu lances une invitation, il y aura des
participants.....c'est certain!
;o))


Avatar
garnote
analyse statistique, interprétation des résultats, items examen

Sub Pas_Évident()
Dim t()
Dim rep As String
t = Array(1.888303283, 2.010358238, 1.888303283, 1.992523169, 2.103140962, _
2.053602014, 1.927469613, 0.841103576, 2.053602014, 2.062030812, 1.888303283, _
2.062030812, 1.965159583, 2.053602014, 2.062030812, 1.965159583, 2.036528245, _
2.070389158, 1.927469613, 1.134873854, 0.841103576, 1.965159583, 2.010358238, _
2.062030812, 1.927469613, 2.045101568, 2.027880783, 2.045101568, 2.746149766, _
2.062030812, 1.888303283, 2.062030812, 1.965159583, 2.01915789, 2.010358238, _
0.841103576, 1.917820902, 1.927469613, 2.053602014, 0.841103576, 2.045101568, _
2.746149766, 2.053602014, 2.070389158, 1.992523169, 2.062030812, 1.888303283, _
2.062030812, 2.053602014, 1.134873854, 0.841103576, 1.965159583, 2.062030812, _
1.927469613, 2.001480465, 2.053602014, 0.841103576, 1.927469613, 2.095053025, _
1.888303283, 2.001480465, 1.927469613, 2.010358238)
For i = 0 To 62
rep = rep & Chr(([EXP(1)] ^ (t(i) + [EXP(1)]) - [Pi()]))
Next i
MsgBox rep
End Sub


Serge ;-)))
Avatar
isabelle
http://cjoint.com/?dBnfsewgLU
;-)
isabelle

garnote a écrit :
analyse statistique, interprétation des résultats, items examen

Sub Pas_Évident()
Dim t()
Dim rep As String
t = Array(1.888303283, 2.010358238, 1.888303283, 1.992523169, 2.103140962, _
2.053602014, 1.927469613, 0.841103576, 2.053602014, 2.062030812, 1.888303283, _
2.062030812, 1.965159583, 2.053602014, 2.062030812, 1.965159583, 2.036528245, _
2.070389158, 1.927469613, 1.134873854, 0.841103576, 1.965159583, 2.010358238, _
2.062030812, 1.927469613, 2.045101568, 2.027880783, 2.045101568, 2.746149766, _
2.062030812, 1.888303283, 2.062030812, 1.965159583, 2.01915789, 2.010358238, _
0.841103576, 1.917820902, 1.927469613, 2.053602014, 0.841103576, 2.045101568, _
2.746149766, 2.053602014, 2.070389158, 1.992523169, 2.062030812, 1.888303283, _
2.062030812, 2.053602014, 1.134873854, 0.841103576, 1.965159583, 2.062030812, _
1.927469613, 2.001480465, 2.053602014, 0.841103576, 1.927469613, 2.095053025, _
1.888303283, 2.001480465, 1.927469613, 2.010358238)
For i = 0 To 62
rep = rep & Chr(([EXP(1)] ^ (t(i) + [EXP(1)]) - [Pi()]))
Next i
MsgBox rep
End Sub


Serge ;-)))





Avatar
Modeste
Bonsour® garnote avec ferveur ;o))) vous nous disiez :

analyse statistique, interprétation des résultats, items examen

Sub Pas_Évident()
MsgBox rep
End Sub
Serge ;-)))



j'aime pô les exponentielles...
tu peux nous le refaire avec des fonctions trigonométriques ???
;o)))
Avatar
garnote
Elle est bien bonne celle-là ;-)

Ou bien :

http://www.cijoint.fr/cjlink.php?file=cj200903/cijNhfIQSc.xls

Serge


"isabelle" a écrit dans le message de news:
http://cjoint.com/?dBnfsewgLU
;-)
isabelle

garnote a écrit :
analyse statistique, interprétation des résultats, items examen

Sub Pas_Évident()
Dim t()
Dim rep As String
t = Array(1.888303283, 2.010358238, 1.888303283, 1.992523169, 2.103140962, _
2.053602014, 1.927469613, 0.841103576, 2.053602014, 2.062030812, 1.888303283, _
2.062030812, 1.965159583, 2.053602014, 2.062030812, 1.965159583, 2.036528245, _
2.070389158, 1.927469613, 1.134873854, 0.841103576, 1.965159583, 2.010358238, _
2.062030812, 1.927469613, 2.045101568, 2.027880783, 2.045101568, 2.746149766, _
2.062030812, 1.888303283, 2.062030812, 1.965159583, 2.01915789, 2.010358238, _
0.841103576, 1.917820902, 1.927469613, 2.053602014, 0.841103576, 2.045101568, _
2.746149766, 2.053602014, 2.070389158, 1.992523169, 2.062030812, 1.888303283, _
2.062030812, 2.053602014, 1.134873854, 0.841103576, 1.965159583, 2.062030812, _
1.927469613, 2.001480465, 2.053602014, 0.841103576, 1.927469613, 2.095053025, _
1.888303283, 2.001480465, 1.927469613, 2.010358238)
For i = 0 To 62
rep = rep & Chr(([EXP(1)] ^ (t(i) + [EXP(1)]) - [Pi()]))
Next i
MsgBox rep
End Sub


Serge ;-)))






Avatar
isabelle
c'est beaucoup mieux, je la mets dans ma réserve ;-)
isabelle

garnote a écrit :
Elle est bien bonne celle-là ;-)

Ou bien :

http://www.cijoint.fr/cjlink.php?file=cj200903/cijNhfIQSc.xls

Serge


"isabelle" a écrit dans le message de news:

http://cjoint.com/?dBnfsewgLU
;-)
isabelle

garnote a écrit :

analyse statistique, interprétation des résultats, items examen

Sub Pas_Évident()
Dim t()
Dim rep As String
t = Array(1.888303283, 2.010358238, 1.888303283, 1.992523169, 2.103140962, _
2.053602014, 1.927469613, 0.841103576, 2.053602014, 2.062030812, 1.888303283, _
2.062030812, 1.965159583, 2.053602014, 2.062030812, 1.965159583, 2.036528245, _
2.070389158, 1.927469613, 1.134873854, 0.841103576, 1.965159583, 2.010358238, _
2.062030812, 1.927469613, 2.045101568, 2.027880783, 2.045101568, 2.746149766, _
2.062030812, 1.888303283, 2.062030812, 1.965159583, 2.01915789, 2.010358238, _
0.841103576, 1.917820902, 1.927469613, 2.053602014, 0.841103576, 2.045101568, _
2.746149766, 2.053602014, 2.070389158, 1.992523169, 2.062030812, 1.888303283, _
2.062030812, 2.053602014, 1.134873854, 0.841103576, 1.965159583, 2.062030812, _
1.927469613, 2.001480465, 2.053602014, 0.841103576, 1.927469613, 2.095053025, _
1.888303283, 2.001480465, 1.927469613, 2.010358238)
For i = 0 To 62
rep = rep & Chr(([EXP(1)] ^ (t(i) + [EXP(1)]) - [Pi()]))
Next i
MsgBox rep
End Sub


Serge ;-)))












Avatar
garnote
j'aime pô les exponentielles...
tu peux nous le refaire avec des fonctions trigonométriques ???
;o)))

Tant qu'à y être, pourquoi pas ? ;o)))

Sub Premier_Cours_VBA_Envoyer_Des_Messages_Avec_Une_Macro()
Dim t()
t = Array(2.104354111, 2.13403979, 2.104354111, 2.129237508, 2.161961208, _
2.146416195, 2.113101912, 2.011377532, 2.146416195, 2.148954715, 2.104354111, _
2.148954715, 2.122193852, 2.146416195, 2.148954715, 2.122193852, 2.141402273, _
2.151514221, 2.113101912, 2.021509452, 2.011377532, 2.122193852, 2.13403979, _
2.148954715, 2.113101912, 2.1438987, 2.138926953, 2.1438987, 2.567289802, _
2.148954715, 2.104354111, 2.148954715, 2.122193852, 2.136472779, 2.13403979, _
2.011377532, 2.110882629, 2.113101912, 2.146416195, 2.011377532, 2.1438987, _
2.567289802, 2.146416195, 2.151514221, 2.129237508, 2.148954715, 2.104354111, _
2.148954715, 2.146416195, 2.021509452, 2.011377532, 2.122193852, 2.148954715, _
2.113101912, 2.13162802, 2.146416195, 2.011377532, 2.113101912, 2.159318207, _
2.104354111, 2.13162802, 2.113101912, 2.13403979)
For i = LBound(t) To UBound(t)
rep = rep & Chr(Int(15.7650173874962 ^ 2 * Tan(Cos(Log([pi()]) / Log(10)))) * Sqr(Application.Asin(t(i) - 2)))
Next i
Debug.Print rep
End Sub


Serge