Discussion :

[greggg]

Bonjour à tous,

Je me suis mis à VBA tout récemment dans le cadre d'un projet pour mes études.
Seulement, j'ai encore beaucoup de difficultés à appréhender ce langage notamment dans la déclaration des variables.
Dans le cas présent, je veux calculer une erreur quadratique à partir de 2 tableaux à 1 dimension (des colonnes).

Je commence donc par créer 2 variables en Public car elles vont me servir dans tout le code :

Public TabR(1 To 372, 1 To 18) As Double
Public TabExp(1 To 372, 1 To 18) As Double

Puis je remplis ces 2 tableaux avec les données excel :

Sub Creation_Tableau_R_et_Exp()
For i = 1 To 372
For j = 1 To 18
TabR(i, j) = Cells(i + 2, j + 2)
TabExp(i, j) = Cells(i + 2, j + 22)
Next
Next
'MsgBox TabR(372, 18)
End Sub

C'est là que je crée une fonction qui va prendre en argument 2 tableaux quelconque et faire le calcul voulu :

Function EQmin(T1 As Range, T2 As Range)
Dim T1 As Variant, T2 As Variant
Dim x As Double
Dim T(1 To 372) As Double
'x est la sommes des erreurs au carrés pour un t et un i fixé
For i = 1 To 372
x = 0
For j = 1 To 18
x = (T1(i, j) - T2(i, j)) ^ 2 + x
Next
T(i) = x
Next
EQmin = T
End Function


Enfin j'essaie de voir ce que ça donne en évaluant la 1ère case :

Sub Test_de_EQmin()
Dim x As Double
x = EQmin(TabR, TabExp)(1)
MsgBox x
End Sub

Et là rien n'y fait j'ai un message d'erreur "type d'argument Byref incompatible" ... quelqu'un pourrait me dépanner et m'expliquer pourquoi?

Merci d'avance !

PS : je sais que je pourrais tout faire directement sans passer par une fonction mais je vais par la suite utiliser le solveur et je ne vois pas du tout comment faire si je ne passe pas par une fonction ...

[PipoWIL]

bonjour,
Ta ligne

Code :

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

x = EQmin(TabR, TabExp)(1)

me semble drôle.

si x est un nombre, je m'attends à voir ta fonction EQmin définie comme retournant un nombre. Donc quand tu as créé ta fonction EQmin(....) tu aurais pu écrire

Code :

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

1
2
3
Function EQmin(T1 As Range, T2 As Range) as double
Function EQmin(T1 As Range, T2 As Range) as string
Function EQmin(T1 As Range, T2 As Range) as boolean

si tu t'attends à ce que ta fonction te renvoie un nombre (double) ou une chaine de caractères ou une valeur logique Vrai/Faux.

[PipoWIL]

Puisque tu parles de définition de variable et que tu débutes en VBA, puis-je te conseiller d'utiliser l'option EXPLICIT ?

Tout en haut de ton écran VBA, là où tu avais écrit Public TABr(...., tu commences par écrire

Code :

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

option explicit

Cela te forceras à définir toutes tes variables. Tu devras rajouter

Code :

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

1
2
Dim i as integer
Dim J a integer

C'est plus propre, facilitera la maintenance. Cela permettra à d'autres personnes de lire plus facilement ton code et de t'aider. Cela t'évitera des fautes.
Bonne continuation.

[PipoWIL]

Encore un petit commentaire, si tu le permets.
dans ta ligne

Code :

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

x = EQmin(TabR, TabExp)(1)

que veux-tu faire avec ce " (1) " ?

Lorsque tu écris

Code :

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

x = EQmin(TabR, TabExp)

, tu dis déjà en VBA "Mettez dans la variable x le résultat de la fonction EQmin en utilisant les données TabR et TabExp".
Je ne vois pas ce que ce (1) vient faire ici.


Autre chose :
tu écris

Code :

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

1
2
Function EQmin(T1 As Range, T2 As Range)
Dim T1 As Variant, T2 As Variant

En compilant to code, VBA te dira qu'il y a une définition double de T1 et T2. La ligne "Dim T1 As Variant, T2 As Variant" est inutile parce que tu dois déjà avoir défini plus haut tes valeurs T1 et T2 pour pouvoir les utiliser dans

Code :

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

Function EQmin(T1 As Range, T2 As Range)

[PipoWIL]

Tu as défini x comme un nombre double et tu as définis EQmin comme un tableau de nombres. C'est ça qui cloche.
essaye

Code :

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

1
2
3
4
function tatatat()
Dim x(27) As Double
MsgBox EQmin(Range("c3:d4"), Range("e5:g6"))(1)
end function

[greggg]

hmm non ça ne marche toujours pas..
En fait je me demande si le problème n'est pas la fonction EQmin car quand je fais le débogage, il surligne le passage "EQmin = T" et m'annonce EQmin = Nothing

[greggg]

Bonjour,

Merci de ta réponse.
En fait le EQmin prend en argument deux tableaux (de dimensions n lignes m colonnes) et est censé renvoyer un tableau (de dimension n ligne et 1 colonne).
Le truc c'est que j'ai défini 2 tableaux au préalable (que j'ai appelé TabR et TabExp), et lorsque j'essaie d'appliquer ma fonction EQmin à ces 2 tableaux, (j'écris EQmin(TabR, TabExp)(1) par exemple pour avoir le 1er élément du tableau EQmin(TabR,TabExp) ) je reçois un msg d'erreur "incompatibilité de type"... je bloque dessus depuis un moment