Solveur Boucle VBA plusieurs variables incrémentées

Fermé
Valoche01
Messages postés
43
Date d'inscription
jeudi 29 novembre 2012
Statut
Membre
Dernière intervention
22 août 2017
- Modifié par Valoche01 le 4/12/2012 à 20:56
Valoche01
Messages postés
43
Date d'inscription
jeudi 29 novembre 2012
Statut
Membre
Dernière intervention
22 août 2017
- 5 déc. 2012 à 14:42
Rebonjour!

J'ai encore un petit (et dernier...) problème :s
J'ai donc réussi grâce au forum et à ériiic, à créer une incrémentation en colonne :
 For K = 0 To 30
SolverOk SetCell:=Cells(16, 14 + K), MaxMinVal:=2, ByChange:=Cells(14, 13 + K)


Problème 1 : Je n'arrive pas à mettre plusieurs variables en utilisant "cells" contrairement à "range"
Ex:
ByChange:=Cells(14, 13),(14, 14)
ne fonctionne pas

Problème 2 : Je n'arrive pas à faire SolverDelete avec la fonction "cells"
Ex:
    SolverAdd CellRef:=Cells(13, 14 + K), Relation:=1, FormulaText:=Cells(31, 14 + K) 
    SolverDelete CellRef:=Cells(13, 14 + K), Relation:=1, FormulaText:=Cells(31, 14 + K)
ne fonctionne pas non plus

Merci pour votre aide

1 réponse

Valoche01
Messages postés
43
Date d'inscription
jeudi 29 novembre 2012
Statut
Membre
Dernière intervention
22 août 2017

5 déc. 2012 à 14:42
J'ai finalement réussi à mettre plusieurs cellules variables comme ceci :
ByChange:=Range(Cells(2, 2 + K), Cells(4, 2 + K))

L'incrémentation se fait bien

Par contre je n'arrive toujours pas à faire les solverdelete

Si vous avez une idée, merci !
0