Discussion :

[Sonnedonc]

Bonjour,

J'ai rédigé un programme en langage VBA, mais quand je l'active il me renvoi le message "Erreur d'exécution '5': Argument ou appel de procédure incorrect".

Pourtant, les inputBox se lance et le MsgBox apparait mais le deuxième MsgBox non.
Je ne vois pas où est le problème dans ma formule.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ValeurP()
Dim coefficientcorrelation As Double
Dim tailleechantillon As Integer
Dim TestRPearson As Double
 
coefficientcorrelation = InputBox("Bonjour, Veuillez communiquer le coefficient de corrélation")
tailleechantillon = InputBox("Veuillez communiquer la taille de l'échantillon")
MsgBox ("Merci, Veuillez patienter, CHARGEMENT")
 
TestRPearson = (coefficientcorrelation * Sqr(tailleechantillon - 2)) / Sqr(1 - coefficientcorrelation ^ 2)
 
MsgBox (TestRPearson)
End Sub

[antonysansh]

Bonjour Sonnedonc,

revois cette partie : Sqr(1 - coefficientcorrelation ^ 2)Car racine carré d'un nombre négatif, Excel ne sait pas faire.

De plus dans la saisie d'un nombre dans un InputBox, le séparateur décimal doit être le "."