Erreur '438'

[Keran]

Bonjour voila j'ai remarquer quelque bug dans mon fichier le hic c'est que pour corriger ce bug sur un fichier c'est disont "rapide" mais je doit reproduire cette operation une vingtaine de fois , j'ai enregistrer mes formules dans le gestonnaire de nom et du coup sa devients tres charger (oui je sais j'ai pas choisi au plus simple au premiers a bord)

donc je me suis dit que je pourrais creer une maccro certe longue mais plus rapide et surtout plus sur de pas ce tromper .

Sub Macro5()
'
' Macro5 Macro
Sub Macro5()
'
' Macro5 Macro
'

'
  ActiveWorkbook.Worksheets("BAout").Names("durée10").RefersToA1 = _
  "=SUM(IFERROR(IF(AND(HAout!$AF$7=31,OR(IFERROR(VLOOKUP(HAout!$AF$2,DimFe,1,FALSE),0),VLOOKUP(HAout!$AF$2,moindimfe,1,FALSE))),SUM(IF(IFERROR(RIGHT(HAout!$AF9,5),0)>""00:00"",""00:00"",IFERROR(RIGHT(HAout!$AF9,5),0)),IF(IFERROR(RIGHT(HAout!$AF9,5),0)<""09:00"",IFERROR(RIGHT(HAout!$AF9,5),0),""00:00""),IF(IFERROR(RIGHT(HAout!$AF9,5),0)<""07:00"",IFERROR(RIGHT(HAout!$AF9" & _
  """07:00"")-IF(IFERROR(RIGHT(HAout!$AF9,5),0)<""07:00"",""07:00"",IFERROR(RIGHT(HAout!$AF9,5),0))),""00:00""),0), IFERROR(IF(AND(HAout!$AF$7<>31,HAout!$AE$7=30,_xlfn.ISFORMULA(HAout!$AE9),OR(IFERROR(VLOOKUP(HAout!$AE$2,DimFe,1,FALSE),0),VLOOKUP(HAout!$AE$2,moindimfe,1,FALSE))),SUM(IF(IFERROR(RIGHT(HAout!$AE9,5),0)>""00:00"",""00:00"",IFERROR(RIGHT(HAout!$AE9,5),0)),I" & _
  "(RIGHT(HAout!$AE9,5),0)<""09:00"",IFERROR(RIGHT(HAout!$AE9,5),0),""00:00""),IF(IFERROR(RIGHT(HAout!$AE9,5),0)<""07:00"",IFERROR(RIGHT(HAout!$AE9,5),0),""7:00"")-IF(IFERROR(RIGHT(HAout!$AE9,5),0)<""07:00"",""7:00"",IFERROR(RIGHT(HAout!$AE9,5),0))),""00:00""),0))"
  ActiveWorkbook.Worksheets("BAout").Names("Dimnuit4").RefersToA1 = _
  "=IF(AND(OR(AND(LEFT(HAout!$S9,5)>""06:59"",RIGHT(HAout!$S9,5)>""21:00""),AND(LEFT(HAout!$S9,5)>""19:00"",RIGHT(HAout!$S9,5)<""8:00"")),ISNUMBER(1*LEFT(HAout!$S9,1)),OR(ISNUMBER(VLOOKUP(HAout!$S$2,DimFe,1,FALSE)),ISNUMBER(VLOOKUP(HAout!$S$2,moindimfe,1,FALSE)))),TEXT(HAout!$S$2,""jj/mm/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$T9,5)>""06:59"",RIGHT(HAou" & _
  ")>""21:00""),AND(LEFT(HAout!$T9,5)>""19:00"",RIGHT(HAout!$T9,5)<""8:00"")),ISNUMBER(1*LEFT(HAout!$T9,1)),OR(ISNUMBER(VLOOKUP(HAout!$T$2,DimFe,1,FALSE)),AND(LEFT(HAout!$T9,5)>""19:00"",RIGHT(HAout!$T9,5)<""8:00""),ISNUMBER(VLOOKUP(HAout!$T$2,moindimfe,1,FALSE)))),TEXT(HAout!$T$2,""jj/mm/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$U9,5)>""06:59"",RIGHT(HAo" & _
  ")>""21:00""),AND(LEFT(HAout!$U9,5)>""19:00"",RIGHT(HAout!$U9,5)<""8:00"")),ISNUMBER(1*LEFT(HAout!$U9,1)),OR(ISNUMBER(VLOOKUP(HAout!$U$2,DimFe,1,FALSE)),AND(LEFT(HAout!$U9,5)>""19:00"",RIGHT(HAout!$U9,5)<""8:00""),ISNUMBER(VLOOKUP(HAout!$U$2,moindimfe,1,FALSE)))),TEXT(HAout!$U$2,""jj/mm/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$V9,5)>""06:59"",RIGHT(HAo" & _
  ")>""21:00""),AND(LEFT(HAout!$V9,5)>""19:00"",RIGHT(HAout!$V9,5)<""8:00"")),ISNUMBER(1*LEFT(HAout!$V9,1)),OR(ISNUMBER(VLOOKUP(HAout!$V$2,DimFe,1,FALSE)),AND(LEFT(HAout!$V9,5)>""19:00"",RIGHT(HAout!$V9,5)<""8:00""),ISNUMBER(VLOOKUP(HAout!$V$2,moindimfe,1,FALSE)))),TEXT(HAout!$V$2,""jj/mm/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$W9,5)>""06:59"",RIGHT(HAo" & _
  ")>""21:00""),AND(LEFT(HAout!$W9,5)>""19:00"",RIGHT(HAout!$W9,5)<""8:00"")),ISNUMBER(1*LEFT(HAout!$W9,1)),OR(ISNUMBER(VLOOKUP(HAout!$W$2,DimFe,1,FALSE)),AND(LEFT(HAout!$W9,5)>""19:00"",RIGHT(HAout!$W9,5)<""8:00""),ISNUMBER(VLOOKUP(HAout!$W$2,moindimfe,1,FALSE)))),TEXT(HAout!$W$2,""jj/mm/aa"")&"" - "","""")"
  ActiveWorkbook.Worksheets("BAout").Names("Dimnuit6").RefersToA1 = _
  "=IF(AND(OR(AND(LEFT(HAout!$AC9,5)>""06:59"",RIGHT(HAout!$AC9,5)>""21:00""),AND(LEFT(HAout!$AC9,5)>""19:00"",RIGHT(HAout!$AC9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AC9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AC$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AC$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AC$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AD9,5)>""06:59"",RIGHT(" & _
  "30,5)>""21:00""),AND(LEFT(HAout!$AD9,5)>""19:00"",RIGHT(HAout!$AD9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AD9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AD$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AD$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AD$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HAout!$AE9,5)>""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00""," & _
  "ut!$AE9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HAout!$AF9,5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AF9,1" & _
  "ADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AF$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HAout!$AE9,5)>""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00"",RIGHT(HAout!$AE9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUA" & _
  "(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HAout!$AF9,5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AF9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!R" & _
  "/MM/aa"")&"" - "","""")"
  ActiveWorkbook.Worksheets("BAout").Names("Dimnuit6").RefersToA1 = _
  "=IF(AND(OR(AND(LEFT(HAout!$AC9,5)>""06:59"",RIGHT(HAout!$AC9,5)>""21:00""),AND(LEFT(HAout!$AC9,5)>""19:00"",RIGHT(HAout!$AC9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AC9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AC$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AC$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AC$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AD9,5)>""06:59"",RIGHT(" & _
  "30,5)>""21:00""),AND(LEFT(HAout!$AD9,5)>""19:00"",RIGHT(HAout!$AD9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AD9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AD$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AD$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AD$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HAout!$AE9,5)>""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00""," & _
  "ut!$AE9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HAout!$AF9,5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AF9,1" & _
  "ADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AF$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HAout!$AE9,5)>""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00"",RIGHT(HAout!$AE9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUA" & _
  "(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HAout!$AF9,5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AF9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!R" & _
  "/MM/aa"")&"" - "","""")"
  ActiveWorkbook.Worksheets("BAout").Names("Dimnuit6").RefersToA1 = _
  "=IF(AND(OR(AND(LEFT(HAout!$AC9,5)>""06:59"",RIGHT(HAout!$AC9,5)>""21:00""),AND(LEFT(HAout!$AC9,5)>""19:00"",RIGHT(HAout!$AC9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AC9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AC$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AC$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AC$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HFevri" & _
  "5)>""06:59"",RIGHT(HAout!$AD9,5)>""21:00""),AND(LEFT(HAout!$AD9,5)>""19:00"",RIGHT(HAout!$AD9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AD9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AD$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AD$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AD$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HFevrie" & _
  ">""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00"",RIGHT(HAout!$AE9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HFevr" & _
  "5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEFT(HAout!$AF9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AF$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AE9,5)>""06:59"",RIGHT(HAout!$AE9,5)>""21:00""),AND(LEFT(HAout!$AE9,5)>""19:00"",RIGHT(HFevrie" & _
  "<""8:00"")),ESTADUAC(1*LEFT(HAout!$AE9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AE$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AE$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AE$2,""jj/MM/aa"")&"" - "","""") &IF(AND(OR(AND(LEFT(HAout!$AF9,5)>""06:59"",RIGHT(HAout!$AF9,5)>""21:00""),AND(LEFT(HAout!$AF9,5)>""19:00"",RIGHT(HAout!$AF9,5)<""8:00"")),ESTADUAC(1*LEF" & _
  "r!$AF9,1)),OR(ESTADUAC(VLOOKUP(HAout!$AF$2,Dimfe,1,FALSE)),ESTADUAC(VLOOKUP(HAout!$AF$2,Moindimfe,1,FALSE)))),TEXT(HAout!$AF$2,""jj/MM/aa"")&"" - "","""")"
  ActiveWorkbook.Worksheets("BAout").Names("Dimnuit").RefersToA1 = _
  "=IFERROR(BAout!nuitmoismoindim&""""&BAout!Dimnuit1&""""&BAout!Dimnuit2&""""&BAout!Dimnuit3&""""&BAout!Dimnuit4&""""&BAout!Dimnuit5&""""&BAout!Dimnuit6,"""")"

end Sub

 

[Staple1600]

Re

@Keran
Etait-ce utile d'ouvrir un second fil?
On pouvait rester dans le premier, non ?
(Vu que c'est le même fichier)

Fichier que tu devrais supprimer au plus vite vu qu'il contient des données confidentielles!

 

[Keran]

c'etait pour pas vous embeter de nouveau mais oui je peu je dell celui la alors

Enfin si j'i arrive xD

 

[Staple1600]

Re

Relire mon précédent message
L’embêtant c'est plus ton fichier.
(Surtout pour toi, si ton employeur s'aperçoit que tu as l'inconscience de diffuser ce fichier sur un forum public!)

 

[Keran]

j'ai relu oui la fatigue n'aidant pas j'ai supprimer a l'instant ^^" merci


Edit :
voila le fichier en plus confidentiel

et la macro en complet ^^'

 

[Staple1600]

Re

@Keran
Tu dois être très, très fatigué alors parce que le fichier est toujours sur le forum
Mais dans ton premier fil: Erreur 1037

 

[Keran]

la je suis pas fatiguer juste completement paumer mais ça c'est de nature je file sur l'autre serais t'il possible qu'un moderateur supprime ce fil ,s'il vous plais