Discussion :

[Elvaiz]

Bonjour à tous,

Après avoir tenté de résoudre ce problème moi même désespérément, je me permets de vous solliciter de l'aide.


Je veux utiliser la fonction suivante ( ce n'est pas la fonction finale, c'est une simplification pour les besoins de l'explication, je reproduirais ensuite vos explications, merci d'avance)

J'ai deux tableaux de doubles et je souhaiterai remplir via la fonction un troisième tableau, (MyTabA) .
J'ai réussi en incluant une fonction directement dans la sub, sans passer par la fonction, uniquement en appliquant

Code :

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

TabResult(i, j) = (MyTabK(i, 1) * MyTabS(1, j)) * 2

et en remplissant le range.

Là, je souhaiterai que les deux tableaux MyTabSpot et MyTabK puissent alimenter la fonction et ensuite seulement, que de là, je puisse obtenir un output qui puisse me permettre de remplir le tableau MyTabA.
Et là, je suis largué.

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public Function Calcul(S As Double, K As Double, Z As Double) As Double
 
    Rfinal = (S * K) / Z
 
End Function

30 31 32 33 34 35
40
41
42
43
44
45

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
Sub TraitementA()
 
Dim ThisWorkbook As Workbook
Set ThisWorkbook = ActiveWorkbook
Dim MySheet2 As Worksheet
Set MySheet2 = ThisWorkbook.Worksheets("Sheet2")
 
Dim i, j  As Integer
Dim Z As Double
 
Dim MyTabA(6, 6)
Dim MyTabSpot(1, 6)
Dim MyTabK(6, 1)
 
Z = MySheet2.Range("A2")
For i = 1 To UBound(MyTabSpot, 1)
  MyTabSpot(i, j) = MySheet2.Cells(3, j + 1)
 
   For j = 1 To UBound(MyTabK, 2)
 
      MyTabK(i, j) = MySheet2.Cells(i + 3, 1)
 
    Next j
 
Next i
 
 
 
  MyTabA = MySheet2.Range("B4: G9")
 
 
 'MySheet2.Range("B4:G9") = MyTabA(i, j)
 
 
End Sub

Encore merci de votre aide, j'ai vainement cherché quelque chose de ressemblant , je n'ai pas trouvé parmi les tutoriaux sur les Tableaux