Discussion :

[My2205]

Bonjour,

Je débute sur VBA, je dois trouver le code qui permet d'automatiser les calculs affichés dans les tableaux de la colonne I à la colonne AD sur le fichier joint et tracer les courbes via ces données.
J'ai commencé par utiliser l'enregistreur de Macro pour afficher les calculs dans les colonnes I et K pour visualiser le code et fait quelques modifications dans le code affiché. Mais les valeurs affichées sont incorrectes, je bloque sur la formule à appliquer dans la cellule J9 qui est : =SOMME(I$8:I8).

Est-ce que quelqu'un aurait la gentillesse de m'aider svp ?

Merci d'avance pour votre aide.

Cordialement.

[Zekraoui_Jakani]

Ton problème vient de la conception : tu es bloqué par un cercle vicieux (calcul circulaire) puisque le discount dépend du cumul alors que le cumul dépend à son tour du discount. Tu devras séparer ces 2 grandeurs d'une façon ou d'une autre. Donc, la structure du tableau ou sa conception ou sa logique doit changer.

[thekat]

Bonjour MY2205,

voici le code avec l'enregistreur ...

plus bas ctrl prend la valeur de J9 pour vérifier la valeur donnée par la formule appliquée par le code.

Un stop permet, en passant la souris sur ctrl, de voir sa valeur (ou ajouter un espion).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub macroj9()
 
    Range("J9").Select
 
    '                              row 8 column -1 soit (10-1)= 9 : row 9 -1 column -1
    ActiveCell.FormulaR1C1 = "=SUM(R8C[-1]:R[-1]C[-1])"
 
ctrl = Range("J9")
Stop
End Sub

Cdlt