Sujet Précédent Sujet Suivant

Excel-VBA Création d'une boucle de colonne

Fermé
Lbn23 Messages postés 1 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 5 mars 2012 - 5 mars 2012 à 12:05
 Utilisateur anonyme - 5 mars 2012 à 17:49
Bonjour,

Depuis de nombreux jours je parcours tout les forums possible sur VBA mais je ne trouve pas de réponse à mon problème...

J'ai une première feuille avec 11 actions avec leurs rendement rangés par colonne
et j'aimerai calculer la moyenne des rendements de chaque action en redirigeant les resultats dans un tableau sur une autre feuille où la les actions sont rangées par ligne.

Pour le moment j'ai le code suivant:

Public Sub test()
Dim moyenne As Double
Dim rendement As Range
Dim i As Integer, j As Integer
Set plage = Range("P5", "Z63")


For i = 1 To 12
For j = 1 To 11

ThisWorkbook.Sheets("feuil1").Cells(5, j).Select
Set rendement = Range(Selection, Selection.End(xlDown))
moyenne = WorksheetFunction.Average(rendement)


ThisWorkbook.Sheets("Résultats").Cells(i, 2).Value = moyenne

Next j
Next i


End Sub


Les résultats s'inserent dans le tableau mais c'est le meme resultat qui est affiché pour les 11 actions..

Purriez vous m'aider s'il vous plait !

Cordialement!


A voir également:

1 réponse

Réponse 1 / 1
Utilisateur anonyme
5 mars 2012 à 17:49
Bonjour,

Très près de la solution : 

Public Sub test()

    Dim moyenne As Double
    Dim rendement As Range
    Dim Plage As Range
    Dim i As Integer, j As Integer

    Set Plage = Range("P5", "Z63")

    For i = 1 To 12
        For j = 16 To 26
            ThisWorkbook.Sheets("feuil1").Cells(5, j).Select
            Set rendement = Range(Selection, Selection.End(xlDown))
            moyenne = WorksheetFunction.Average(rendement)
            ThisWorkbook.Sheets("Résultats").Cells(i, 2).Value = moyenne
        Next j
    Next i
End Sub
'



Cdt

Lupin
0

Discussions similaires

colonne A disparue tableur excel
reno78840 -
Anst20 -

4 réponses
liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses