énorme problème macro s'arrete car trop de ressource utilisés

P

pasquetp

XLDnaute Occasionnel
bonjour,

je viens de cogner en plein sur un problème très embettant:

avec ma macro ci dessous, j'ai réussi a avoir l'erreur: Excel ne peut pas terminer cette tâche avec les ressources disponibles ...

c'est la catastrophe

je n'avais jamais rencontré ce problème car la base de données ne depassait jamais 65000 lignes et là j'ai une base de donnée de + de 100 000 lignes

resultat ce message arrive

je sais pas comment faire pour régler ce problème

quelqu'un arait il une idee?

Merci a tous



Sub lancement()

Dim CEL As Range


Application.ScreenUpdating = False

Sheets("error-report").Activate
Range("a5").Select
Selection.AutoFilter


Range("f5") = "results"
Range("g5") = "location"
Range("h5") = "incorrect information"
Range("i5") = "la valeur sur amazon"
Range("j5") = "doublon"

Range("e6:e" & Range("e300000").End(xlUp).Row).Select

For Each CEL In Selection
CEL.Value = Replace(CEL.Value, """", "")
CEL.Value = Replace(CEL.Value, "[", "")
CEL.Value = Replace(CEL.Value, "]", "")
Next




'---------------------------------------------
Range("h6").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-6]="""","""",IF(RC[-2]=""a ignorer"","""",INDEX(data!R3:R1048576,MATCH(RC[-6],data!R3C1:R1048576C1,0),IFNA(MATCH(RC[-1],data!R2,0),MATCH(RC[-1],data!R3,0)))))"
If Range("a7") <> "" Then
Range("h6").AutoFill Range("h6:h" & Range("a300000").End(xlUp).Row)
Else
End If

'---------------------------------------------

Range("j6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]=""Error"",IF(RC[-4]="""",1,""""),"""")"

If Range("a7") <> "" Then
Range("j6").AutoFill Range("j6:j" & Range("a300000").End(xlUp).Row)
End If




Range("K6").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(COUNTIF(R6C[-9]:RC2,RC2)=1,RC[-7]=""Error""),1,0)"
If Range("a7") <> "" Then
Range("k6").AutoFill Range("k6:k" & Range("a300000").End(xlUp).Row)
End If












'---------------------------------------------

Range("d6:d" & Range("d300000").End(xlUp).Row).Select


For Each CEL In Selection
CEL.Value = Replace(CEL.Value, "Erreur", "Error")

Next








'--------------------------------------------STATS



Sheets("stats").Activate
Sheets("stats").Range("e33").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]=""(blank)"","""",IF(RC[-1]=""(vide)"","""",IF(RC[-1]=""Total Général"","""",IF(R1C[32]=""Francais"",VLOOKUP(RC[-1],list_of_errors!R3C:R4998C[1],2,0),IF(R1C[32]=""english"",VLOOKUP(RC[-1],list_of_errors!R3C[2]:R4998C[3],2,0),IF(R1C[32]=""italia"",VLOOKUP(RC[-1],list_of_errors!R3C[4]:R4998C[5],2,0),"""")))))))"
Range("e33").Select
Selection.AutoFill Destination:=Range("e33:e150")

Sheets("stats").Activate

Range("K8").Select
ActiveCell.FormulaR1C1 = "=SUM('error-report'!R[-2]C:R[1048568]C)"


Range("L8").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTA(data!R[-4]C[-11]:R[1048568]C[-11])=0,""unknown"",COUNTA(data!R[-4]C[-11]:R[1048568]C[-11]))"


Range("AW6").Select
ActiveCell.FormulaR1C1 = "=stats!R[2]C[-36]"
Range("AW7").Select
ActiveCell.FormulaR1C1 = "=((R[-2]C-R[-3]C)/5)+R[-3]C"
Range("AW8").Select
ActiveCell.FormulaR1C1 = "=((R[-3]C-R[-4]C)*2/5)+R[-4]C"
Range("AW9").Select
ActiveCell.FormulaR1C1 = "=((R[-4]C-R[-5]C)*3/5) + R[-5]C"
Range("AW10").Select
ActiveCell.FormulaR1C1 = "=((R[-5]C-R[-6]C)*4/5) + R[-6]C"
Range("AX4").Select
ActiveCell.FormulaR1C1 = "0"
Range("AX5").Select
ActiveCell.FormulaR1C1 = "180"
Range("AX6").Select
ActiveCell.FormulaR1C1 = "=((RC[-1]-R[-2]C[-1])/(R[-1]C[-1]-R[-2]C[-1]))*180"
Range("AZ4").Select
ActiveCell.FormulaR1C1 = "=50-(50*COS(RADIANS(R[2]C[-2])))"
Range("AZ5").Select
ActiveCell.FormulaR1C1 = "=50-(2*COS(RADIANS(R[1]C[-2]+90)))"
Range("AZ6").Select
ActiveCell.FormulaR1C1 = "=50-(2*COS(RADIANS(RC[-2]-90)))"
Range("AZ7").Select
ActiveCell.FormulaR1C1 = "=R[-3]C"
Range("AZ8").Select
ActiveCell.FormulaR1C1 = "50"
Range("BA4").Select
ActiveCell.FormulaR1C1 = "=50*SIN(RADIANS(R[2]C[-3]))"
Range("BA5").Select
ActiveCell.FormulaR1C1 = "=2*SIN(RADIANS(R[1]C[-3]+90))"
Range("BA6").Select
ActiveCell.FormulaR1C1 = "=2*SIN(RADIANS(RC[-3]-90))"
Range("BA7").Select
ActiveCell.FormulaR1C1 = "=R[-3]C"
Range("BA8").Select
ActiveCell.FormulaR1C1 = "0"
Range("BA9").Select







Sheets("error-report").Select


Application.ScreenUpdating = True


MENU.Show
End Sub
 
Trier par date Trier par votes
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : énorme problème macro s'arrete car trop de ressource utilisés

Bonjour pasquetp,

Pour augmenter les chances de réponses, il serait sympathique de joindre un fichier.

  • non pas un fichier complet mais un "petit" fichier extrait de votre fichier de travail en ne conservant que quelques lignes par feuille (on se débrouillera pour dupliquer les données)
  • fichier expurgé de toutes données nominatives et confidentielles
  • avec une feuille montrant le résultat souhaité et avec les explications qui vont bien
 
Vote positif 0 Vote négatif
Modeste geedee

Modeste geedee

XLDnaute Barbatruc
Re : énorme problème macro s'arrete car trop de ressource utilisés

Bonsour®
et puis surtout éviter l'utilisation systématique à : Select
exemples au hasard :
Range("e33").Select
Selection.AutoFill Destination:=Range("e33:e150")
Cliquez pour agrandir...

Range("AW6").Select
ActiveCell.FormulaR1C1 = "=stats!R[2]C[-36]"
Cliquez pour agrandir...
peuvent etre simplifiés en :
Range("e33").AutoFill Destination:=Range("e33:e150")
Cliquez pour agrandir...

Range("AW6").FormulaR1C1 = "=stats!R[2]C[-36]"
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
P

pasquetp

XLDnaute Occasionnel
Re : énorme problème macro s'arrete car trop de ressource utilisés

bonjour,

merci de votre réponse

en effet un fichier vous aidera à bien cerner le problème

j'ai du reduire le fichier pour que le fichier passe

sur un nombre de 60 ,000 lignes ca a marché mais avec 100,000 ca a planté

j'espère que cela vous aidera

encore merci a vous tous
 

Pièces jointes

  • Classeur1.xlsx
    973.8 KB · Affichages: 36
  • Classeur1.xlsx
    973.8 KB · Affichages: 36
  • Classeur1.xlsx
    973.8 KB · Affichages: 36
Vote positif 0 Vote négatif
P

pasquetp

XLDnaute Occasionnel
Re : énorme problème macro s'arrete car trop de ressource utilisés

J'ai effectué tous les changements: voici le code:

Sub lancement()



Application.ScreenUpdating = False

Sheets("error-report").Activate
Range("a5").Select
Selection.AutoFilter


Range("f5") = "results"
Range("g5") = "location"
Range("h5") = "incorrect information"
Range("i5") = "la valeur sur amazon"
Range("j5") = "doublon"

Range("e6:e" & Range("e300000").End(xlUp).Row).Select
Selection.Replace What:="""", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Selection.Replace What:="[", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Selection.Replace What:="]", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

'---------------------------------------------

Range("h6").FormulaR1C1 = _
"=IF(RC[-6]="""","""",IF(RC[-2]=""a ignorer"","""",INDEX(data!R3:R1048576,MATCH(RC[-6],data!R3C1:R1048576C1,0),IFNA(MATCH(RC[-1],data!R2,0),MATCH(RC[-1],data!R3,0)))))"
If Range("a7") <> "" Then
Range("h6").AutoFill Range("h6:h" & Range("a300000").End(xlUp).Row)
Else
End If

'---------------------------------------------


Range("j6").FormulaR1C1 = "=IF(RC[-6]=""Error"",IF(RC[-4]="""",1,""""),"""")"

If Range("a7") <> "" Then
Range("j6").AutoFill Range("j6:j" & Range("a300000").End(xlUp).Row)
End If





Range("K6").FormulaR1C1 = _
"=IF(AND(COUNTIF(R6C[-9]:RC2,RC2)=1,RC[-7]=""Error""),1,0)"
If Range("a7") <> "" Then
Range("k6").AutoFill Range("k6:k" & Range("a300000").End(xlUp).Row)
End If












'---------------------------------------------

Range("d6:d" & Range("d300000").End(xlUp).Row).Select

Selection.Replace What:="Erreur", Replacement:="Error", lookat:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False






'--------------------------------------------STATS



Sheets("stats").Activate

Range("e33").FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]=""(blank)"","""",IF(RC[-1]=""(vide)"","""",IF(RC[-1]=""Total Général"","""",IF(R1C[32]=""Francais"",VLOOKUP(RC[-1],list_of_errors!R3C:R4998C[1],2,0),IF(R1C[32]=""english"",VLOOKUP(RC[-1],list_of_errors!R3C[2]:R4998C[3],2,0),IF(R1C[32]=""italia"",VLOOKUP(RC[-1],list_of_errors!R3C[4]:R4998C[5],2,0),"""")))))))"

Range("e33").AutoFill Destination:=Range("e33:e150")
Range("K8").FormulaR1C1 = "=SUM('error-report'!R[-2]C:R[1048568]C)"



Range("L8").FormulaR1C1 = _
"=IF(COUNTA(data!R[-4]C[-11]:R[1048568]C[-11])=0,""unknown"",COUNTA(data!R[-4]C[-11]:R[1048568]C[-11]))"


Range("AW6").FormulaR1C1 = "=stats!R[2]C[-36]"
Range("AW7").FormulaR1C1 = "=((R[-2]C-R[-3]C)/5)+R[-3]C"
Range("AW8").FormulaR1C1 = "=((R[-3]C-R[-4]C)*2/5)+R[-4]C"
Range("AW9").FormulaR1C1 = "=((R[-4]C-R[-5]C)*3/5) + R[-5]C"
Range("AW10").FormulaR1C1 = "=((R[-5]C-R[-6]C)*4/5) + R[-6]C"
Range("AX4").FormulaR1C1 = "0"
Range("AX5").FormulaR1C1 = "180"
Range("AX6").FormulaR1C1 = "=((RC[-1]-R[-2]C[-1])/(R[-1]C[-1]-R[-2]C[-1]))*180"
Range("AZ4").FormulaR1C1 = "=50-(50*COS(RADIANS(R[2]C[-2])))"
Range("AZ5").FormulaR1C1 = "=50-(2*COS(RADIANS(R[1]C[-2]+90)))"
Range("AZ6").FormulaR1C1 = "=50-(2*COS(RADIANS(RC[-2]-90)))"
Range("AZ7").FormulaR1C1 = "=R[-3]C"
Range("AZ8").FormulaR1C1 = "50"
Range("BA4").FormulaR1C1 = "=50*SIN(RADIANS(R[2]C[-3]))"
Range("BA5").FormulaR1C1 = "=2*SIN(RADIANS(R[1]C[-3]+90))"
Range("BA6").FormulaR1C1 = "=2*SIN(RADIANS(RC[-3]-90))"
Range("BA7").FormulaR1C1 = "=R[-3]C"
Range("BA8").FormulaR1C1 = "0"








Sheets("error-report").Select


Application.ScreenUpdating = True


MENU.Show
End Sub

malgré cela, l'erreur persiste

je me demande s'il faudrait pas mettre le code en plusieurs macro

si vous avez une idée

Merci a tous
 
Vote positif 0 Vote négatif
P

pasquetp

XLDnaute Occasionnel
Re : énorme problème macro s'arrete car trop de ressource utilisés

bon j'ai une bonne nouvelle

j'ai réussi a eviter le problème : le code responsable est celui ci

Range("K6").FormulaR1C1 = _
"=IF(AND(COUNTIF(R6C[-9]:RC2,RC2)=1,RC[-7]=""Error""),1,0)"
If Range("a7") <> "" Then
Range("k6").AutoFill Range("k6:k" & Range("a300000").End(xlUp).Row)
End If

a mon avis cest le calcul simulatné pour chaque cellule qui fait que c demande trop de ressource au processeur

qu'en pensez vous?
 
Vote positif 0 Vote négatif
P

pasquetp

XLDnaute Occasionnel
Re : énorme problème macro s'arrete car trop de ressource utilisés

j'ai tenté une macro a part et le problème persiste: macro s'arrete car trop de ressource utilisés

Sub s()
Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Range("K6").FormulaR1C1 = _
"=IF(AND(COUNTIF(R6C[-9]:RC2,RC2)=1,RC[-7]=""Error""),1,0)"
If Range("a7") <> "" Then
Range("k6").AutoFill Range("k6:k" & Range("a300000").End(xlUp).Row)
End If


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

auriez vous une idée?
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne
Mr.Adrien
  • Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
493
Mr.Adrien
Mr.Adrien
L
  • Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
670
lesoldat9
L
PORCHER
  • Question
Microsoft 365 Erreur sur une Macro
Réponses
7
Affichages
389
PORCHER
PORCHER
S
  • Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
453
Staple1600
Staple1600
Dadi147
  • Résolu(e)
XL 2016 cellules A, b, C et D sont automatiquement vides
Réponses
3
Affichages
380
job75
job75
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
612
fanfan38
fanfan38
halecs93
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
554
halecs93
halecs93
F
  • Question
XL 2019 erreur 1004
Réponses
8
Affichages
236
florian50470
F
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
1 K
un internaute
U

Membres actuellement en ligne

12 membres et 218 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 355
Messages
2 087 550
Membres
103 588
dernier inscrit
Tom59300Tom