Variable tableau?? ou boucle??

[albert]

Bonjour,
j'ai essayé à plusieurs reprises d'ajouter une feuille avec des données à la macro "statistiques élémentaires"

http://www.dauphine.fr/cereg/visualbasic/visual.htm

il y a un bug à chaque tentative...

Dans le code il y a une variable tableau : est-ce pour celà qu'il n'es pas possible d'ajouter des feuilles ???


ou peut-être la boucle limite-t-elle le nombre d'opérations ???

d'avance, merci

Option Base 1
Sub Statistiques_Elémentaires()
Dim Plage_Rentabilités As Range
Dim Feuille As Worksheet
Dim Nombre_Lignes, Numéro_Ligne As Integer
Nombre_Lignes = Worksheets.Count - 1
ReDim Tableau_Résultats(Nombre_Lignes, 7) As Variant
For Each Feuille In Worksheets
If Feuille.Name <> "Statistiques" Then
Feuille.Activate
Numéro_Ligne = Numéro_Ligne + 1
Range("C3").Select
Set Plage_Rentabilités = Range(Selection, Selection. _
End(xlDown)).Offset(-1, 1)
Plage_Rentabilités.FormulaR1C1 = "=LN((R[1]C2+RC3)/RC2)"
Tableau_Résultats(Numéro_Ligne, 1) = Feuille.Name
Tableau_Résultats(Numéro_Ligne, 2) = WorksheetFunction. _
Count(Plage_Rentabilités)
Tableau_Résultats(Numéro_Ligne, 3) = WorksheetFunction. _
Average(Plage_Rentabilités)
Tableau_Résultats(Numéro_Ligne, 4) = WorksheetFunction. _
Median(Plage_Rentabilités)
Tableau_Résultats(Numéro_Ligne, 5) = WorksheetFunction. _
StDev(Plage_Rentabilités)
Tableau_Résultats(Numéro_Ligne, 6) = WorksheetFunction. _
Skew(Plage_Rentabilités)
Tableau_Résultats(Numéro_Ligne, 7) = WorksheetFunction. _
Kurt(Plage_Rentabilités)
End If
Next Feuille
Worksheets("Statistiques").Activate
For i = 1 To Nombre_Lignes
For j = 1 To 7
Cells(i + 1, j).Value = _
Tableau_Résultats(i, j)
Next j
Next i
End Sub


albert

 

[albert]

j'ai reconstitué des feuilles, trafiqué un peu le code et maintenant... ça marche (avec 10 feuilles)... je joins le résultat pour ceux qui sont intéressés
j'ai réduit au maximum pour arriver<50K
on peu ajouter des feuilles sans fin...