produit en croix

Sub Bouton5_QuandClic()
Dim tablo(1 To 4, 1 To 3)
Dim c As Range
Dim i As Byte
Dim bon As Boolean
Dim nombre As Long

bon = False
i = 1
For Each c In Range('e23:e27')
&nbsp; &nbsp; If c.Text <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 1) = c
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 2) = 1
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre + tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 3) = tablo(i, 2) * tablo(i, 1)
&nbsp; &nbsp; &nbsp; &nbsp; i = i + 1
&nbsp; &nbsp; End If
Next c


Do While bon <> True
retour:
For i = 1 To UBound(tablo, 1)
&nbsp; &nbsp; If tablo(i, 3) < nombre Then
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre - tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 2) = tablo(i, 2) + 1
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre + tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 3) = tablo(i, 2) * tablo(i, 1)
&nbsp; &nbsp; &nbsp; &nbsp; GoTo retour
&nbsp; &nbsp; Else
&nbsp; &nbsp; bon = True
&nbsp; &nbsp; End If
Next i
Loop

i = 1
For Each c In Range('e23:e27')
&nbsp; &nbsp; If c.Text <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; c.Offset(0, 2) = tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; i = i + 1
&nbsp; &nbsp; End If
Next c

End Sub

Cliquez pour agrandir...