Bonjour à tous !
Je suis débutante en VBA.
J'ai un code où je voudrais
1) numéroter les lignes d'une colonne.
J'utilise la boucle for mais elle s'arrête pas où quand il faut.
2) aussi sur une feuille excel, j'ai un tableau de rendements et
je veux calculer la moyenne de chaque colonne, stocker les résultats dans une
colonne données.
Ps: je précise que j'ai renommé par ex, les 6 premières colonnes de mon fichier excel: "Titres"
Voici mon code:
Sub EspVarRatio()
'Définition des variables
Dim NbrPeriode As Integer
Dim TableTitres As Range
NbrPeriode = 5000
Set TableTitres = Range("Titres" ) '6 premières colonnes du fichier excel renommées "Titres"
Dim Rendement As Range
Set Rendement = Range("VectRend" ) ' la colonne contenant rendement
' a été prédéfinie "VectRend ds le fichier excel
Rendement = VectRend(TableTitres, NbrPeriode)
End Sub
Function VectRend(TableTitres As Range, NbrPeriode As Integer) As Range
Dim i As Integer
Set VectRend = Range("NumActif" ).Offset(0, 1) ' où les résultats seront stocker
For i = 1 To 5
Range("NumActif" ).Offset(i) = i 'Numérotage de la colonne "NumActif"
VectRend.Offset(i).FormulaArray = "=AVERAGE(TableTitres.Offset(1,i):TableTitres.Offset(NbrPeriode, i))"
Next i
End Function
Qu'en pensez-vous? Je trouve ca cohérent mais ca marche pas!!!! Merci d'avance
