A = Cells(L, 2).Value
A(I)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmaDistance = 715 monIntervale = 200 DistanceRestante = maDistance Mod monIntervale NombreIntervales = Fix(maDistance / monIntervale)
Dim A As Single A = Val(Cells(...).Value)
For I = 1 To 10 ' Si A > 0, on retranche la cellule 3 de la cellule 2 ' et on place le résultat dans A If A > 0 Then A = Cells(L, 2).Value - Cells(L, 3).Value End If ' On range le contenu de la cellule 2 dans A A= Cells(L, 2).Value Next I
A = A - Cells(L, 3).Value
For I = 1 To 10' (donc "10 éléments")
A = Cells(L, 2).Value '
For i = 1 To 10 If TaillePiece > 0 Then TaillePiece = TaillePiece - Pas Else Range("C4") = -TaillePiece Exit Sub End If Next
taillepiece = taillepiece mod pas
For I = 1 To 10 If A(I) > 0 Then A(I) = Cells(L, 2).Value - Cells(L, 3).Value End If A(I)= Cells(L, 2).Value Next I