Désolée, j'imagine que ce n'était pas très clair mais justement je n'ai pas de message d'erreur c'est juste que dans ma macro ça ne passe pas par RemplissageYprim (cf. bout de code à suivre)
Voilà la macro qui se trouve dans la feuille1
Code :
- Private Sub calculs_Click()
- Dim Rtmax As Double
- Dim Tab_Y_top() As Double
- Dim Tab_Rt() As Double
- Dim D As Integer
- Dim Cell_result As Range
- Dim Cell_Rt As Range
- Dim Nb As Integer 'nbre de points de calcul
- '''''''''''''''''''''''RESET (pour repartir d'une déflexion nulle )
-
- Cells(ShCalcul.Range("Rt_c" ).Row, ShCalcul.Range("Rt_c" ).Column).Value = 0 'remet l'effort latéral à 0
- Cells(ShCalcul.Range("Ra_c" ).Row, ShCalcul.Range("Ra_c" ).Column).Value = 0 'remet l'effort axial à 0
- Cells(ShCalcul.Range("M_c" ).Row, ShCalcul.Range("M_c" ).Column).Value = 0 'remet l'effort axial à 0
- Counter = 0
- Y_top = ShCalcul.Range("Y_top" ).Value
- Y_top_prim = ShCalcul.Range("Y_top_prim" ).Value
- Do Until Abs(Y_top - Y_top_prim) < 0.0001
- Call Module1.RemplissageYprim
- Counter = Counter + 1
- If Counter = 10 Then
- Exit Do
- Else
- End If
- Loop
-
- End Sub
|
et voilà RemplissageYprim qui se trouve dans le module 1
Code :
- Sub RemplissageYprim()
- MsgBox "ok"
- Application.Calculation = xlCalculationManual
- For K = 48 To 652
- X = Cells(K, 15).Value
- Cells(K, 16) = X
- Next K
- Application.Calculation = xlCalculationAutomatic
- End Sub
|
Comme j'ai besoin de RemplissageYprim dans plusieurs macros je l'ai mis dans le module1 mais même en essayant
Code :
- Call Module1.RemplissageYprim
|
La macro calculs_clic ne va pas chercher RemplissageYprim