Outil valeur cible Excel

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)

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

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