Discussion :

[eliamat]

Bonsoir à tous,

Je souhaite en fait regrouper des valeurs (les A(courbure) sur la photo) qui dépendent de 3 variables finalement:
-la courbure
-le nombre de coupure
-l'angle considéré

Je souhaite regrouper les valeurs comme indiqué sur la photo. Seulement, débutant en programmation je galère un peu...Je n'ai pas réussi à vous joindre mon fichier, voici le 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
Function generale(tbldonnees)
PrécisionAlpha = 5
NbrCoupure = 5
CourbureMax = ((((tbldonnees(13, 2)) * (1 + (tbldonnees(19, 2)))) + 100)) / (tbldonnees(5, 2))
Pi = Application.WorksheetFunction.Pi()
ReDim mtxgenerale(NbrCoupure * CourbureMax, 180 / PrécisionAlpha + 1)
 
For i = 0 To 180 / PrécisionAlpha
alpha = i * PrécisionAlpha
mtxgenerale(0, i + 1) = alpha
 
  For j = 0 To CourbureMax + 1
 
    For k = 1 To NbrCoupure
    mtxgenerale((j * k), 1) = (j) / 1000
    mtxgenerale((j * k), 0) = k
    mtxgenerale(0, 0) = "Coupure"
    mtxgenerale(0, 1) = "Courbure"
 
'1.Calcul du moment ext
'mtxgenerale(j + 1, i + 1) = tbldonnees(10, 6) + tbldonnees(1,6) * ((tbldonnees(4, 2)) / Pi) ^ 2 * (j - 1) / 1000 ' correspont au A(Courbure)
'Next
 
Next
Next
Next
 
generale = mtxgenerale
 
End Function

Cette fonction fait appel au tableau "données" situé dans la feuille Excel et renseigné par l'opérateur

Merci pour votre aide