Discussion :

[redgy844]

Bonsoir,

ne connaissant pas le fonctionnement des macros Excel, j'ai tenté de bidouiller quelque chose mais sans succès.
Ci-joint mon fichier. Et voilà ce que je souhaiterais faire :
- les données pour la simulation sont rentrées dans l'onglet "données" par l'utilisateur
- l'onglet "résultats détaillés" se calcule automatiquement
- je souhaiterais que dans l'onglet "résultats détaillés", la case L16 soit automatiquement recalculée à chaque changement dans l'onglet "données" pour que la case N43 soit égale à 0.

J'ai déjà utilisé la valeur cible pour que la case N43 soit à 0 mais le problème est qu'il faut lancer cette fonction manuellement.
Pour ce simulateur je souhaiterais que la valeur cible se lance automatiquement lorsque les données sont modifiées et donc que la case L15 de l'onglet "résultats détaillés" est modifiée.

J'espère que c'est assez clair et que quelqu'un pourra me trouver une solution.

Merci et bonne soirée

[mercatog]

Dans le module de la feuille données, utilises l'évènement Change comme suit

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
'On peut utiliser Target pour n'enclencher l'évènement que si des cellules précises viennent d'être changées
With Feuil2
    .Range("N43").GoalSeek Goal:=0, ChangingCell:=.Range("L16")
End With
End Sub

[nibledispo]

Bonjour Mercatog,

Je ne connaissais pas "goalseek". N'ayant pas trouvé cette methode dans l'aide (F1) de la version 2013, je suis aller voir ailleurs sur le Net.
Un article semble dire que la méthode peut parfois renvoyer une mauvaise réponse. vous l'utilisez souvent sans problème ?

En faisant des essais à partir du fichier fourni, VBA m'a au départ et par 3 fois retourné un message d'erreur qui concernait bien la methode. Ensuite plus de problème.

J'ai cru comprendre d'après l'exemple qu'elle se comportait un peu comme un solveur. Est-ce bien le cas ?

Dans ce cas particulier, on peut se demander s'il n'était pas plus simple de mettre dans L16 la formule ( L15- cellule contenant le total des charges). Cela semble fonctionner sans renvoyer de références circulaire.


cordialement,

[mercatog]

Bonjour Paul.
Pour toutes tes questions, j'ai utilisé l'enregistreur de macro pour répondre à ce besoin

J'ai déjà utilisé la valeur cible pour que la case N43 soit à 0 mais le problème est qu'il faut lancer cette fonction manuellement.
Pour ce simulateur je souhaiterais que la valeur cible se lance automatiquement lorsque les données sont modifiées et donc que la case L15 de l'onglet "résultats détaillés" est modifiée.

Je n'ai pas cherché à comprendre la démarche de redgy844 ni à approfondir la documentation sur goalseek.

[redgy844]

merci, ça fonctionne

Bonne soirée