problème macro excel erreur d'exécution 1004

  • Auteur de la discussion franckaz
  • Date de début

franckaz

Nouveau membre
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

 

KangOl

Grand Maître
et ca te viendrais pas a l'idée de faire une boucle ? [:pingouino]
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 055
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut