Fonction ?(xi - yi)² en VBA

Fermé
Tisbouch - 8 mai 2010 à 09:50
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 10 mai 2010 à 20:46
Bonjour a tous,

Je cherche à programmer en VBA la fonction suivante:

?(xi - yi)²

Merci de votre aide,

Tisbouch

3 réponses

somme (xi - yi)²
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
8 mai 2010 à 18:13
Bonjour,
Une petite question : comment sont transmis tes xi yi ? Par un tableau de valeurs ou deux plages de cellules sélectionnées ?
0
Bonjour Gord21,

Merci de m'avoir répondu !

Mes xi et mes yi sont des plages de cellules sélectionnées.

Je souhaiterais en fait faire une fonction équivalente à la fonction SOMME.X2MY2
mais où c'est la parenthèse qui est au carré et non plus les variables.

N.B je ne peux faire la racine des variables puisqu'il y en a qui sont au carré.

Merci de ton aide,

Cordialement,

Tisbouch
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
10 mai 2010 à 20:46
Bonjour,
Tu peux utiliser la fonction :
Function Somme_diff_carrees(Plage_xi As Range, Plage_yi As Range)
Dim somme As Double
Dim Indice As Long
'
'
If Plage_xi.Count = Plage_yi.Count Then
somme = 0
For Indice = 1 To Plage_xi.Count
    somme = somme + (Plage_xi.Cells(Indice) - Plage_yi.Cells(Indice)) ^ 2
  Next Indice
  Somme_diff_carrees = somme
Else
  Somme_diff_carrees = "Les plages de données doivent être de même taille"
End If
'
End Function

@+
0