Problème de macro Excel 2003 sur Excel 2007
Bonjour à tous,
J'ai une feuille de calcul qui comporte une macro utilisant le solver, il fonctionne très bien sur Excel 2003 mais ne fonctionne plus une fois sur 2007 (il m'ouvre une fenêtre VB avec le message "erreur de compilation: Projet ou bibliothèque introuvable).
De plus, j'aimerai automatiser le lancement du solver en 1 clic sur un bouton car aujourd'hui je dois passer par un Ctrl+T puis appuyer 16 fois sur entrer pour exécuter les calculs. J'ai bien trouvé des infos sur le net mais n'y connaissant rien à VB je m'en sors pas.
Voici la macro en question :
Sub PTFOUR()
'
' PTFOUR Macro
' Macro enregistrée le 04/06/2010 par ...
'
' Touche de raccourci du clavier: Ctrl+t
Set Tini = Worksheets("chauffage mèche").Cells(4, 2)
Set Tparoi = Worksheets("chauffage mèche").Cells(5, 2)
For i = 1 To 16
Worksheets("chauffage mèche").Cells(27 + i, 5) = (Tini + Tparoi) / 2
Next i
Worksheets("chauffage mèche").Activate
SolverReset
SolverOk SetCell:="$F$28", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$28"
SolverSolve
SolverOk SetCell:="$F$29", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$29"
SolverSolve
SolverOk SetCell:="$F$30", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$30"
SolverSolve
SolverOk SetCell:="$F$31", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$31"
SolverSolve
SolverOk SetCell:="$F$32", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$32"
SolverSolve
SolverOk SetCell:="$F$33", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$33"
SolverSolve
SolverOk SetCell:="$F$34", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$34"
SolverSolve
SolverOk SetCell:="$F$35", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$35"
SolverSolve
SolverOk SetCell:="$F$36", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$36"
SolverSolve
SolverOk SetCell:="$F$37", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$37"
SolverSolve
SolverOk SetCell:="$F$38", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$38"
SolverSolve
SolverOk SetCell:="$F$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$39"
SolverSolve
SolverOk SetCell:="$F$40", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$40"
SolverSolve
SolverOk SetCell:="$F$41", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$41"
SolverSolve
SolverOk SetCell:="$F$42", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$42"
SolverSolve
SolverOk SetCell:="$F$43", MaxMinVal:=3, ValueOf:="0", ByChange:="$E$43"
SolverSolve
Merci par avance !
Salut le forum
Pour éviter de taper 16 fois sur la touche <ENTER> modifie les lignes
SolverSolvepar
SolverSolve TrueDans les macros complémentaires Excel2007 ajoute le complément Solveur
Bouton Office/Options Excel/Complément/Complément Solveur (solver.xlam)
Ensuite dans l'éditeur de macros (Alt+F11)
Menu Outils
Références
Coche la ligne "SOLVER"
Clique sur le bouton OK pour valider
Mytå
Merci pour ta réponse Mytå,
Dans l'éditeur de macros, le Solver était bien coché mais il y avait marqué devant "MANQUANT". J'ai donc tout désactivé puis tout réactivé et tout fonctionne maintenant !
C'est super MERCIIII.
Edit de Nad : message supprimé - Merci de passer en MP pour ce genre de demande