Discussion :

[husker]

Bonjour,

Je suis débutant sur vba et j'ai un petit soucis avec une fonction d'excel que je souhaiterais intégrer dans une macro vba.
En gros j'ai une feuille de calcul remplie de données (des mesures concernant des véhicules), en sachant que pour un seul véhicule, qui est repéré par un numéro, j'ai plusieurs dizaines de lignes de données (quantité qui varie selon les véhicules).
Donc je souhaiterais appliquer la fonction polyA avec une boucle, me permettant ainsi d'avoir le coef recherché pour chacun des véhicules.
La fonction polyA permet de calculer les coefficients d'une courbe par la méthode des moindres carrés. Dans mon cas je veux une droite horizontale donc un polynome de degré 0.
4 parametre doivent etre entrés pour cette fonction :
Mat x : la colonne des abcisses
Mat y : la colonne des ordonnées
N : le degré du polynome (ici 0)
I : un coefficient qui vaut 1 par defaut
C'est facile d'utiliser ceci directement sur excel mais je ne sais pas comment rentrer ces parametres dans vba.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub PolyA()
 
Dim index As Long
Dim nb As Integer
Dim start As Long (ligne de début pour un vehicule)
Dim fin As Long (ligne de fin pour le meme vehicule)
Dim Val As Integer
 
    index = 2
    nb = 0
    start = 2
    fin = 2
    Val = 0
 
    Dim nbligne As Long
 
    nbligne = 66000
 
    Do
 
        Val = Cells(index, 2).Value
 
        Do
 
             index = index + 1
             nb = nb + 1
 
        Loop While Cells(index, 2).Value = Val
 
        If Cells(index, 2).Value = "" Then
            nb = nb - 1
        End If
 
        fin = start + nb - 1
 
        Dim coef As Long
        coef = polya((start,7);(fin,7):(start,11);(fin,11);0;1)
Next
 
        Cells(start, 12).Value = coef
 
        start = index
        nb = 0
 
        If IsEmpty(Cells(index, 2)) Then
             index = nbligne + 1
        End If
 
    Loop While index < nbligne
 
End Sub

DOnc voilà si quelqu'un pouvait eclairer ma lanterne sur cette fonction ca m'aiderait grandement.
J'espere avoir été clair, merci d'avance

[LeForestier]

Bonjour,
J'ai pas encore bien regardé ta fonction, mais 1ère constatation, tu emploi des mots réservés de VBA pour déclarer tes variables telle que Start et Val.

Code :

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

1
2
3
4
5
Dim index As Long
Dim nb As Integer
Dim start As Long  '(ligne de début pour un vehicule)
Dim fin As Long  '(ligne de fin pour le meme vehicule)
Dim Val As Integer

Ensuite, tu doit mettre le code présenté entre les balises CODE
Pour cela...
Sélectionner tout le code et cliquer sur # dans le haut de l'éditeur.
A+

[LeForestier]

Bon, 2ém passe...

Next et pas de For ?
assigné le nom de la sub à une variable ?????
Et c'est quoi entre les ; ; ; il fautdrait mettre des opérateurs tel que +-*/

Code :

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

1
2
3
Dim coef As Long
coef = polya((start,7);(fin,7)start,11);(fin,11);0;1)
Next

Si tu veux avoir des paramètres à l'entrée tu doit employé une fonction et pas une Sub.

Code :

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

Function PoliA(Param1 as Type,Param2 as Type etc... )

Constatation générale... Ton code n'est pas Indenté, donc très difficile à suivre.
Regarde déjà tout ça..
A+

[ouskel'n'or]

Bonjour husker, bienvenue sur le forum.
J'ai indenté ton code et ai ajouté les balises [ CODE ]et[ /CODE ]
En rouge, le Next sans for évoqué par LeForestier.
Pour le reste, regarde ce qu'il t'a dit

[LeForestier]

3ém passage...

Code :

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

1
2
3
        If IsEmpty(Cells(index, 2)) Then
             index = nbligne + 1
        End If

La fonction IsEmpty n'est valable que sur des objets ou des variables Variant.
Tu devrais remplacer par..

Code :

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

1
2
3
        If  Cells(index, 2).value = "" Then
             index = nbligne + 1
        End If

[husker]

Merci LeForestier pour tes réponses.

En ce qui concerne le next, j'avais juste oublié de le retirer après avoir supprimé mon for.
J'ai réussi à faire marcher la fonction en rentrant mes plages de données x et y, mais ça ne resoud pas le probleme pour la boucle.

Code :

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

ActiveCell.Formula = "=PolyA(G2:G38, K2:K38, 0, 1)"

Je nage completement en fait je ne vois pas du tout comment modifier la plage de données pour appliquer la fonction sur chaque véhicule.