Je suis débutant avec le langage macro (VBA) de Excel et je sollicite votre aide parce que je n'arrive pas à réaliser se que je souhaite, je m'explique :
J'ai réalisé une fonction qui calcul la somme d'une équation de 0 à n-1.
je voudrais pouvoir afficher tous les résultats et non que le résultat final dans une colonne du tableur par exemple :
Colone A
Résultat calcul pour n=0
Résultat calcul pour n=1
...................
Résultat calcul pour n=n-1
Voici également un extrait de ma fonction :
Function SOMMETK(a, n, Te)
For k = 0 To n - 1
SOMMETK = SOMMETK + (a + k * Te)
Next k
End Function
A voir également:
Afficher les calculs d'une boucle dans une colonne
Ta macro est une fonction, il très fortement déconseillé d'utiliser cette fonction pour écrire dans des cellules. Gardes lui son rôle de fonction !
Tu peux utiliser une procédure pour appliquer ta fonction à certaines cellules :
Option Explicit
Sub Etendre()
Dim col As Range
Dim a As Double
Dim n As Long
Dim Te As Double
Dim i As Long
'Initialisation des variables
a = 18
n = 12
Te = 2
Set col = ActiveSheet.Columns("A")
'Effacement des résultats précédents
col.Clear
'Mise en place des résultats
For i = 0 To n - 1
col.Cells(i + 1, 1).Value = SOMMETK(a, i, Te)
Next i
End Sub
Function SOMMETK(a, n, Te)
Dim k as long
For k = 0 To n - 1
SOMMETK = SOMMETK + (a + k * Te)
Next k
End Function
Cependant n'y a t-il pas qqc de plus automatique ? ou est-ce trop complexe ?
Tu peux utiliser une procédure pour appliquer ta fonction à certaines cellules :
Option Explicit Sub Etendre() Dim col As Range Dim a As Double Dim n As Long Dim Te As Double Dim i As Long 'Initialisation des variables a = 18 n = 12 Te = 2 Set col = ActiveSheet.Columns("A") 'Effacement des résultats précédents col.Clear 'Mise en place des résultats For i = 0 To n - 1 col.Cells(i + 1, 1).Value = SOMMETK(a, i, Te) Next i End Sub Function SOMMETK(a, n, Te) Dim k as long For k = 0 To n - 1 SOMMETK = SOMMETK + (a + k * Te) Next k End Function