Bonjour à tous !
Je vous explique mon problème, j'ai 5 feuilles de société dont une feuille statistique, et j'aimerais faire affichier les statistiques de chaque société dans cette feuille statistique.
Je pense qu'il doit y avoir une histoire de tableau, je crée une variable k qui compte le nombre de feuille-1
ensuite redimensionner à chaque fois que la boucle se termine pour créer une nouvelle ligne.
Puis je bloque, je n'arrive pas à faire afficher les stats de chaque société par ligne... ça ne dois pas etre compliqué mais je ne maitrise
pas bien les tableaux.. (comment l'utiliser dans la dernière partie du code")
Private Sub stats_descriptives()
Dim sh As Worksheet
nbsh = ThisWorkbook.Worksheets.Count - 1 'dénombrement du nombre de feuille dans le classeur
ReDim Results(nbsh, 12) 'ajoute une ligne par boucle, 12 est le nombre de stat finaux
For Each sh In Worksheets
If sh.Name <> "Statistiques" Then
sh.Activate
Set rendement = ActiveSheet.Range("B2:B200")
moyenne = WorksheetFunction.Average(rendement)
med = WorksheetFunction.Median(rendement)
'Inscription des statistiques descriptives sur la feuille statistiques 'probleme ici
Worksheets("statistiques").Cells(i + 1, 3) = moyenne
Worksheets("statistiques").Cells(i + 1, 4) = med
End If
Next sh
End Sub
Merci d'avance