Discussion :

[laminedu63]

Bonjour à tout le monde,

Alors j'aurai besoin d'un coup de pouce sur une function et je suis entrain de faire depuis un moment.
voila j'ai des données à entrées sous forme de tableau afin de limiter mes nombres de variables. Ensuite je cherche la somme de ces variables mais bon pour l'instant je calcul les valeurs déja après la somme c'est simple à faire.
1er point: la somme des valeurs de ma variable longueurs ne s'arrête pas après la limite atteinte.
2ieme point le calcul de rg est fait en augmentant longueur ?
comme un schéma vaut meiux que 1000 mots alors voici un schéma pour étayer ma logique

je joins ci-dessous 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
Function essai(longueurs, ponctuel)
Dim n   As Single 'nombre de valeur contenu dans une des colonnes de ponctuel
Dim i, j As Long  'compteur pour boucles
 
n = 0.5 * Application.CountA(ponctuel)
 
For i = 1 To n
x = ponctuel(i, 1)
p = ponctuel(i, 2)
 
For j = 1 To Application.Count(longueurs)
l1 = l1 + longueurs(j)
    If x < l1 Then
        rg = p * x * (l1 ^ 2 - x ^ 2) / (6 * l1) 'calcul des valeurs sans faire la somme pour contrôle
    Else
        rg = 0
    End If
Debug.Print "les résulats sont " & [l1]; [rg]
 
Next
Next
essai = rg
End Function

[laminedu63]

Enfin pour plus de précision et compte tenu du fait que je suis débutant voici les résultats qui ont été calculés sous excel


merci d'avance pour vos aides.

[laminedu63]

bonjour
J'aimerai bien pouvoir t'aider mais je ne sais comment on fait moi même j'ai du mal avec les tableaux alors la bon courage.
bon courage je suivrai cette discussion pour connaitre la solution peut être que cela m'inspirera quelques choses.

[Philippe Tulliez]

Bonjour,
Cela ne répond pas à ta question mais juste pour ton information, la ligne 3 n'est pas correcte ou plutôt ne répond pas ce que tu attends. En effet je suppose que tu as voulu typer les variables i et J comme étant de type long or la manière dont tu as écrit la ligne fait que i est de type Variant et j de type Long.
La bonne syntaxe est

Code :

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

Dim i As Long, j As Long  'compteur pour boucles

[laminedu63]

Slt,

alors j'ai regardé ta fonction mais je pense q'il faut que tu fasses d'abord ta boucle sur les longueurs comme ca elle ne reboucle pas avec tes valeurs dans ponctuel. En faisant comme ca j'arrive a trouver les deux valeurs de ton tableau résultats. Ensuite reste plus qu'a trouver une boucle qui te permet de faire les calculs comme tu l'indique je n'ai pas d'idée pour le moment mais au moins ton point 1 est résolu.
JE Jubile toute seule dans mon salon je suis nouvelle en VBA comme toi.

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
Function essai(longueurs, ponctuel)
Dim n   As Single 'nombre de valeur contenu dans une des colonnes de ponctuel
 
n = 0.5 * Application.CountA(ponctuel)
 
For j = 1 To Application.Count(longueurs)
l = longueurs(j)
l1 = l1 + l
 
 
For i = 1 To n
x = ponctuel(i, 1)
p = ponctuel(i, 2)
 
    If x <= l1 Then
        rg = p * x * (l1 ^ 2 - x ^ 2) / (6 * l1) 'calcul des valeurs sans faire la somme pour contrôle
    ElseIf l1 < x < l1 Then
            rg = p * x * (l1 ^ 2 - x ^ 2) / (6 * l1)
    End If
 Debug.Print rg
'Debug.Print "les résulats sont " & [l1]; [rg]
 
Next
Next
essai = rg
End Function

PS: J'ai enlever les i et j dans dim comme l'indique Philippe.

[EBRAG]

bonjour,

Bien reçu ton MP !

Je ne viens plus spontanément sur le forum actuellement, car d'autres chats à fouetter (la santé d'abord !)

Pour arriver à quelque chose, j'aurais besoin de comprendre ce qui doit être calculé, pour cela il serait bon qu'il y ait corrélation entre ton tableau manuscrit et ce qu'on voit dans le code, au niveau du nom des variables et de la fonction

A la place de essai, mets genre :"Calcul_de_XXX"
dans les arguments transmis, x ou p ou l ?

dans les noms de variables, idem,

Une fois ce travail fait, peut-être qu'on pourra faire quelque chose ?

Bon courage

[laminedu63]

Merci ebrag et bon rétablissement.