Alléger boucles for dans code vba [Résolu]

[jayjay2050]

Bonjour le forum

J'ai un petit souci concernant ma macro vba.
Sur une courbe de traction sur laquelle je réalise une régression entre deux abscisses définies par l'utilisateur. De là, j'extrais un coefficient directeur et l'ordonnée à l'origine.

Ensuite je souhaite tracer la droite de régression avec les abscisses de la courbe.
y=coeff * x + ordonnée

Rien de bien compliqué sur le papier. Donc je m'en sors très bien avec une simple boucle for, sauf que je réalise ceci sur de nombreuses courbes qui possèdent bcp de points, d'où un temps de calcul long.

Je voulais donc savoir si on peut alléger cette boucle for.

Une piste:
J'ai trouvé sur Internet l'utilisation de "Formula" mais je ne sais pas comment l'appliquer dans mon cas.

ex de Formula :MaPlage.Formula = "=Sum(C2:E2)"
Je voudrais faire un truc du genre :
MaPlage.Formula = "=coeff*x+ordonnée"

Merci pour votre aide

 

[jayjay2050]

Re : Alléger boucles for dans code vba

C'est bon j'ai trouvé.

MaPlage.Formula = "=product(a2,$C$3)+$C$4"
Où C3 : coeff et C4 l'ordonnée à l'origine et A2 les valeurs de x.

 

[ROGER2327]

Re : Alléger boucles for dans code vba

Bonjour jayjay2050

(…) je m'en sors très bien avec une simple boucle for, sauf que je réalise ceci sur de nombreuses courbes qui possèdent bcp de points, d'où un temps de calcul long.

Je voulais donc savoir si on peut alléger cette boucle for. (…)

Alléger un code invisible est un jeu d'enfant.

Une suggestion : fournissez le code existant avec son support. Ça pourrait aider…​

ROGER2327
#5350

Lundi 2 Gidouille 138 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXIX, 3,8588h - thym
2011-W24-4T09:15:40Z

 

[ROGER2327]

Re : Alléger boucles for dans code vba

Re…

C'est bon j'ai trouvé.

MaPlage.Formula = "=product(a2,$C$3)+$C$4"
Où C3 : coeff et C4 l'ordonnée à l'origine et A2 les valeurs de x.

Au poil !

(Nos messages se sont télescopés, je crois.)​

ROGER2327
#5351

Lundi 2 Gidouille 138 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXIX, 3,9866h - thym
2011-W24-4T09:34:04Z