Bonjour à tous,
Afin de simplifier la modification du planning de production du secteur dont je travaille, j'ai commcé un excel où j'ai galéré un mois et demi sans aboutir à un résultat satisfaisant. Esperant qu'il y aura quelqu'un qui pourra m'aider voici ce que je voudrais faire sur VBA (j'ai essayé de l'écrire d'une manière proche du language pour simplifier la compréhension et merci) :
- i, x et t sont des entiers naturels
avec i appartiens à l'intervalle [1;2]
x appartiens à l'intervalle [1;168]
t appartiens à l'intervalle [1;3]
- Fab (i,x) , FFab (ix) et QT (ix) sont des cellules
avec Fab(1x) appartiens à l'intervalle de cellules [D8;E8;...;FP8;FO8]
Fab(2x) appartiens à l'intervalle de cellules [D14;E14;...;FP14;FO14]
FFab(1x) appartiens à l'intervalle de cellules [D13;E13;...FP13;FO13]
FFab(2x) appartiens à l'intervalle de cellules [D19;E19;...;FP19;FO19]
QT(1x) appartiens à l'intervalle de cellules [D35;E35;...;FP35;FO35]
QT(2x) appartiens à l'intervalle de cellules [D40;E40;...;FP40;FO40]
-Ref (t) est une plage de cellules
avec Ref (1) = ["A21":"A22":"A23":"A24":"A25":"A26":"A29":"A30":"A31":"A32":"B21":"B22":"B23":"B24":"B25"]
Ref(2) = ["A27":"A28":"B26":"B28":"B29":"B30":"B31":"B32":"C21":"C22":"C23":"C24":"C25":"C26":"C27":"C28":"C29":"C30"]
Ref(3) = ["B27"]
-Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(1)
alors la valeur de QT(ix) = 250
- Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(2)
alors la valeur de QT(ix) = 350
-Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(3)
alors la valeur de QT(ix) = 300
Je vous remercie d'avance.
Afin de simplifier la modification du planning de production du secteur dont je travaille, j'ai commcé un excel où j'ai galéré un mois et demi sans aboutir à un résultat satisfaisant. Esperant qu'il y aura quelqu'un qui pourra m'aider voici ce que je voudrais faire sur VBA (j'ai essayé de l'écrire d'une manière proche du language pour simplifier la compréhension et merci) :
- i, x et t sont des entiers naturels
avec i appartiens à l'intervalle [1;2]
x appartiens à l'intervalle [1;168]
t appartiens à l'intervalle [1;3]
- Fab (i,x) , FFab (ix) et QT (ix) sont des cellules
avec Fab(1x) appartiens à l'intervalle de cellules [D8;E8;...;FP8;FO8]
Fab(2x) appartiens à l'intervalle de cellules [D14;E14;...;FP14;FO14]
FFab(1x) appartiens à l'intervalle de cellules [D13;E13;...FP13;FO13]
FFab(2x) appartiens à l'intervalle de cellules [D19;E19;...;FP19;FO19]
QT(1x) appartiens à l'intervalle de cellules [D35;E35;...;FP35;FO35]
QT(2x) appartiens à l'intervalle de cellules [D40;E40;...;FP40;FO40]
-Ref (t) est une plage de cellules
avec Ref (1) = ["A21":"A22":"A23":"A24":"A25":"A26":"A29":"A30":"A31":"A32":"B21":"B22":"B23":"B24":"B25"]
Ref(2) = ["A27":"A28":"B26":"B28":"B29":"B30":"B31":"B32":"C21":"C22":"C23":"C24":"C25":"C26":"C27":"C28":"C29":"C30"]
Ref(3) = ["B27"]
-Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(1)
alors la valeur de QT(ix) = 250
- Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(2)
alors la valeur de QT(ix) = 350
-Si la couleur de la cellule FFab (ix) est verte (interrior.indexColor=4)
et la valeur de Fab(ix) égale une valeur d'une cellule qui appartient à la plage Ref(3)
alors la valeur de QT(ix) = 300
Je vous remercie d'avance.