Sujet Précédent Sujet Suivant

Programmation sous VBA

Fermé
L'oiseau - 22 juin 2009 à 16:09
thev Messages postés 1855 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 13 mai 2024 - 22 juin 2009 à 19:38
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

1 réponse

Réponse 1 / 1
thev Messages postés 1855 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 13 mai 2024 683
22 juin 2009 à 19:38 
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
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses