problème macro excel erreur d'exécution 1004
Dernière réponse : dans Programmation
bonjour
Je viens de créer une macro sous excel /VBA.
Je n'y connais pas grand chose mais j'étais content de moi car ça marchait.
Le but était de faire s'exécuter "outils /valeur cible" sur plusieurs cellules en automatique en lui faisant prendre des valeurs cibles différentes alors que normalement on est obligé de lui un nombre (on ne peux pas selectionner une cellule de la page).
Bref ça marche mais cependant dès que je veux protéger la feuille ça ne marche plus ça me met ' erreur d'exécution 1004"...l'un d'entre vous sait-il pourquoi?
voici la macro :
Sub rachatsbruts()
'
' rachatsbruts Macro
' Macro enregistrée le 31/07/2007 par Franck Azzala
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("J9").Select
Range("J9").GoalSeek Goal:=Range("K9"), ChangingCell:=Range("F9")
Range("J10").Select
Range("J10").GoalSeek Goal:=Range("K10"), ChangingCell:=Range("F10")
Range("J11").Select
Range("J11").GoalSeek Goal:=Range("K11"), ChangingCell:=Range("F11")
Range("J12").Select
Range("J12").GoalSeek Goal:=Range("K12"), ChangingCell:=Range("F12")
Range("J13").Select
Range("J13").GoalSeek Goal:=Range("K13"), ChangingCell:=Range("F13")
Range("J14").Select
Range("J14").GoalSeek Goal:=Range("K14"), ChangingCell:=Range("F14")
Range("J15").Select
Range("J15").GoalSeek Goal:=Range("K15"), ChangingCell:=Range("F15")
Range("J16").Select
Range("J16").GoalSeek Goal:=Range("K16"), ChangingCell:=Range("F16")
Range("J17").Select
Range("J17").GoalSeek Goal:=Range("K17"), ChangingCell:=Range("F17")
Range("J18").Select
Range("J18").GoalSeek Goal:=Range("K18"), ChangingCell:=Range("F18")
Range("J19").Select
Range("J19").GoalSeek Goal:=Range("K19"), ChangingCell:=Range("F19")
Range("J20").Select
Range("J20").GoalSeek Goal:=Range("K20"), ChangingCell:=Range("F20")
Range("J21").Select
Range("J21").GoalSeek Goal:=Range("K21"), ChangingCell:=Range("F21")
Range("J22").Select
Range("J22").GoalSeek Goal:=Range("K22"), ChangingCell:=Range("F22")
Range("J23").Select
Range("J23").GoalSeek Goal:=Range("K23"), ChangingCell:=Range("F23")
Range("J24").Select
Range("J24").GoalSeek Goal:=Range("K24"), ChangingCell:=Range("F24")
Range("J25").Select
Range("J25").GoalSeek Goal:=Range("K25"), ChangingCell:=Range("F25")
Range("J26").Select
Range("J26").GoalSeek Goal:=Range("K26"), ChangingCell:=Range("F26")
Range("J27").Select
Range("J27").GoalSeek Goal:=Range("K27"), ChangingCell:=Range("F27")
Range("J28").Select
Range("J28").GoalSeek Goal:=Range("K28"), ChangingCell:=Range("F28")
Range("J29").Select
Range("J29").GoalSeek Goal:=Range("K29"), ChangingCell:=Range("F29")
Range("J30").Select
Range("J30").GoalSeek Goal:=Range("K30"), ChangingCell:=Range("F30")
Range("J31").Select
Range("J31").GoalSeek Goal:=Range("K31"), ChangingCell:=Range("F31")
Range("J32").Select
Range("J32").GoalSeek Goal:=Range("K32"), ChangingCell:=Range("F32")
Range("J33").Select
Range("J33").GoalSeek Goal:=Range("K33"), ChangingCell:=Range("F33")
Range("J34").Select
Range("J34").GoalSeek Goal:=Range("K34"), ChangingCell:=Range("F34")
Range("J35").Select
Range("J35").GoalSeek Goal:=Range("K35"), ChangingCell:=Range("F35")
Range("J36").Select
Range("J36").GoalSeek Goal:=Range("K36"), ChangingCell:=Range("F36")
Range("J37").Select
Range("J37").GoalSeek Goal:=Range("K37"), ChangingCell:=Range("F37")
Range("J38").Select
Range("J38").GoalSeek Goal:=Range("K38"), ChangingCell:=Range("F38")
Range("J39").Select
Range("J39").GoalSeek Goal:=Range("K39"), ChangingCell:=Range("F39")
Range("J40").Select
Range("J40").GoalSeek Goal:=Range("K40"), ChangingCell:=Range("F40")
Range("J41").Select
Range("J41").GoalSeek Goal:=Range("K41"), ChangingCell:=Range("F41")
Range("J42").Select
Range("J42").GoalSeek Goal:=Range("K42"), ChangingCell:=Range("F42")
Range("J43").Select
Range("J43").GoalSeek Goal:=Range("K43"), ChangingCell:=Range("F43")
Range("J44").Select
Range("J44").GoalSeek Goal:=Range("K44"), ChangingCell:=Range("F44")
Range("J45").Select
Range("J45").GoalSeek Goal:=Range("K45"), ChangingCell:=Range("F45")
Range("J46").Select
Range("J46").GoalSeek Goal:=Range("K46"), ChangingCell:=Range("F46")
Range("J47").Select
Range("J47").GoalSeek Goal:=Range("K47"), ChangingCell:=Range("F47")
Range("J48").Select
Range("J48").GoalSeek Goal:=Range("K48"), ChangingCell:=Range("F48")
Range("J49").Select
Range("J49").GoalSeek Goal:=Range("K49"), ChangingCell:=Range("F49")
Range("J50").Select
Range("J50").GoalSeek Goal:=Range("K50"), ChangingCell:=Range("F50")
Range("J51").Select
Range("J51").GoalSeek Goal:=Range("K51"), ChangingCell:=Range("F51")
Range("J52").Select
Range("J52").GoalSeek Goal:=Range("K52"), ChangingCell:=Range("F52")
Range("J53").Select
Range("J53").GoalSeek Goal:=Range("K53"), ChangingCell:=Range("F53")
Range("J54").Select
Range("J54").GoalSeek Goal:=Range("K54"), ChangingCell:=Range("F54")
Range("J55").Select
Range("J55").GoalSeek Goal:=Range("K55"), ChangingCell:=Range("F55")
Range("J56").Select
Range("J56").GoalSeek Goal:=Range("K56"), ChangingCell:=Range("F56")
Range("J57").Select
Range("J57").GoalSeek Goal:=Range("K57"), ChangingCell:=Range("F57")
Range("J58").Select
Range("J58").GoalSeek Goal:=Range("K58"), ChangingCell:=Range("F58")
Range("J59").Select
Range("J59").GoalSeek Goal:=Range("K59"), ChangingCell:=Range("F59")
Range("J60").Select
Range("J60").GoalSeek Goal:=Range("K60"), ChangingCell:=Range("F60")
Range("J61").Select
Range("J61").GoalSeek Goal:=Range("K61"), ChangingCell:=Range("F61")
Range("J62").Select
Range("J62").GoalSeek Goal:=Range("K62"), ChangingCell:=Range("F62")
Range("J63").Select
Range("J63").GoalSeek Goal:=Range("K63"), ChangingCell:=Range("F63")
Range("J64").Select
Range("J64").GoalSeek Goal:=Range("K64"), ChangingCell:=Range("F64")
Range("J65").Select
Range("J65").GoalSeek Goal:=Range("K65"), ChangingCell:=Range("F65")
Range("J66").Select
Range("J66").GoalSeek Goal:=Range("K66"), ChangingCell:=Range("F66")
Range("J67").Select
Range("J67").GoalSeek Goal:=Range("K67"), ChangingCell:=Range("F67")
Range("J68").Select
Range("J68").GoalSeek Goal:=Range("K68"), ChangingCell:=Range("F68")
Range("J69").Select
Range("J69").GoalSeek Goal:=Range("K69"), ChangingCell:=Range("F69")
Range("J70").Select
Range("J70").GoalSeek Goal:=Range("K70"), ChangingCell:=Range("F70")
Range("J71").Select
Range("J71").GoalSeek Goal:=Range("K71"), ChangingCell:=Range("F71")
Range("J72").Select
Range("J72").GoalSeek Goal:=Range("K72"), ChangingCell:=Range("F72")
Range("J73").Select
Range("J73").GoalSeek Goal:=Range("K73"), ChangingCell:=Range("F73")
Range("J74").Select
Range("J74").GoalSeek Goal:=Range("K74"), ChangingCell:=Range("F74")
Range("J75").Select
Range("J75").GoalSeek Goal:=Range("K75"), ChangingCell:=Range("F75")
Range("J76").Select
Range("J76").GoalSeek Goal:=Range("K76"), ChangingCell:=Range("F76")
Range("J77").Select
Range("J77").GoalSeek Goal:=Range("K77"), ChangingCell:=Range("F77")
Range("J78").Select
Range("J78").GoalSeek Goal:=Range("K78"), ChangingCell:=Range("F78")
Range("J79").Select
Range("J79").GoalSeek Goal:=Range("K79"), ChangingCell:=Range("F79")
Range("J80").Select
Range("J80").GoalSeek Goal:=Range("K80"), ChangingCell:=Range("F80")
Range("J81").Select
Range("J81").GoalSeek Goal:=Range("K81"), ChangingCell:=Range("F81")
Range("J82").Select
Range("J82").GoalSeek Goal:=Range("K82"), ChangingCell:=Range("F82")
Range("J83").Select
Range("J83").GoalSeek Goal:=Range("K83"), ChangingCell:=Range("F83")
Range("J84").Select
Range("J84").GoalSeek Goal:=Range("K84"), ChangingCell:=Range("F84")
Range("J85").Select
Range("J85").GoalSeek Goal:=Range("K85"), ChangingCell:=Range("F85")
Range("J86").Select
Range("J86").GoalSeek Goal:=Range("K86"), ChangingCell:=Range("F86")
Range("J87").Select
Range("J87").GoalSeek Goal:=Range("K87"), ChangingCell:=Range("F87")
Range("J88").Select
Range("J88").GoalSeek Goal:=Range("K88"), ChangingCell:=Range("F88")
Range("J89").Select
Range("J89").GoalSeek Goal:=Range("K89"), ChangingCell:=Range("F89")
Range("J90").Select
Range("J90").GoalSeek Goal:=Range("K90"), ChangingCell:=Range("F90")
Range("J91").Select
Range("J91").GoalSeek Goal:=Range("K91"), ChangingCell:=Range("F91")
Range("J92").Select
Range("J92").GoalSeek Goal:=Range("K92"), ChangingCell:=Range("F92")
Range("J93").Select
Range("J93").GoalSeek Goal:=Range("K93"), ChangingCell:=Range("F93")
Range("J94").Select
Range("J94").GoalSeek Goal:=Range("K94"), ChangingCell:=Range("F94")
Range("J95").Select
Range("J95").GoalSeek Goal:=Range("K95"), ChangingCell:=Range("F95")
Range("J96").Select
Range("J96").GoalSeek Goal:=Range("K96"), ChangingCell:=Range("F96")
Range("J97").Select
Range("J97").GoalSeek Goal:=Range("K97"), ChangingCell:=Range("F97")
Range("J98").Select
Range("J98").GoalSeek Goal:=Range("K98"), ChangingCell:=Range("F98")
Range("J99").Select
Range("J99").GoalSeek Goal:=Range("K99"), ChangingCell:=Range("F99")
Range("J100").Select
Range("J100").GoalSeek Goal:=Range("K100"), ChangingCell:=Range("F100")
Range("J101").Select
Range("J101").GoalSeek Goal:=Range("K101"), ChangingCell:=Range("F101")
Range("J102").Select
Range("J102").GoalSeek Goal:=Range("K102"), ChangingCell:=Range("F102")
Range("J103").Select
Range("J103").GoalSeek Goal:=Range("K103"), ChangingCell:=Range("F103")
Range("J104").Select
Range("J104").GoalSeek Goal:=Range("K104"), ChangingCell:=Range("F104")
Range("J105").Select
Range("J106").Select
Range("J106").GoalSeek Goal:=Range("K106"), ChangingCell:=Range("F106")
Range("J107").Select
Range("J107").GoalSeek Goal:=Range("K107"), ChangingCell:=Range("F107")
Range("J108").Select
Range("J108").GoalSeek Goal:=Range("K108"), ChangingCell:=Range("F108")
Range("J109").Select
Range("J109").GoalSeek Goal:=Range("K109"), ChangingCell:=Range("F109")
Range("J110").Select
Range("J110").GoalSeek Goal:=Range("K110"), ChangingCell:=Range("F110")
Range("J111").Select
Range("J111").GoalSeek Goal:=Range("K111"), ChangingCell:=Range("F111")
Range("J112").Select
Range("J112").GoalSeek Goal:=Range("K112"), ChangingCell:=Range("F112")
Range("J113").Select
Range("J113").GoalSeek Goal:=Range("K113"), ChangingCell:=Range("F113")
Range("J114").Select
Range("J114").GoalSeek Goal:=Range("K114"), ChangingCell:=Range("F114")
Range("J115").Select
Range("J115").GoalSeek Goal:=Range("K115"), ChangingCell:=Range("F115")
Range("J116").Select
Range("J116").GoalSeek Goal:=Range("K116"), ChangingCell:=Range("F116")
Range("J117").Select
Range("J117").GoalSeek Goal:=Range("K117"), ChangingCell:=Range("F117")
Range("J118").Select
Range("J118").GoalSeek Goal:=Range("K118"), ChangingCell:=Range("F118")
Range("J119").Select
Range("J119").GoalSeek Goal:=Range("K119"), ChangingCell:=Range("F119")
Range("J120").Select
Range("J120").GoalSeek Goal:=Range("K120"), ChangingCell:=Range("F120")
Range("J121").Select
Range("J121").GoalSeek Goal:=Range("K121"), ChangingCell:=Range("F121")
Range("J122").Select
Range("J122").GoalSeek Goal:=Range("K122"), ChangingCell:=Range("F122")
Range("J123").Select
Range("J123").GoalSeek Goal:=Range("K123"), ChangingCell:=Range("F123")
Range("J124").Select
Range("J124").GoalSeek Goal:=Range("K124"), ChangingCell:=Range("F124")
Range("J125").Select
Range("J125").GoalSeek Goal:=Range("K125"), ChangingCell:=Range("F125")
Range("J126").Select
Range("J126").GoalSeek Goal:=Range("K126"), ChangingCell:=Range("F126")
Range("J127").Select
Range("J127").GoalSeek Goal:=Range("K127"), ChangingCell:=Range("F127")
Range("J128").Select
Range("J128").GoalSeek Goal:=Range("K128"), ChangingCell:=Range("F128")
Range("J129").Select
Range("J129").GoalSeek Goal:=Range("K129"), ChangingCell:=Range("F129")
Range("J130").Select
Range("J130").GoalSeek Goal:=Range("K130"), ChangingCell:=Range("F130")
Range("J131").Select
Range("J131").GoalSeek Goal:=Range("K131"), ChangingCell:=Range("F131")
Range("J132").Select
Range("J132").GoalSeek Goal:=Range("K132"), ChangingCell:=Range("F132")
Range("J133").Select
Range("J133").GoalSeek Goal:=Range("K133"), ChangingCell:=Range("F133")
Range("J134").Select
Range("J134").GoalSeek Goal:=Range("K134"), ChangingCell:=Range("F134")
Range("J135").Select
Range("J135").GoalSeek Goal:=Range("K135"), ChangingCell:=Range("F135")
Range("J136").Select
Range("J136").GoalSeek Goal:=Range("K136"), ChangingCell:=Range("F136")
Range("J137").Select
Range("J137").GoalSeek Goal:=Range("K137"), ChangingCell:=Range("F137")
Range("J138").Select
Range("J138").GoalSeek Goal:=Range("K138"), ChangingCell:=Range("F138")
Range("J139").Select
Range("J139").GoalSeek Goal:=Range("K139"), ChangingCell:=Range("F139")
Range("J140").Select
Range("J140").GoalSeek Goal:=Range("K140"), ChangingCell:=Range("F140")
Range("J141").Select
Range("J141").GoalSeek Goal:=Range("K141"), ChangingCell:=Range("F141")
Range("J142").Select
Range("J142").GoalSeek Goal:=Range("K142"), ChangingCell:=Range("F142")
Range("J143").Select
Range("J143").GoalSeek Goal:=Range("K143"), ChangingCell:=Range("F143")
Range("J144").Select
Range("J144").GoalSeek Goal:=Range("K144"), ChangingCell:=Range("F144")
Range("J145").Select
Range("J145").GoalSeek Goal:=Range("K145"), ChangingCell:=Range("F145")
Range("J146").Select
Range("J146").GoalSeek Goal:=Range("K146"), ChangingCell:=Range("F146")
Range("J147").Select
Range("J147").GoalSeek Goal:=Range("K147"), ChangingCell:=Range("F147")
Range("J148").Select
Range("J148").GoalSeek Goal:=Range("K148"), ChangingCell:=Range("F148")
Range("J149").Select
Range("J149").GoalSeek Goal:=Range("K149"), ChangingCell:=Range("F149")
Range("J150").Select
Range("J150").GoalSeek Goal:=Range("K150"), ChangingCell:=Range("F150")
Range("J151").Select
Range("J151").GoalSeek Goal:=Range("K151"), ChangingCell:=Range("F151")
Range("J152").Select
Range("J152").GoalSeek Goal:=Range("K152"), ChangingCell:=Range("F152")
Range("J153").Select
Range("J153").GoalSeek Goal:=Range("K153"), ChangingCell:=Range("F153")
Range("J154").Select
Range("J154").GoalSeek Goal:=Range("K154"), ChangingCell:=Range("F154")
Range("J155").Select
Range("J155").GoalSeek Goal:=Range("K155"), ChangingCell:=Range("F155")
Range("J156").Select
Range("J156").GoalSeek Goal:=Range("K156"), ChangingCell:=Range("F156")
Range("J157").Select
Range("J157").GoalSeek Goal:=Range("K157"), ChangingCell:=Range("F157")
Range("J158").Select
Range("J158").GoalSeek Goal:=Range("K158"), ChangingCell:=Range("F158")
Range("J159").Select
Range("J159").GoalSeek Goal:=Range("K159"), ChangingCell:=Range("F159")
Range("J160").Select
Range("J160").GoalSeek Goal:=Range("K160"), ChangingCell:=Range("F160")
Range("J161").Select
Range("J161").GoalSeek Goal:=Range("K161"), ChangingCell:=Range("F161")
Range("J162").Select
Range("J162").GoalSeek Goal:=Range("K162"), ChangingCell:=Range("F162")
Range("J163").Select
Range("J163").GoalSeek Goal:=Range("K163"), ChangingCell:=Range("F163")
Range("J164").Select
Range("J164").GoalSeek Goal:=Range("K164"), ChangingCell:=Range("F164")
Range("J165").Select
Range("J165").GoalSeek Goal:=Range("K165"), ChangingCell:=Range("F165")
Range("J166").Select
Range("J166").GoalSeek Goal:=Range("K166"), ChangingCell:=Range("F166")
Range("J167").Select
Range("J167").GoalSeek Goal:=Range("K167"), ChangingCell:=Range("F167")
Range("J168").Select
Range("J168").GoalSeek Goal:=Range("K168"), ChangingCell:=Range("F168")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J170").Select
Range("J170").GoalSeek Goal:=Range("K170"), ChangingCell:=Range("F170")
Range("J171").Select
Range("J171").GoalSeek Goal:=Range("K171"), ChangingCell:=Range("F171")
Range("J172").Select
Range("J172").GoalSeek Goal:=Range("K172"), ChangingCell:=Range("F172")
Range("J173").Select
Range("J173").GoalSeek Goal:=Range("K173"), ChangingCell:=Range("F173")
Range("J174").Select
Range("J174").GoalSeek Goal:=Range("K174"), ChangingCell:=Range("F174")
Range("J175").Select
Range("J175").GoalSeek Goal:=Range("K175"), ChangingCell:=Range("F175")
Range("J176").Select
Range("J176").GoalSeek Goal:=Range("K176"), ChangingCell:=Range("F176")
Range("J177").Select
Range("J177").GoalSeek Goal:=Range("K177"), ChangingCell:=Range("F177")
Range("J178").Select
Range("J178").GoalSeek Goal:=Range("K178"), ChangingCell:=Range("F178")
Range("J179").Select
Range("J179").GoalSeek Goal:=Range("K179"), ChangingCell:=Range("F179")
Range("J180").Select
Range("J180").GoalSeek Goal:=Range("K180"), ChangingCell:=Range("F180")
Range("J181").Select
Range("J181").GoalSeek Goal:=Range("K181"), ChangingCell:=Range("F181")
Range("J182").Select
Range("J182").GoalSeek Goal:=Range("K182"), ChangingCell:=Range("F182")
Range("J183").Select
Range("J183").GoalSeek Goal:=Range("K183"), ChangingCell:=Range("F183")
Range("J184").Select
Range("J184").GoalSeek Goal:=Range("K184"), ChangingCell:=Range("F184")
Range("J185").Select
Range("J185").GoalSeek Goal:=Range("K185"), ChangingCell:=Range("F185")
Range("J186").Select
Range("J186").GoalSeek Goal:=Range("K186"), ChangingCell:=Range("F186")
Range("J187").Select
Range("J187").GoalSeek Goal:=Range("K187"), ChangingCell:=Range("F187")
Range("J188").Select
Range("J188").GoalSeek Goal:=Range("K188"), ChangingCell:=Range("F188")
Range("J189").Select
Range("J189").GoalSeek Goal:=Range("K189"), ChangingCell:=Range("F189")
Range("J190").Select
Range("J190").GoalSeek Goal:=Range("K190"), ChangingCell:=Range("F190")
Range("J191").Select
Range("J191").GoalSeek Goal:=Range("K191"), ChangingCell:=Range("F191")
Range("J192").Select
Range("J192").GoalSeek Goal:=Range("K192"), ChangingCell:=Range("F192")
Range("J193").Select
Range("J193").GoalSeek Goal:=Range("K193"), ChangingCell:=Range("F193")
Range("J194").Select
Range("J194").GoalSeek Goal:=Range("K194"), ChangingCell:=Range("F194")
Range("J195").Select
Range("J195").GoalSeek Goal:=Range("K195"), ChangingCell:=Range("F195")
Range("J196").Select
Range("J196").GoalSeek Goal:=Range("K196"), ChangingCell:=Range("F196")
Range("J197").Select
Range("J197").GoalSeek Goal:=Range("K197"), ChangingCell:=Range("F197")
Range("J198").Select
Range("J198").GoalSeek Goal:=Range("K198"), ChangingCell:=Range("F198")
Range("J199").Select
Range("J199").GoalSeek Goal:=Range("K199"), ChangingCell:=Range("F199")
Range("J200").Select
Range("J200").GoalSeek Goal:=Range("K200"), ChangingCell:=Range("F200")
Range("A7").Select
End Sub
----
Merci
Franck
Je viens de créer une macro sous excel /VBA.
Je n'y connais pas grand chose mais j'étais content de moi car ça marchait.
Le but était de faire s'exécuter "outils /valeur cible" sur plusieurs cellules en automatique en lui faisant prendre des valeurs cibles différentes alors que normalement on est obligé de lui un nombre (on ne peux pas selectionner une cellule de la page).
Bref ça marche mais cependant dès que je veux protéger la feuille ça ne marche plus ça me met ' erreur d'exécution 1004"...l'un d'entre vous sait-il pourquoi?
voici la macro :
Sub rachatsbruts()
'
' rachatsbruts Macro
' Macro enregistrée le 31/07/2007 par Franck Azzala
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("J9").Select
Range("J9").GoalSeek Goal:=Range("K9"), ChangingCell:=Range("F9")
Range("J10").Select
Range("J10").GoalSeek Goal:=Range("K10"), ChangingCell:=Range("F10")
Range("J11").Select
Range("J11").GoalSeek Goal:=Range("K11"), ChangingCell:=Range("F11")
Range("J12").Select
Range("J12").GoalSeek Goal:=Range("K12"), ChangingCell:=Range("F12")
Range("J13").Select
Range("J13").GoalSeek Goal:=Range("K13"), ChangingCell:=Range("F13")
Range("J14").Select
Range("J14").GoalSeek Goal:=Range("K14"), ChangingCell:=Range("F14")
Range("J15").Select
Range("J15").GoalSeek Goal:=Range("K15"), ChangingCell:=Range("F15")
Range("J16").Select
Range("J16").GoalSeek Goal:=Range("K16"), ChangingCell:=Range("F16")
Range("J17").Select
Range("J17").GoalSeek Goal:=Range("K17"), ChangingCell:=Range("F17")
Range("J18").Select
Range("J18").GoalSeek Goal:=Range("K18"), ChangingCell:=Range("F18")
Range("J19").Select
Range("J19").GoalSeek Goal:=Range("K19"), ChangingCell:=Range("F19")
Range("J20").Select
Range("J20").GoalSeek Goal:=Range("K20"), ChangingCell:=Range("F20")
Range("J21").Select
Range("J21").GoalSeek Goal:=Range("K21"), ChangingCell:=Range("F21")
Range("J22").Select
Range("J22").GoalSeek Goal:=Range("K22"), ChangingCell:=Range("F22")
Range("J23").Select
Range("J23").GoalSeek Goal:=Range("K23"), ChangingCell:=Range("F23")
Range("J24").Select
Range("J24").GoalSeek Goal:=Range("K24"), ChangingCell:=Range("F24")
Range("J25").Select
Range("J25").GoalSeek Goal:=Range("K25"), ChangingCell:=Range("F25")
Range("J26").Select
Range("J26").GoalSeek Goal:=Range("K26"), ChangingCell:=Range("F26")
Range("J27").Select
Range("J27").GoalSeek Goal:=Range("K27"), ChangingCell:=Range("F27")
Range("J28").Select
Range("J28").GoalSeek Goal:=Range("K28"), ChangingCell:=Range("F28")
Range("J29").Select
Range("J29").GoalSeek Goal:=Range("K29"), ChangingCell:=Range("F29")
Range("J30").Select
Range("J30").GoalSeek Goal:=Range("K30"), ChangingCell:=Range("F30")
Range("J31").Select
Range("J31").GoalSeek Goal:=Range("K31"), ChangingCell:=Range("F31")
Range("J32").Select
Range("J32").GoalSeek Goal:=Range("K32"), ChangingCell:=Range("F32")
Range("J33").Select
Range("J33").GoalSeek Goal:=Range("K33"), ChangingCell:=Range("F33")
Range("J34").Select
Range("J34").GoalSeek Goal:=Range("K34"), ChangingCell:=Range("F34")
Range("J35").Select
Range("J35").GoalSeek Goal:=Range("K35"), ChangingCell:=Range("F35")
Range("J36").Select
Range("J36").GoalSeek Goal:=Range("K36"), ChangingCell:=Range("F36")
Range("J37").Select
Range("J37").GoalSeek Goal:=Range("K37"), ChangingCell:=Range("F37")
Range("J38").Select
Range("J38").GoalSeek Goal:=Range("K38"), ChangingCell:=Range("F38")
Range("J39").Select
Range("J39").GoalSeek Goal:=Range("K39"), ChangingCell:=Range("F39")
Range("J40").Select
Range("J40").GoalSeek Goal:=Range("K40"), ChangingCell:=Range("F40")
Range("J41").Select
Range("J41").GoalSeek Goal:=Range("K41"), ChangingCell:=Range("F41")
Range("J42").Select
Range("J42").GoalSeek Goal:=Range("K42"), ChangingCell:=Range("F42")
Range("J43").Select
Range("J43").GoalSeek Goal:=Range("K43"), ChangingCell:=Range("F43")
Range("J44").Select
Range("J44").GoalSeek Goal:=Range("K44"), ChangingCell:=Range("F44")
Range("J45").Select
Range("J45").GoalSeek Goal:=Range("K45"), ChangingCell:=Range("F45")
Range("J46").Select
Range("J46").GoalSeek Goal:=Range("K46"), ChangingCell:=Range("F46")
Range("J47").Select
Range("J47").GoalSeek Goal:=Range("K47"), ChangingCell:=Range("F47")
Range("J48").Select
Range("J48").GoalSeek Goal:=Range("K48"), ChangingCell:=Range("F48")
Range("J49").Select
Range("J49").GoalSeek Goal:=Range("K49"), ChangingCell:=Range("F49")
Range("J50").Select
Range("J50").GoalSeek Goal:=Range("K50"), ChangingCell:=Range("F50")
Range("J51").Select
Range("J51").GoalSeek Goal:=Range("K51"), ChangingCell:=Range("F51")
Range("J52").Select
Range("J52").GoalSeek Goal:=Range("K52"), ChangingCell:=Range("F52")
Range("J53").Select
Range("J53").GoalSeek Goal:=Range("K53"), ChangingCell:=Range("F53")
Range("J54").Select
Range("J54").GoalSeek Goal:=Range("K54"), ChangingCell:=Range("F54")
Range("J55").Select
Range("J55").GoalSeek Goal:=Range("K55"), ChangingCell:=Range("F55")
Range("J56").Select
Range("J56").GoalSeek Goal:=Range("K56"), ChangingCell:=Range("F56")
Range("J57").Select
Range("J57").GoalSeek Goal:=Range("K57"), ChangingCell:=Range("F57")
Range("J58").Select
Range("J58").GoalSeek Goal:=Range("K58"), ChangingCell:=Range("F58")
Range("J59").Select
Range("J59").GoalSeek Goal:=Range("K59"), ChangingCell:=Range("F59")
Range("J60").Select
Range("J60").GoalSeek Goal:=Range("K60"), ChangingCell:=Range("F60")
Range("J61").Select
Range("J61").GoalSeek Goal:=Range("K61"), ChangingCell:=Range("F61")
Range("J62").Select
Range("J62").GoalSeek Goal:=Range("K62"), ChangingCell:=Range("F62")
Range("J63").Select
Range("J63").GoalSeek Goal:=Range("K63"), ChangingCell:=Range("F63")
Range("J64").Select
Range("J64").GoalSeek Goal:=Range("K64"), ChangingCell:=Range("F64")
Range("J65").Select
Range("J65").GoalSeek Goal:=Range("K65"), ChangingCell:=Range("F65")
Range("J66").Select
Range("J66").GoalSeek Goal:=Range("K66"), ChangingCell:=Range("F66")
Range("J67").Select
Range("J67").GoalSeek Goal:=Range("K67"), ChangingCell:=Range("F67")
Range("J68").Select
Range("J68").GoalSeek Goal:=Range("K68"), ChangingCell:=Range("F68")
Range("J69").Select
Range("J69").GoalSeek Goal:=Range("K69"), ChangingCell:=Range("F69")
Range("J70").Select
Range("J70").GoalSeek Goal:=Range("K70"), ChangingCell:=Range("F70")
Range("J71").Select
Range("J71").GoalSeek Goal:=Range("K71"), ChangingCell:=Range("F71")
Range("J72").Select
Range("J72").GoalSeek Goal:=Range("K72"), ChangingCell:=Range("F72")
Range("J73").Select
Range("J73").GoalSeek Goal:=Range("K73"), ChangingCell:=Range("F73")
Range("J74").Select
Range("J74").GoalSeek Goal:=Range("K74"), ChangingCell:=Range("F74")
Range("J75").Select
Range("J75").GoalSeek Goal:=Range("K75"), ChangingCell:=Range("F75")
Range("J76").Select
Range("J76").GoalSeek Goal:=Range("K76"), ChangingCell:=Range("F76")
Range("J77").Select
Range("J77").GoalSeek Goal:=Range("K77"), ChangingCell:=Range("F77")
Range("J78").Select
Range("J78").GoalSeek Goal:=Range("K78"), ChangingCell:=Range("F78")
Range("J79").Select
Range("J79").GoalSeek Goal:=Range("K79"), ChangingCell:=Range("F79")
Range("J80").Select
Range("J80").GoalSeek Goal:=Range("K80"), ChangingCell:=Range("F80")
Range("J81").Select
Range("J81").GoalSeek Goal:=Range("K81"), ChangingCell:=Range("F81")
Range("J82").Select
Range("J82").GoalSeek Goal:=Range("K82"), ChangingCell:=Range("F82")
Range("J83").Select
Range("J83").GoalSeek Goal:=Range("K83"), ChangingCell:=Range("F83")
Range("J84").Select
Range("J84").GoalSeek Goal:=Range("K84"), ChangingCell:=Range("F84")
Range("J85").Select
Range("J85").GoalSeek Goal:=Range("K85"), ChangingCell:=Range("F85")
Range("J86").Select
Range("J86").GoalSeek Goal:=Range("K86"), ChangingCell:=Range("F86")
Range("J87").Select
Range("J87").GoalSeek Goal:=Range("K87"), ChangingCell:=Range("F87")
Range("J88").Select
Range("J88").GoalSeek Goal:=Range("K88"), ChangingCell:=Range("F88")
Range("J89").Select
Range("J89").GoalSeek Goal:=Range("K89"), ChangingCell:=Range("F89")
Range("J90").Select
Range("J90").GoalSeek Goal:=Range("K90"), ChangingCell:=Range("F90")
Range("J91").Select
Range("J91").GoalSeek Goal:=Range("K91"), ChangingCell:=Range("F91")
Range("J92").Select
Range("J92").GoalSeek Goal:=Range("K92"), ChangingCell:=Range("F92")
Range("J93").Select
Range("J93").GoalSeek Goal:=Range("K93"), ChangingCell:=Range("F93")
Range("J94").Select
Range("J94").GoalSeek Goal:=Range("K94"), ChangingCell:=Range("F94")
Range("J95").Select
Range("J95").GoalSeek Goal:=Range("K95"), ChangingCell:=Range("F95")
Range("J96").Select
Range("J96").GoalSeek Goal:=Range("K96"), ChangingCell:=Range("F96")
Range("J97").Select
Range("J97").GoalSeek Goal:=Range("K97"), ChangingCell:=Range("F97")
Range("J98").Select
Range("J98").GoalSeek Goal:=Range("K98"), ChangingCell:=Range("F98")
Range("J99").Select
Range("J99").GoalSeek Goal:=Range("K99"), ChangingCell:=Range("F99")
Range("J100").Select
Range("J100").GoalSeek Goal:=Range("K100"), ChangingCell:=Range("F100")
Range("J101").Select
Range("J101").GoalSeek Goal:=Range("K101"), ChangingCell:=Range("F101")
Range("J102").Select
Range("J102").GoalSeek Goal:=Range("K102"), ChangingCell:=Range("F102")
Range("J103").Select
Range("J103").GoalSeek Goal:=Range("K103"), ChangingCell:=Range("F103")
Range("J104").Select
Range("J104").GoalSeek Goal:=Range("K104"), ChangingCell:=Range("F104")
Range("J105").Select
Range("J106").Select
Range("J106").GoalSeek Goal:=Range("K106"), ChangingCell:=Range("F106")
Range("J107").Select
Range("J107").GoalSeek Goal:=Range("K107"), ChangingCell:=Range("F107")
Range("J108").Select
Range("J108").GoalSeek Goal:=Range("K108"), ChangingCell:=Range("F108")
Range("J109").Select
Range("J109").GoalSeek Goal:=Range("K109"), ChangingCell:=Range("F109")
Range("J110").Select
Range("J110").GoalSeek Goal:=Range("K110"), ChangingCell:=Range("F110")
Range("J111").Select
Range("J111").GoalSeek Goal:=Range("K111"), ChangingCell:=Range("F111")
Range("J112").Select
Range("J112").GoalSeek Goal:=Range("K112"), ChangingCell:=Range("F112")
Range("J113").Select
Range("J113").GoalSeek Goal:=Range("K113"), ChangingCell:=Range("F113")
Range("J114").Select
Range("J114").GoalSeek Goal:=Range("K114"), ChangingCell:=Range("F114")
Range("J115").Select
Range("J115").GoalSeek Goal:=Range("K115"), ChangingCell:=Range("F115")
Range("J116").Select
Range("J116").GoalSeek Goal:=Range("K116"), ChangingCell:=Range("F116")
Range("J117").Select
Range("J117").GoalSeek Goal:=Range("K117"), ChangingCell:=Range("F117")
Range("J118").Select
Range("J118").GoalSeek Goal:=Range("K118"), ChangingCell:=Range("F118")
Range("J119").Select
Range("J119").GoalSeek Goal:=Range("K119"), ChangingCell:=Range("F119")
Range("J120").Select
Range("J120").GoalSeek Goal:=Range("K120"), ChangingCell:=Range("F120")
Range("J121").Select
Range("J121").GoalSeek Goal:=Range("K121"), ChangingCell:=Range("F121")
Range("J122").Select
Range("J122").GoalSeek Goal:=Range("K122"), ChangingCell:=Range("F122")
Range("J123").Select
Range("J123").GoalSeek Goal:=Range("K123"), ChangingCell:=Range("F123")
Range("J124").Select
Range("J124").GoalSeek Goal:=Range("K124"), ChangingCell:=Range("F124")
Range("J125").Select
Range("J125").GoalSeek Goal:=Range("K125"), ChangingCell:=Range("F125")
Range("J126").Select
Range("J126").GoalSeek Goal:=Range("K126"), ChangingCell:=Range("F126")
Range("J127").Select
Range("J127").GoalSeek Goal:=Range("K127"), ChangingCell:=Range("F127")
Range("J128").Select
Range("J128").GoalSeek Goal:=Range("K128"), ChangingCell:=Range("F128")
Range("J129").Select
Range("J129").GoalSeek Goal:=Range("K129"), ChangingCell:=Range("F129")
Range("J130").Select
Range("J130").GoalSeek Goal:=Range("K130"), ChangingCell:=Range("F130")
Range("J131").Select
Range("J131").GoalSeek Goal:=Range("K131"), ChangingCell:=Range("F131")
Range("J132").Select
Range("J132").GoalSeek Goal:=Range("K132"), ChangingCell:=Range("F132")
Range("J133").Select
Range("J133").GoalSeek Goal:=Range("K133"), ChangingCell:=Range("F133")
Range("J134").Select
Range("J134").GoalSeek Goal:=Range("K134"), ChangingCell:=Range("F134")
Range("J135").Select
Range("J135").GoalSeek Goal:=Range("K135"), ChangingCell:=Range("F135")
Range("J136").Select
Range("J136").GoalSeek Goal:=Range("K136"), ChangingCell:=Range("F136")
Range("J137").Select
Range("J137").GoalSeek Goal:=Range("K137"), ChangingCell:=Range("F137")
Range("J138").Select
Range("J138").GoalSeek Goal:=Range("K138"), ChangingCell:=Range("F138")
Range("J139").Select
Range("J139").GoalSeek Goal:=Range("K139"), ChangingCell:=Range("F139")
Range("J140").Select
Range("J140").GoalSeek Goal:=Range("K140"), ChangingCell:=Range("F140")
Range("J141").Select
Range("J141").GoalSeek Goal:=Range("K141"), ChangingCell:=Range("F141")
Range("J142").Select
Range("J142").GoalSeek Goal:=Range("K142"), ChangingCell:=Range("F142")
Range("J143").Select
Range("J143").GoalSeek Goal:=Range("K143"), ChangingCell:=Range("F143")
Range("J144").Select
Range("J144").GoalSeek Goal:=Range("K144"), ChangingCell:=Range("F144")
Range("J145").Select
Range("J145").GoalSeek Goal:=Range("K145"), ChangingCell:=Range("F145")
Range("J146").Select
Range("J146").GoalSeek Goal:=Range("K146"), ChangingCell:=Range("F146")
Range("J147").Select
Range("J147").GoalSeek Goal:=Range("K147"), ChangingCell:=Range("F147")
Range("J148").Select
Range("J148").GoalSeek Goal:=Range("K148"), ChangingCell:=Range("F148")
Range("J149").Select
Range("J149").GoalSeek Goal:=Range("K149"), ChangingCell:=Range("F149")
Range("J150").Select
Range("J150").GoalSeek Goal:=Range("K150"), ChangingCell:=Range("F150")
Range("J151").Select
Range("J151").GoalSeek Goal:=Range("K151"), ChangingCell:=Range("F151")
Range("J152").Select
Range("J152").GoalSeek Goal:=Range("K152"), ChangingCell:=Range("F152")
Range("J153").Select
Range("J153").GoalSeek Goal:=Range("K153"), ChangingCell:=Range("F153")
Range("J154").Select
Range("J154").GoalSeek Goal:=Range("K154"), ChangingCell:=Range("F154")
Range("J155").Select
Range("J155").GoalSeek Goal:=Range("K155"), ChangingCell:=Range("F155")
Range("J156").Select
Range("J156").GoalSeek Goal:=Range("K156"), ChangingCell:=Range("F156")
Range("J157").Select
Range("J157").GoalSeek Goal:=Range("K157"), ChangingCell:=Range("F157")
Range("J158").Select
Range("J158").GoalSeek Goal:=Range("K158"), ChangingCell:=Range("F158")
Range("J159").Select
Range("J159").GoalSeek Goal:=Range("K159"), ChangingCell:=Range("F159")
Range("J160").Select
Range("J160").GoalSeek Goal:=Range("K160"), ChangingCell:=Range("F160")
Range("J161").Select
Range("J161").GoalSeek Goal:=Range("K161"), ChangingCell:=Range("F161")
Range("J162").Select
Range("J162").GoalSeek Goal:=Range("K162"), ChangingCell:=Range("F162")
Range("J163").Select
Range("J163").GoalSeek Goal:=Range("K163"), ChangingCell:=Range("F163")
Range("J164").Select
Range("J164").GoalSeek Goal:=Range("K164"), ChangingCell:=Range("F164")
Range("J165").Select
Range("J165").GoalSeek Goal:=Range("K165"), ChangingCell:=Range("F165")
Range("J166").Select
Range("J166").GoalSeek Goal:=Range("K166"), ChangingCell:=Range("F166")
Range("J167").Select
Range("J167").GoalSeek Goal:=Range("K167"), ChangingCell:=Range("F167")
Range("J168").Select
Range("J168").GoalSeek Goal:=Range("K168"), ChangingCell:=Range("F168")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J170").Select
Range("J170").GoalSeek Goal:=Range("K170"), ChangingCell:=Range("F170")
Range("J171").Select
Range("J171").GoalSeek Goal:=Range("K171"), ChangingCell:=Range("F171")
Range("J172").Select
Range("J172").GoalSeek Goal:=Range("K172"), ChangingCell:=Range("F172")
Range("J173").Select
Range("J173").GoalSeek Goal:=Range("K173"), ChangingCell:=Range("F173")
Range("J174").Select
Range("J174").GoalSeek Goal:=Range("K174"), ChangingCell:=Range("F174")
Range("J175").Select
Range("J175").GoalSeek Goal:=Range("K175"), ChangingCell:=Range("F175")
Range("J176").Select
Range("J176").GoalSeek Goal:=Range("K176"), ChangingCell:=Range("F176")
Range("J177").Select
Range("J177").GoalSeek Goal:=Range("K177"), ChangingCell:=Range("F177")
Range("J178").Select
Range("J178").GoalSeek Goal:=Range("K178"), ChangingCell:=Range("F178")
Range("J179").Select
Range("J179").GoalSeek Goal:=Range("K179"), ChangingCell:=Range("F179")
Range("J180").Select
Range("J180").GoalSeek Goal:=Range("K180"), ChangingCell:=Range("F180")
Range("J181").Select
Range("J181").GoalSeek Goal:=Range("K181"), ChangingCell:=Range("F181")
Range("J182").Select
Range("J182").GoalSeek Goal:=Range("K182"), ChangingCell:=Range("F182")
Range("J183").Select
Range("J183").GoalSeek Goal:=Range("K183"), ChangingCell:=Range("F183")
Range("J184").Select
Range("J184").GoalSeek Goal:=Range("K184"), ChangingCell:=Range("F184")
Range("J185").Select
Range("J185").GoalSeek Goal:=Range("K185"), ChangingCell:=Range("F185")
Range("J186").Select
Range("J186").GoalSeek Goal:=Range("K186"), ChangingCell:=Range("F186")
Range("J187").Select
Range("J187").GoalSeek Goal:=Range("K187"), ChangingCell:=Range("F187")
Range("J188").Select
Range("J188").GoalSeek Goal:=Range("K188"), ChangingCell:=Range("F188")
Range("J189").Select
Range("J189").GoalSeek Goal:=Range("K189"), ChangingCell:=Range("F189")
Range("J190").Select
Range("J190").GoalSeek Goal:=Range("K190"), ChangingCell:=Range("F190")
Range("J191").Select
Range("J191").GoalSeek Goal:=Range("K191"), ChangingCell:=Range("F191")
Range("J192").Select
Range("J192").GoalSeek Goal:=Range("K192"), ChangingCell:=Range("F192")
Range("J193").Select
Range("J193").GoalSeek Goal:=Range("K193"), ChangingCell:=Range("F193")
Range("J194").Select
Range("J194").GoalSeek Goal:=Range("K194"), ChangingCell:=Range("F194")
Range("J195").Select
Range("J195").GoalSeek Goal:=Range("K195"), ChangingCell:=Range("F195")
Range("J196").Select
Range("J196").GoalSeek Goal:=Range("K196"), ChangingCell:=Range("F196")
Range("J197").Select
Range("J197").GoalSeek Goal:=Range("K197"), ChangingCell:=Range("F197")
Range("J198").Select
Range("J198").GoalSeek Goal:=Range("K198"), ChangingCell:=Range("F198")
Range("J199").Select
Range("J199").GoalSeek Goal:=Range("K199"), ChangingCell:=Range("F199")
Range("J200").Select
Range("J200").GoalSeek Goal:=Range("K200"), ChangingCell:=Range("F200")
Range("A7").Select
End Sub
----
Merci
Franck
Autres pages sur : probleme macro excel erreur execution 1004
Lassé par la pub ? Créez un compte
![[:pingouino]](http://m.bestofmedia.com/sfp/design/usr/fr/smilies/9e/8c/pingouino.gif "[:pingouino]")
Lassé par la pub ? Créez un compte
- Contenus similaires :
- ForumErreur d'execution 1004 macro excel
- ForumExecution 1004 macro excel
- ForumExcel erreur macro
- ForumExcel erreur 1004
- ForumMacro excel 2007 erreur d'execution 1004
- ForumErreur macro excel solver
- ForumVba excel erreur execution 1004
- ForumErreur d'exã cution 1004 excel macro
- ForumMacro excel message erreur
- ForumGraphique avec macro sous excel
- Voir plus
