Programmation sous VBA Fermé

Question

Bonjour

N'ayant que trés peu d'expérience dans la programmation VBA (étudiant en fac d'éco), j'ai quelques soucis pour réaliser mon projet.

Mon problème est le suivant:

J'ai une formule qui me permet de calculer des taux de rentabilité par rapport à des données de la colonne B.
Je dois répéter cette formule pour les colonnes C, D, E. Comment dois je faire?

Sub Taux_rentabilité()

    Dim Plage_rentabilités As Range
        
            Range("B3:B51").Select
            For Each Plage_rentabilités In Range("B3:B51", Selection.End(xlDown)).Offset(0, 5)
            Plage_rentabilités.FormulaR1C1 = "=((RC2-R[-1]C2)/R[-1]C2)"
            Next Plage_rentabilités

End Sub

thev · Answer

Set plage_rentabilité = Range("b3:b51")
For Each cellule In plage_rentabilité
    Range(cellule.Offset(0, 1), cellule.Offset(0, 3)).FormulaR1C1 = "=((RC2-R[-1]C2)/R[-1]C2)"
Next

Programmation sous VBA

1 réponse

Discussions similaires