Problème de syntaxe dans une macro pour automatiser le lancement du solveur

Version imprimable

Bonjour,

J'essaye d'automatiser le lancement du solveur pour fiare 102 lignes (de la ligne 114 à 116).

Voici mon code que j'ai réalisé en m'inspirant de codes déjà faits sur le forum :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SolverAutomatise()
 
   Dim CellulesVariables As Range
   Dim i As Integer
   For i = 14 To 116
   'SolverReset
 
         With pelvis
         Set CellulesVariables = Union(Range("Z" & i), Range("AA" & i), Range("AB" & i))
         End With
 
          'ligne générale :
          '   SetCell correspond à la cellule cible
          '   MaxMinVal donne l'objectif (Max = 1, Min = 2, Val = 3)
          '   ValueOf est utilisé car MaxMinVal vaut 3
          '   ByChange précise les cellules variables
 
         Set CelluleObjectif = Range("AG" & i).Value
 
         SolverOk SetCell:=CelluleObjectif, MaxMinVal:=3, ValueOf:="0", ByChange:=CellulesVariables.Address
 
        'on lance la résolution
         SolverSolve
   Next i
 
End Sub

J'ai une erreur de compilation, visiblement à la ligne du SolverOk.

Est-ce que vous auriez des idées sur l'erreur de syntaxe qu'il y a dans mon code ?

Je vous remercie d'avance pour votre aide.

22/02/2017, 11h50
Marc-L

Bonjour,

une erreur de syntaxe indique une instruction n'existant pas ou un mauvais paramètre !
C'est donc soit une faute d'orthographe (et oui même en informatique !)
soit carrément quelque chose sorti d'un chapeau mais n'existant pas dans le référentiel du VBA,
consulter son aide intégrée (aidant aussi à vérifier le type des paramètres attendus) …

Déjà la ligne de code n°18 me paraît plutôt singulière, à vérifier dans la fenêtre des Variables locales durant l'exécution !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
22/02/2017, 14h18
bendesarts

Merci pour ton retour.

Mais,
1) peux-tu me préciser un peu plus la partie de code que tu trouves incorrect ?

2) Comment fait-on pour "vérifier dans la fenêtre des Variables locales durant l'exécution" d'éventuelles soucis ?
22/02/2017, 14h52
Marc-L

La ligne n°18 me semble tout à fait irréelle ! Rien qu'en consultant l'aide VBA de l'instruction Set …

Soit placer un point d'arrêt sur la ligne n°20 soit progresser dans le code via la touche F8 (cf tutoriel & aide VBA).
Une fois la variable alimentée, son contenu est visible dans la fenêtre des Variables locales.

Pour une ligne déclenchant une erreur, il faut vérifier le contenu de chacune de ses variables
et s'il y a des paramètres passés à une fonction ou à une procédure (c'est le cas ici)
il faut aussi vérifier si leur types de données correspond à ceux attendus
(pouvant être une cause d'erreur ici, là aussi juste en consultant l'aide VBA ) …

Astuce pour ceux ne s'en sortant pas : activer l'Enregistreur de macro - l'ami du débutant - puis
opérer manuellement dans la feuille de calculs : une base de code est livrée sur un plateau !
Ensuite il est facile de comparer le code ainsi généré avec le code en erreur …

OK j'ai trouvé la fenetre des variables locales.

J'ai fait également un F8 pour faire un pas à pas.

Par contre, je constate qu'il n'y a tjs rien dans les variables locales.

Pour la ligne 18, j'ai enlevé le .Value mais celà ne fonctionne tjs pas.

Voici maintenant mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SolverAutomatise()
 
   Dim CellulesVariables As Range
   Dim i As Integer
   For i = 14 To 116
   'SolverReset
 
         With pelvis
         Set CellulesVariables = Union(Range("Z" & i), Range("AA" & i), Range("AB" & i))
         End With
 
          'ligne générale :
          '   SetCell correspond à la cellule cible
          '   MaxMinVal donne l'objectif (Max = 1, Min = 2, Val = 3)
          '   ValueOf est utilisé car MaxMinVal vaut 3
          '   ByChange précise les cellules variables
 
         Set CelluleObjectif = Range("AG" & i)
 
         SolverOk SetCell:=CelluleObjectif, MaxMinVal:=3, ValueOf:="0", ByChange:=CellulesVariables.Address
 
        'on lance la résolution
         SolverSolve
   Next i

Aurais-tu des idées d'où provient l'erreur et SURTOUT comment la corriger ?

Merci d'avance pour ton aide

22/02/2017, 15h56
Marc-L

Peut-être en comparant ton paramètre ByChange avec celui attendu dans l'aide VBA de SolverOk ?

Sinon le plus rapide est de directement opérer dans la feuille de calculs et une fois la manœuvre réussie
la réitérer en utilisant l'Enregistreur de macro …

Bonsoir,

Merci tout d'abord à moi-même ! Avé moi !

Pour la communauté, voici les élements qui m'avaient bloqué.

D'abord dans visual basic, il fallait enclencher Outils --> Reférences --> Solver pour que les fonctions VBA permettant de dialoguer avec le solver fonctionne.

Ensuite, il y avait quelques petits modifs mineurs.

Je laisse ici le code qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub SolverAutomatise()
 
   Worksheets("pelvis").Activate
 
   Dim CellulesVariables As Range
 
   Dim i As Integer
 
   For i = 14 To 116
 
   'SolverReset
        With pelvis
        Set CelluleObjectif = Range("AG" & i)
        Set CellulesVariables = Union(Range("Z" & i), Range("AA" & i), Range("AB" & i))
        End With
 
          'ligne générale :
          '   SetCell correspond à la cellule cible
          '   MaxMinVal donne l'objectif (Max = 1, Min = 2, Val = 3)
          '   ValueOf est utilisé car MaxMinVal vaut 3
          '   ByChange précise les cellules variables
 
 
 
         SolverOk SetCell:=CelluleObjectif, MaxMinVal:=3, ValueOf:="0", ByChange:=CellulesVariables.Address, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
 
        'on lance la résolution
         SolverSolve (True)
   Next i
 
End Sub

A+