Incrémentation de formule

[denverdunk]

Bonjour,
je voudrai incrémenter des formules deux par deux:
Ex: M1=B2/2
M2=B2/2
M3=B3/2
M4=B3/2 etc j'ai 8000 lignes donc ça m'arrangerai de trouver un solution )

Merci

 

[thebenoit59]

Re : Incrémentation de formule

Bonjour denverdunk.
En VBA je te propose deux solutions :

Sub division()
Dim nbLignes As Long, i As Long, n As Long
    nbLignes = [a65000].End(xlUp).Row
        'n = 1
            'For i = 1 To nbLignes Step 1
                'Cells(n, 13).FormulaLocal = "=B" & i & "/2"
                'n = n + 1
                'Cells(n, 13).FormulaLocal = "=B" & i & "/2"
                'n = n + 1
            'Next i
        n = 1
            Set d = CreateObject("Scripting.Dictionary")
                For i = 1 To nbLignes Step 1
                    d(n) = Cells(i, 2) / 2
                    n = n + 1
                    d(n) = Cells(i, 2) / 2
                    n = n + 1
                Next i
            [m1].Resize(d.Count).Value = Application.Transpose(d.items)
End Sub

La première solution inscrit les formules, la seconde plus rapide, t'inscrit directement les valeurs.

 

[djidji59430]

Re : Incrémentation de formule

Bonjour,

Avec une formule :


en m2

=INDIRECT("b"&ENT(LIGNE(M2)/2)+1)/2

Cependant, ton fichier est faux ==> on passe de b4 a b6 et apres on oublie tous les impairs

 

[denverdunk]

Re : Incrémentation de formule

OK merci à vous deux, je vais essayer tout ça

 

[denverdunk]

Re : Incrémentation de formule

Parfait les deux solutions fonctionnent
Encore merci