Bonjour,
Je souhaite réaliser une macro qui effectue la somme arithmétique avec coefficient et retourne le résultat dans une cellule déterminée.
cependant,le débogeur me sort l'erreur type d'argument byref incompatible.
voici le code:
Function minimiser_dm(i As Integer, m As Integer) As Integer
Dim duree As Variant
Dim dm As Long
dm = 0
For i = 1 To m
dm = dm + (m - i + 1) * Cells(i, 4)
Next i
duree(1, 2) = dm
End Function
Sub macro_somme()
Call minimiser_dm(i, m)
End Sub
Merci de bien vouloir détecter la faille
Je souhaite réaliser une macro qui effectue la somme arithmétique avec coefficient et retourne le résultat dans une cellule déterminée.
cependant,le débogeur me sort l'erreur type d'argument byref incompatible.
voici le code:
Function minimiser_dm(i As Integer, m As Integer) As Integer
Dim duree As Variant
Dim dm As Long
dm = 0
For i = 1 To m
dm = dm + (m - i + 1) * Cells(i, 4)
Next i
duree(1, 2) = dm
End Function
Sub macro_somme()
Call minimiser_dm(i, m)
End Sub
Merci de bien vouloir détecter la faille