VBA et solveur repetitions possible ?
Bonjour a toute et tous ,
Je viens vers vous car je manque de connaissance....
J'ai un tableau qui définit la taille de cartons 1 ligne 1 type de carton...
j'utilise le solveur pour optimiser la palette selon des conditions de hauteur,poids...
j'ai créer un VBA qi me permet de remplir automatiquement via le solveur mes cellules, mais se programme ne fonctionne que pour la première ligne je ne trouve pas comment répéter sur toute les ligne de mon tableau la procédure, j'ai bien trouvé une histoire de whil et/ou do mais je ne sais comment l'intégrer...
Mon fichier comporte bon nombre de données sensible, mais pas le code
Sub Macro_solveur_test_1()
'
' Macro_solveur_test_1 Macro
' fait tourner le solveur pour remplir les palettes optimisées
'
'
Sheets("Optimisations palette").Select
Range("N8").Select
ActiveCell.FormulaR1C1 = "=Tableau3[@Dimension3]"
Range("O8").Select
ActiveCell.FormulaR1C1 = "=Tableau3[@Colonne4]"
Range("P8").Select
ActiveCell.FormulaR1C1 = "=Tableau3[@Colonne5]"
Range("P9").Select
Sheets("Feuil1").Select
Range("AU8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[12]C[-42]"
Range("AV8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[12]C[-45]"
Range("AQ8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[11]C[-37]"
Range("AQ8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[11]C[-37]*1000"
Range("AR8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[10]C[-38]"
Range("AR8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[10]C[-38]*1000"
Range("AS8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[9]C[-39]"
Range("AS8").Select
ActiveCell.FormulaR1C1 = "='Optimisations palette'!R[9]C[-39]*1000"
Range("AT8").Select
ActiveCell.FormulaR1C1 = "=(RC[1]*RC[2])*Tableau3[@[Qtt/UC]]"
Range("AX8").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*Tableau3[@[Qtt/UC]]"
Range("AW8").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]*RC[-2])*Tableau3[@[Poids UC]]"
Range("AW9").Select
Sheets("Feuil1").Select
Range("AQ8:AX8").Select
Selection.Copy
Range("AQ8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AY14").Select
End Sub
Merci d'avance de vos futur réponses
Bonsoir,
Un fichier quand même, avec des données non sensibles mais significatives, et un état de ce que tu attends.
Merci de votre intérêt,fini le-boulot pour aujourd'hui ; ), je vous le met en ligne demain apres modif des infos... Bonne soirée