1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub TRANS()
Dim i As Integer, mnb As Integer, RT As Integer, som As Integer
Dim Y(100) As Integer
Dim FeuilDonnees As Worksheet
Set FeuilDonnees = Sheets("Feuil1")
'mnb est le nombre de données dans Excel que lon souhaite traiter
mnb = 14
' transfert des données Excel vers la variable Y(i) de la procédure
For i = 1 To mnb
num = i + 6
Y(i) = FeuilDonnees.Cells(i, 1)
Next i
'calcul des Res(i) à partir des Y(i) par exemple
'ici Res(i)=Y(i)
'on ecrit le résultat dans les cellules D de la feuille Excel
For i = 1 To mnb
FeuilDonnees.Cells(i, 4) = Y(i)
Next i
End Sub |
Partager