macro pour ajouter des cellules dans le solveur

Eruel · 23 Novembre 2009

Bonjour,

J'ai dans mon tableau excel des cellules dont le fond est rouge et elles ne sont pas toujours au même endroit. J'ai utilisé une fonction for pour lister les cellules et j'aimerai injecter ces cellules dans les "cellules variables" du solveur mais j'avoue coincé un peu.

Code:

For Each Cell In Sheets("Feuil1").Range("B2:D16")
   If Cell.Interior.Color = 255 Then
      SolverOK SetCell:=Range("J2"), MaxMinVal:=3, ValueOf:=0,   
      ByChange:=Cell.Value
   End If
Next
SolverAdd CellRef:=Range("J2"), Relation:=2, FormulaText:=0
SolverAdd CellRef:=Range("J3"), Relation:=2, FormulaText:=0

Je ne vois pas quoi mettre dans "ByChange".

Eruel · 26 Novembre 2009

Re : macro pour ajouter des cellules dans le solveur

Un petit up pour pas laisser mourir le sujet car j'aimerai reussir a faire une selection variable de cellule et pouvoir l'ajouter dans le solveur mais je coince.

Eruel · 28 Novembre 2009

Re : macro pour ajouter des cellules dans le solveur

Bonjour,

Voila je suis toujours sur le meme probleme j'ai changé ma formule :

Code:

SolverReset
On Error Resume Next
Dim Plage As Range
Dim Cel As Range
Set Plage = Range("B2:D16").Find("")
For Each Cel In Range("A1:D" & Range("D16").End(xlUp).Row)
If Cel.Interior.Color = "255" Then Set Plage = Union(Plage, Cel)
Next
SolverOK SetCell:=Range("J2"), MaxMinVal:=3, ValueOf:=0, ByChange:=Plage
SolverAdd CellRef:=Range("J2:J4,J6:J8"), Relation:=2, FormulaText:=0
SolverSolve UserFinish:=True

Lorsque j'execute la macro la selection d'adresse de mes cellules se retrouvent dans mes cellules a fond rouge et rien n'est pris en compte dans le solveur.

Besoin d'aide merci.

macro pour ajouter des cellules dans le solveur

Eruel

XLDnaute Nouveau

Eruel

XLDnaute Nouveau

Eruel

XLDnaute Nouveau

Discussions similaires

macro pour ajouter des cellules dans le solveur

Eruel

XLDnaute Nouveau

Eruel

XLDnaute Nouveau

Eruel

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency