Erreur '438'

Keran · 24 Mars 2018

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 .

VB:

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 · 24 Mars 2018

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 · 24 Mars 2018

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

Enfin si j'i arrive xD

Staple1600 · 24 Mars 2018

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 · 24 Mars 2018

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 · 24 Mars 2018

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 · 24 Mars 2018

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

Erreur '438'

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Discussions similaires

Erreur '438'

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Staple1600

XLDnaute Barbatruc

Keran

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency