Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
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

Discussions similaires

VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses