affichage du résultat d'un programme VBA dans une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

florieob

XLDnaute Nouveau
Bonjour à tous !

Je suis actuellement en train de travailler sur un projet informatique (rationnement de vaches laitières) et j'ai un petit souci avec une macro.
Cette macro doit consister à faire un calcul différent suivant si une cellule est identique à l'une ou à l'autre.

Mon problème est le suivant : il ne semble pas y avoir de souci dans le programme mais rien ne s'affiche dans la cellule qui est censée contenir le résultat. (la cellule appelée ConcentreProduction)
Le programme est ci-dessous. Merci d'avance 😱

Sub QuantiteConcentreProd()

If [Production] = [ProdUFL] Then
[ConcentreProduction] = ([ObjectifProd] - [Prod]) * 0.44 / [UFLConcentre]

If [Production] = [ProdPDIE] Then
[ConcentreProduction] = ([ObjectifProd] - [Prod]) * 48 / [PDIEConcentre]

Else: [ConcentreProduction] = ([ObjectifProd] - [Prod]) * 48 / [PDINConcentre]
End If
End If

End Sub
 
Re : affichage du résultat d'un programme VBA dans une cellule

Bonjour florieob, salut Pierrot 🙂

Oui, avec des tests corrects ça doit donner :

Code:
Sub QuantiteConcentreProd()

If [Production] = [ProdUFL] Then
  [ConcentreProduction] = ([ObjectifProd] - [Prod]) * 0.44 / [UFLConcentre]
 
ElseIf [Production] = [ProdPDIE] Then
  [ConcentreProduction] = ([ObjectifProd] - [Prod]) * 48 / [PDIEConcentre]
 
Else
  [ConcentreProduction] = ([ObjectifProd] - [Prod]) * 48 / [PDINConcentre]

End If
 
End Sub
A+
 
Re : affichage du résultat d'un programme VBA dans une cellule

Re, bonjour Job🙂

sous réserve d'avoir compris, on pourrait peut être également le coder ainsi :
Code:
[ConcentreProduction] = ([ObjectifProd] - [Prod]) * (IIf([Production] = [ProdUFL], 0.44, 48) / [PDINConcentre])

@+
 
Re : affichage du résultat d'un programme VBA dans une cellule

Re,

aarf, j'avais raté un truc... A tester....

Code:
[ConcentreProduction] = ([ObjectifProd] - [Prod]) * (IIf([Production] = [ProdUFL], 0.44, 48) / IIf([Production] = [ProdUFL], [UFLConcentre], [PDINConcentre]))
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour