Fonction non définie, pourquoi ?

Bonjour,

J'ai un problème dans mon code VBA, lorsque je l'exécute j'ai le message d'erreur suivant : "Sub ou Fonction non définie" mais je n'arrive pas à trouver d'où peut provenir l'erreur.

Mon code est le suivant :

Option Explicit

Sub aa_solveur()

'

' aa_solveur Macro

'

'

Range("E1").Select

SolverOk SetCell:="E1", MaxMinVal:=3, ValueOf:=12, ByChange:="$D$1", Engine:= _

1, EngineDesc:="GRG Nonlinear"

SolverAdd CellRef:="$B$1", Relation:=3, FormulaText:="0"

SolverAdd CellRef:="$C$1", Relation:=1, FormulaText:="0"

SolverOptions MaxTime:=0, Iterations:=3000, Precision:=1E-16, Convergence:=1E-16, StepThru:=False, Scaling:=False, AssumeNonNeg:=True, Derivatives:=2

SolverSolve

End Sub

Merci d'avance pour votre aide.

Salut, tu sélectionne la cellule E1 de quel onglet ?

Bonsoir

Pour pouvoir utiliser les fonctions VBA du solveur à partir de VBA, vous devez activer le complément solveur dans la boîte de dialogue Options Excel.

1.Cliquez sur l’onglet Fichier, puis cliquez sur Options sous l’onglet Excel.

2.Dans la boîte de dialogue Options Excel, cliquez sur Compléments.

3.Dans la zone déroulante Gérer, sélectionnez Compléments Excel, puis cliquez sur OK.

4.Dans la boîte de dialogue Compléments, sélectionnez Complément Solver, puis cliquez sur OK.

LouReeD