Probleme macro VBA

bonjour j'ai un pepin avec ma macro sur vba avec la fonction offset

help

Salut,

J'ai fait un programme dans ce style il y a peu sur un portefeuille de titres :

Sub Retuns()

For i = 4 To 85 'Boucle sur les lignes afin d'appliquer la formule
For j = 2 To 14 'Boucle sur les colonnes pour pouvoir tout afficher sur la feuille suivante

Sheets("Prices").Activate
Sheets("Returns and Stats").Cells(i, j) = (Cells(i, j) - Cells(i - 1, j)) / Cells(i - 1, j) 'Formule du Return

Next
Next

End Sub

Sub Stats()

For i = 2 To 13

Sheets("Returns and Stats").Activate

Set plage1 = Sheets("Returns and Stats").Range(Cells(4, i), Cells(85, i)) 'Définir les plages pour faciliter les calculs après
Set plage2 = Sheets("Returns and Stats").Range(Cells(4, 14), Cells(85, 14)) 'Une avec l'inconnu et l'autre avec le marché

Sheets("Returns and Stats").Cells(5, 17).Value = Cells(2, i) 'Ajouter le nom de l'entreprise dans la case indiquée

Sheets("Returns and Stats").Cells(5, 18).Value = WorksheetFunction.Count(plage1) 'Compter les nombre d'observations

Sheets("Returns and Stats").Cells(5, 19).Value = WorksheetFunction.Average(plage1) 'Trouver la moyenne

Sheets("Returns and Stats").Cells(5, 20).Value = WorksheetFunction.StDev(plage1) 'Trouver la Standard deviation

Sheets("Returns and Stats").Cells(5, 21).Value = WorksheetFunction.Min(plage1) 'Trouver le minimum

Sheets("Returns and Stats").Cells(5, 22).Value = WorksheetFunction.Max(plage1) 'Trouver la maximum

Sheets("Returns and Stats").Cells(5, 23).Value = WorksheetFunction.Correl(plage1, plage2) 'Trouver la correlation entre le marché et l'action en question

Sheets("Returns and Stats").Cells(5, 24).Value = WorksheetFunction.Slope(plage1, plage2) 'Trouver le béta

Sheets("Returns and Stats").Activate
Range("Q5:X5").Copy

Sheets("Summary").Select
Sheets("Summary").Range("A1000000").End(xlUp).Offset(1, 0).Select 'Offset

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next

Sheets("Summary").Columns("B:H").HorizontalAlignment = xlCenter 'Centrer la colonne

Sheets("Summary").Rows("1:1").Font.Bold = True 'Mettre la première ligne en gras

Sheets("Summary").Columns("H:H").FormatConditions.AddColorScale ColorScaleType:=3 'Ajouter la nuance de couleur

End Sub

Sub Compil()

Call Module1.Retuns 'Appel de la macro Retuns

Call Module1.Stats 'Appel de la macro Stats

End Sub

Regarde si ça peut t'aider

Bonjour Mathrgz, bonjour le forum,

Tous les Elle peut, Os court, Ha laide n'y changeront rien si tu ne daignes pas nous en dire plus et nous donner le code en précisant quelle est la ligne qui bloque...

[Édition]

Bonjour Clément, nos posts se sont croisés... Puisque tu possèdes, visiblement, une boule de cristal, pourrrais-tu me donner le prochain tirage de l'Euromilion ?