Intervalle

Bonjour,

Je débute en VBA. Ma demande peut peut-être vous paraître triviale.

Je voudrais donner la même valeur à un certains nombre de lignes puis réaliser une incrémentation et donner la valeur+0.6 au même nombre de lignes suivantes.

Mon code est le suivant :

Sub possibilite_ml_60_nong()

Dim numligne As Integer
Dim cst_ml As Single
Dim cst1 As Integer
Dim ml As Double

Dim cst2 As Integer

'Initialisation
cst_ml = 0.6
cst1 = 3 'borne inf de l'intervale

'Cas 0:
Cells(2, 2) = 0

'Cas 1,...,n

For cst1 = 3 To 50
    For numligne = cst1 To cst1 + 2
        ml = cst_ml
        Cells(numligne, 2) = ml
    Next
    cst1 = cst1 + 3
    cst_ml = cst_ml + 0.6
Next
End Sub

Mon code marche presque mais j'ai un décalage dans les valeurs de mes cellules.

Je ne comprends par pourquoi j'ai à chaque fois des cellules vides qui s'intercalent dans ma colonne.

Pouvez vous m'éclairer ?

au passage pourquoi mes valeurs ont-elles autant de chiffres après la virgules ? Je n'en veux pas autant et j'ai l'impression que les arrondis sont mauvais...

Cordialement

Bonjour

Essaie ce code :

Sub possibilite_ml_60_nong()

    Dim numligne As Integer
    Dim cst_ml As Single
    Dim cst1 As Integer
    Dim ml As Double
    Dim cst2 As Integer

    'Initialisation
    cst_ml = 0.6
    cst1 = 3 'borne inf de l'intervale

    'Cas 0:
    Cells(2, 2) = 0

    'Cas 1,...,n
    For cst1 = 3 To 50
        For numligne = cst1 To cst1 + 2
            ml = cst_ml
            Cells(numligne, 2) = ml
        Next
        cst1 = cst1 + 2
        cst_ml = cst_ml + 0.6
    Next
End Sub

Bye !

nickel merci gmb