Discussion :

[bendesarts]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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, …

[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 ?

[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 …

[bendesarts]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 …