Discussion :

[lebouscat]

Bonjour,

Pourriez-vous m'aider à résoudre mon problème? Sur ma fiche "Solutions", j'ai un code qui permet de tester mes différentes solutions. Or, le code permettant de tester le cas sur le coût moyen par site ne marche pas. Je n'arrive pas à changer sa valeur en lui attribuant celle présente dans la fiche solutions.

Je vous remercie pour votre aide. Si vous avez besoin de plus d'éléments, je suis la

Merci beaucoup! Le code est normalement un peu décrit pour que vous puissiez comprendre plus rapidement.

Merci

Gain projet v1.xlsm

[Menhir]

Je vous remercie pour votre aide. Si vous avez besoin de plus d'éléments, je suis la

Le code et une copie d'écran de la structure des données.

Le code est normalement un peu décrit pour que vous puissiez comprendre plus rapidement.

Encore faudrait-il ouvrir le fichier.
Lire ceci : https://www.developpez.net/forums/d8...s-discussions/

[lebouscat]

Le code et une copie d'écran de la structure des données.


Encore faudrait-il ouvrir le fichier.
Lire ceci : https://www.developpez.net/forums/d8...s-discussions/

Bonjour Menhir,

Le fichier était déjà en pièce jointes de mon premier message. Merci

[Menhir]

Le fichier était déjà en pièce jointes de mon premier message.

C'est juste pour te signaler que beaucoup de participants n'ouvrent pas les fichiers joints, ce qui limite tes chances de réponse.
Mais c'est toi qui voit...

[lebouscat]

Bonjour, Alors voici le code concernant la situation en question ainsi que les photos comme demandées.

'Cas où l'on étudie l'on fait varier le Coût moyen par site
If Cells(6, i).Value = "Coût moyen par site initial" Then
If Cells(4, i) = "Situation Initiale" Then
Worksheets("Situation initiale optimisée").Cells(7, 2).Value = Worksheets("Solutions").Cells(3, i).Value
Else
Worksheets("Situation actuelle optimisée").Cells(2, 7).Value = Worksheets("Solutions").Cells(3, i).Value
End If