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

Rechercher des sujets similaires à "vba solveur repetitions possible"