[MarcoGG]

Originariamente inviato da kurikkino

si infatti con excel ho rinunciato anche perchè per quello che mi ricordo (poco) di progammazione fatta a scuola credo ci voglia un ciclo che esca quando la variabile di controllo soddisfi una determinata condizione... solo che metterlo in linguaggio mi risulta praticamene impossibile...

Rinunciato ad Excel ?!
Excel è il numero 1 nella soluzione di problemi come questo.

E poi, era così semplice... :

Private Sub CommandButton1_Click()

    'Colonna B : prezzo totale articolo.
    'Colonna C : N° pezzi articolo.
    'Colonne D, E, F,... ecc. : Prezzo articolo con 1, 2, 3 ... ecc. pezzi omaggio,
    'prezzo che in ogni caso non può essere inferiore al 50 % del prezzo iniziale.

    Dim prezzoTot As Double
    prezzoTot = 0
    Dim prezzoUnit As Double
    prezzoUnit = 0
    Dim i As Long
    i = 0
    Dim j As Long
    j = 0
    For i = 3 To 65536
        If Cells(i, 1).Value = "" Then
            Exit For
        End If
        prezzoTot = Cells(i, 2).Value
        prezzoUnit = prezzoTot / Cells(i, 3).Value
        For j = 4 To 256
            If ((j - 3) * prezzoUnit) > (prezzoTot / 2) Then
                Exit For
            End If
            Cells(i, j).Value = prezzoTot - ((j - 3) * prezzoUnit)
        Next j
    Next i

End Sub

.