help au VBA excel

[sitaleb]

Salut tous le monde
je suis debutant au VBA mais j'essaye de faire un code qui est dans le fichier ci joint mais quand j'execute le macro , je n'aurai pas tous les resultats du premier clik il faut faut clicker trois ou quatre fois pour avoir tous les resultats je demande de l'aide pour faire corriger mon code.

 

[KenDev]

Re : help au VBA excel

Bonjour Sitaleb,

Sub Calculbis()
Dim Data(1 To 3) As Single, i As Long, j As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 1 To UBound(Data)
        Data(j) = Cells(i, j) 'diamètre, longueur, profondeur
    Next j
    'largeur
    Cells(i, 4) = 0.01 * IIf(Data(1) <= 600, (Data(1) / 10 + 60), (Data(1) / 10 + 80))
    'deblai
    Cells(i, 5) = Data(2) * Data(3) * Cells(i, 4)
    'Enrobage
    Cells(i, 6) = ((Data(1) * 0.001 + 0.3) * Cells(i, 4) - (((Data(1) * 0.001) ^ 2) / 4) * 3.14) * Data(2)
    'Remblai
    Cells(i, 7) = (Data(3) - (Data(1) * 0.001 + 0.3)) * Cells(i, 4) * Data(2) * 0.85
    'T exce
    Cells(i, 8) = Cells(i, 5) - Cells(i, 7)
Next i
End Sub

A associer au code du bouton situé sur la feuille contenant le tableau (je suppose puisqu'il est question d'un clic dans ton post). Cordialement

KD

 

[sitaleb]

Re : help au VBA excel

Merci Mr KenDev de votre aide