Fonction ?(xi - yi)² en VBA

Tisbouch -  
Gord21 Messages postés 928 Statut Membre -
Bonjour a tous,

Je cherche à programmer en VBA la fonction suivante:

?(xi - yi)²

Merci de votre aide,

Tisbouch

3 réponses

  1. Gord21 Messages postés 928 Statut Membre 289
     
    Bonjour,
    Une petite question : comment sont transmis tes xi yi ? Par un tableau de valeurs ou deux plages de cellules sélectionnées ?
    0
    1. Tisbouch
       
      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
  2. Gord21 Messages postés 928 Statut Membre 289
     
    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