Macro excel

bux66 -  
Gord21 Messages postés 928 Statut Membre -
Bonjour,

Mon classeur est composé de :
30 feuilles qui se nomment 1,2, 3 jusqu'à 30
une autre feuille qui se nomme trimestre 1

je ne sais pas programmer en vba.
est ce que quelqu'un pourrait me "traduire" cette macro en ce langage, qui m'est tout a fait inconnu:
début macro (qui s'appellera moyenne 1)
pour i= 1 a 30 faire:
j = j +2
copier dans la cellule G9 de la feuille i la cellule Cj de la feuille trimestre 1
Fin pour
fin macro


je vous remercie d'avance
Configuration: Windows Vista
Firefox 3.5.5

1 réponse

  1. Gord21 Messages postés 928 Statut Membre 289
     
    Bonsoir,

    Voici la traduction VBA

    Sub Moyenne_1()

    Dim i As Integer
    Dim j As Integer

    For i = 1 To 3
    j = j + 2
    Sheets(i).Range("G9").Value = Sheets("trimestre 1").Range("C" & j).Value
    Next i

    End Sub

    Bonne soirée
    0