Vba et solveur repetitions possible ?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
K
KAZKAD
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 7 mars 2016
Version d'Excel : 2010

Message par KAZKAD » 3 mai 2016, 17:19

Excel pratique kazkad.xlsm
Le solveur doit pouvoir remplir les cellules au fond orange, merci
(115.39 Kio) Téléchargé 2 fois
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 :D
Modifié en dernier par KAZKAD le 4 mai 2016, 08:33, modifié 1 fois.
Avatar du membre
bernard22
Membre dévoué
Membre dévoué
Messages : 877
Appréciations reçues : 11
Inscrit le : 26 mars 2015
Version d'Excel : 2013FR

Message par bernard22 » 3 mai 2016, 18:48

Bonsoir,
Un fichier quand même, avec des données non sensibles mais significatives, et un état de ce que tu attends.
K
KAZKAD
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 7 mars 2016
Version d'Excel : 2010

Message par KAZKAD » 3 mai 2016, 19:03

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message