1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
Sub JeDebute()
' on crée une variable qui représentera un objet "cellule"
Dim Cell as Range
' on va mettre une "cellule" dans ta variable Cell
' ici je met la cellule A1 dans Cell
Set Cell = ThisWorkbook.Worksheets("Nom de ta feuille").Range("A1")
' on sélectionne la cellule
' à éviter !! on a pas besoin de selectionner une cellule en VBA pour mettre des choses dedans
' mais vu ton niveau débutant ... je m'arrête là
Cell.select
' on commence à 0 si on est déjà sur la première cellule
for i = 0 to 39
' ici le traitement qu'on applique
ActiveCell.FormulaR1C1 ="=AVERAGE(Histoire!RC,GEO!RC,Maths!RC,français!RC)"
' on décale la cellule d'écriture
Set Cell = Cell.Offset(1,0)
Cell.Select
next i
' il faut toujours décharger les variables pour libérer la mémoire
Set Cell = Nothing
End Sub |
Partager