E
Elo6
Guest
Bonjour Forum!
Je continue avec mes petits soucis de macro...
J'ai créer une sorte de tableau dans lequel je range les valeurs bilan de mes feuilles. Dans cette feuille bilan, je souhaite faire la moyenne des mes valeurs, en pourcentage et ranger cette moyenne o la suite de mes valeurs. Mais je ne connais pas le nombre total des feuilles de mon classeur et la cellule de rangement dépend de ce nombre. Voilà le code de ma macro (enfin un petit bout!)
Worksheets('Bilan').Activate
Columns('A:G').Select
Selection.NumberFormat = '0.00%'
For i = 1 To 7
j = Worksheets('Bilan').Range('I1').Value + 2
Range(C ' &j& ').Select
ActiveCell.FormulaR1C1 = '=(sum(R' & i & '))/C9'
Next
Et ça bloque à la 6ème ligne, là où j'indique la cellule de rangement.
Merci de me donner un coup de pouce!
Je continue avec mes petits soucis de macro...
J'ai créer une sorte de tableau dans lequel je range les valeurs bilan de mes feuilles. Dans cette feuille bilan, je souhaite faire la moyenne des mes valeurs, en pourcentage et ranger cette moyenne o la suite de mes valeurs. Mais je ne connais pas le nombre total des feuilles de mon classeur et la cellule de rangement dépend de ce nombre. Voilà le code de ma macro (enfin un petit bout!)
Worksheets('Bilan').Activate
Columns('A:G').Select
Selection.NumberFormat = '0.00%'
For i = 1 To 7
j = Worksheets('Bilan').Range('I1').Value + 2
Range(C ' &j& ').Select
ActiveCell.FormulaR1C1 = '=(sum(R' & i & '))/C9'
Next
Et ça bloque à la 6ème ligne, là où j'indique la cellule de rangement.
Merci de me donner un coup de pouce!