Comment utiliser cette fonction VBA

Fermé

Nukix Messages postés 5 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 15 juillet 2009 - 2 juil. 2009 à 10:50
Nukix Messages postés 5 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 15 juillet 2009 - 2 juil. 2009 à 13:56

Bonjour,
*
j'essaye d'utiliser la fonction de regression polynomiale suivante:

Function MoindresCarres(rgX As Range, rgY As Range, p As Integer)

Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim M() As Double

n = rgX.Cells.Count
ReDim M(n - 1, p)

For i = 0 To n - 1
For j = 0 To p
M(i, j) = rgX(i + 1) ^ j
Next
Next
With WorksheetFunction
If rgX.Rows.Count = 1 Then
MoindresCarres = .MMult(.MInverse(.MMult(.Transpose(M), M)), .MMult(.Transpose(M), .Transpose(rgY)))
Else
MoindresCarres = .MMult(.MInverse(.MMult(.Transpose(M), M)), .MMult(.Transpose(M), rgY))
End If
End With
End Function

Je débute en vba.
ma plage de données en abcisse se trouve en ("B3:B200") et ma plage des ordonnées est en ("C3:C200"). Je crois que ca s'écrit comme ca...
je voudrai remplir une colonne avec les coefficients du polynome d'approximation.
je ne sais même pas comment remplir les arguments de la fonction, je pense qu'il faut l'insèrer dans une "sub"
merci d'avance
Nukix

A voir également:

Comment utiliser cette fonction VBA
Fonction si et - Guide
Comment utiliser chromecast - Guide
Comment utiliser l'ia - Accueil - Guide Intelligence artificielle
Comment utiliser utorrent - Télécharger - Téléchargement & Transfert
Comment utiliser wetransfer gratuit ? - Guide

1 réponse

Réponse 1 / 1

Nukix Messages postés 5 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 15 juillet 2009
2 juil. 2009 à 13:56

Personne ?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Impossible d'utiliser ce numéro de téléphone pour la validat

Bonjour, Je viens de créer une nouvelle adresse gmail qui me demandait mon numéro de téléphone. Jusqu'ici pas de problème. Ensuite mon compte a été bloqué et on m'a demandé de valider mon identité. Pour cela j'ai dû rentrer mon numéro de téléphone et là apparaît le message "Impossible d'utiliser ce numéro de téléphone pour la validation". Quelqu'un saurait-il m'aider, je suis complètement bloquée ? Merci

Votre PC ne peut pas utiliser un autre écran.

Bonjour à toutes et à tous, j'espère que vous allez bien.
Je voulais savoir si vous aviez une solution à mon problème, je vous explique :
J'ai récemment fait la mise à jour de mon ordinateur portable
Depuis cette mise à jour, je ne peux plus connecter mon ordinateur à mon PC via un câble HDMI. Le message suivant apparaît : Votre PC ne peut pas utiliser un autre écran. Essayez de réinstaller le pilote ou d'utiliser une autre carte vidéo.
J'ai déjà essayé de mettre à jour les pilotes/drivers mais d'après Windows Update et le gestionnaire de périphérique, tout est à jour. J'ai même essayé de mettre à jour manuellement les pilotes mais rien y fait. Quand j'essaie de...