Outil valeur cible Excel Fermé

Question

Bonjour,

J'aimerais savoir comment comment appliquer l'outil "valeur cible" d'excel à un groupe de celulle afin d' éviter de le faire manuellement cellule par cellule (car, en effet, cette fonction est normalement utilisable pour une unique cellule).

Ci-joint la macro qui permet d'utiliser l'outil sur une cellule donnée (dans ce cas c'était la cellule U3) en modifiant une autre cellule (en l'occurrence T3). 

Sub cible()
'
' cible Macro
' Macro enregistrée le 07/02/2007 par Sheiko
'
' Touche de raccourci du clavier: Ctrl+Maj+A
'
    Range("U3").Select
    Range("U3").GoalSeek Goal:=0, ChangingCell:=Range("T3")
End Sub

Donc est-il possible de généraliser cette macro afin qu'elle résolve simultanément plusieurs cellules?


Merci d'avance

haju68 · Accepted Answer

Pour ma part j'ai eu le même soucis que toi, j'ai fini par trouver une astuce.
J'ai copié mes valeurs cibles dans une colonne Excel, en laissant des colonnes libres de chaque côté.
Puis j'ai entré dans les colonnes voisine le reste de la ligne de code. La colonne B contient la plage de cellule contenant la formule, la colonne D les valeurs cibles et la colonne F la plage de cellule que l'on fera varier.
    A              B                    C                          D                          E                             F           G
Range("     O122	").GoalSeek Goal:=	6.016454882	, ChangingCell:=Range("	    P122	")
Range("	    O123	").GoalSeek Goal:=	6.025227694	, ChangingCell:=Range("     P123	")


Les grands espace correspondent aux séprations entre chaque colonne.
Il me suffit ainsi de tirer les colonnes A, B, C, E, F et G

Range("     O122	").GoalSeek Goal:=	6.016454882	, ChangingCell:=Range("	    P122	")
Range("	    O123	").GoalSeek Goal:=	6.025227694	, ChangingCell:=Range("     P123	")
    .               .                      .                             .                              .                       .            .
    .               .                      .                             .                              .                       .            .
    .               .                      .                             .                              .                       .            .
Range("	    O401	").GoalSeek Goal:=	6.025227694	, ChangingCell:=Range("     P401	")


Il suffit ensuite sélectionner l'ensemble de ces cellules, puis de les copier-coller dans le code, les espaces ne gènent pas l'exécution de la macro.

Sub cible()
'
' cible Macro
' Macro enregistrée le 07/02/2007 par Sheiko modifiée le 04/03/2008 par haju68
'
' Touche de raccourci du clavier: Ctrl+Maj+A
'
Range("O122:O401").Select
Range("P122:P401").Select
Range("O122").GoalSeek Goal:=6.016454882, ChangingCell:=Range(" P122    ")
Range("O123").GoalSeek Goal:=6.025227694, ChangingCell:=Range(" P123    ")
Range("O124").GoalSeek Goal:=6.111536889, ChangingCell:=Range(" P124    ")
Range("O125").GoalSeek Goal:=6.016454882, ChangingCell:=Range(" P125    ")
Range("O126").GoalSeek Goal:=5.974585859, ChangingCell:=Range(" P126    ")
Range("O127").GoalSeek Goal:=6.111536889, ChangingCell:=Range(" P127    ")
Range("O128").GoalSeek Goal:=5.977634649, ChangingCell:=Range(" P128    ")
  .            .                .                   .                      .                       .          .
  .            .                .                   .                      .                       .          .
  .            .                .                   .                      .                       .          .
Range("O398").GoalSeek Goal:=5.842896296, ChangingCell:=Range(" P398    ")
Range("O399").GoalSeek Goal:=5.773536237, ChangingCell:=Range(" P399    ")
Range("O400").GoalSeek Goal:=5.836683024, ChangingCell:=Range(" P400    ")
Range("O401").GoalSeek Goal:=5.929350191, ChangingCell:=Range(" P401    ")
End Sub




Ca m'a permis de traiter près de 300 lignes, en espérant que mon astuce en aidera d'autre.
Je me suis bien cassé la tête et ai réalisé 120 valeurs cible manuellement avant de trouver ce truc (à ma décharche je n'avais pas accès à internet et à l'aide de VBA et l'équation est quasi insoluble à la main)

habib · Answer

Bonjour,
Je ne sais pas si vous avez trouvez une solution !!
Si non, m'averti car j'ai la solution
Bonne journée
Habib

micha · Answer

Je suis preneur de la solution 

je souhaite resoudre l'équation suivante (X/cells(i, 2))^2+(X/cells(i,3))^3  = 1 et afficher le résultat en cells(i,4) sans a avoir a écrire l'équation pour chacune des lignes ( i = 1 to 1000)
cells(i,2) et cells(i,3) étant bien évidement des constantes

Outil valeur cible Excel

3 réponses

Discussions similaires