Automatisation Valeur Cible

Bonjour,

J'ai un fichier excel où j'aimerais automatiser le calcul de valeur cible.

Le fichier se structure ainsi :

  • colonne A : données connues utilisées dans le calcul des équations ci-après. Les valeurs de cette colonne proviennent d'autres informations non nécessaires pour l'automatisation du fichier.
  • colonnes B et C = cas 1
¤ colonne B correspond au "x" de l'équation = la valeur que l'on cherche

¤ colonne C correspond au "f(x)" où l'équation doit être égale à zéro.

L'équation est 2*log(Ai*Bi)-0,8-(1/Bi)

- colonnes D et E = cas 2

¤ colonne D correspond au "x" de l'équation = la valeur que l'on cherche

¤ colonne E correspond au "f(x)" où l'équation doit être égale à zéro.

L'équation est 1,930*log(Ai*Di)-0,537-(1/Di)

Je veux donc obtenir automatiquement les différentes valeurs des colonnes B et D, car le nombre de ligne peut être assez important... Actuellement, il y a 23 lignes.

Je vous joins le fichier actuel :

Je pense qu'il faut faire une macro mais je ne m'y connais pas. Par contre, si on m'explique, je suis capable de m'en sortir

Quelqu'un peut-il m'aider sur mon fichier ?

Merci d'avance !!!

Jess

Bonjour,

une solution via une macro

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 4 To dl
            .Cells(i, 3).GoalSeek goal:=0, changingcell:=.Cells(i, 2)
            .Cells(i, 5).GoalSeek goal:=0, changingcell:=.Cells(i, 4)
        Next i
    End With
End Sub

Bonjour,

Merci beaucoup pour cette rapide réponse !

J'ai même réussi à l'adapter à mon fichier initial

Trop bien !

Je peux maintenant avancer.

Encore merci !

Bonne journée !

Rechercher des sujets similaires à "automatisation valeur cible"