Procédure trop grande

MarJolaine · 11 Janvier 2008

Bonjour,

J'essaie d'effectuer une macro qui fonctionnais très bien au début mais lorsque j'ai eu terminé toute la macro, j'ai un message m'indiquant que ma procédure est trop grande.

Que faire dans ce cas la??

Merci,

-MarJ-

😕

jeanpierre · 11 Janvier 2008

Re : Procédure trop grande

Bonsoir Marjolaine,

Que dois-tu faire dans ce cas... ?

Joindre la macro ou bien mieux le fichier représentatif de ton souci... (sans données confidentielles, noms, adresses..) ZIPPE le fichier, moins lourd....

En attendant, bonne soirée.

Si tu ne sais pas zipper, tu demandes.

Jean-Pierre

Bernard34 · 11 Janvier 2008

Re : Procédure trop grande

Bonsoir et meilleurs voeux à tou!

J'ai eu ce problème récemment. La résolution est simple, il suffit de découper la procédure.

Dans ThisWorkbook,
Sub Principal()
Call Onglet_Procédure_Fichier1
Call Onglet_Procédure_Fichier2
Call Onglet_Procédure_Fichier3
End Sub

Puis pour chaque procédure découpée, débuter par un
Sub Onglet_Procédure_Fichier1()
'
' Onglet_Demandeurs_Fichier1 Macro
' Macro enregistrée le 10/10/2007 par Bernard Merda
'

'
se terminant par

Call Onglet_Procédure_Fichier2
End Sub

Etc.

Les appellations ne sont ici bien sûr qu'une illustration

Cordialement

Bernard
J'y ai gagné en clarté et en rapidité.

MarJolaine · 13 Janvier 2008

Re : Procédure trop grande

Bernard34 à dit:
Bonsoir et meilleurs voeux à tou!

J'ai eu ce problème récemment. La résolution est simple, il suffit de découper la procédure.

Dans ThisWorkbook,
Sub Principal()
Call Onglet_Procédure_Fichier1
Call Onglet_Procédure_Fichier2
Call Onglet_Procédure_Fichier3
End Sub

Puis pour chaque procédure découpée, débuter par un
Sub Onglet_Procédure_Fichier1()
'
' Onglet_Demandeurs_Fichier1 Macro
' Macro enregistrée le 10/10/2007 par Bernard Merda
'

'
se terminant par

Call Onglet_Procédure_Fichier2
End Sub

Etc.

Les appellations ne sont ici bien sûr qu'une illustration

Cordialement

Bernard
J'y ai gagné en clarté et en rapidité.

Merci Bernard, ça fonctionne 🙂

CHARRIER · 22 Mai 2019

Bernard34 à dit:
Re : Procédure trop grande

Bonsoir et meilleurs voeux à tou!

J'ai eu ce problème récemment. La résolution est simple, il suffit de découper la procédure.

Dans ThisWorkbook,
Sub Principal()
Call Onglet_Procédure_Fichier1
Call Onglet_Procédure_Fichier2
Call Onglet_Procédure_Fichier3
End Sub

Puis pour chaque procédure découpée, débuter par un
Sub Onglet_Procédure_Fichier1()
'
' Onglet_Demandeurs_Fichier1 Macro
' Macro enregistrée le 10/10/2007 par Bernard Merda
'

'
se terminant par

Call Onglet_Procédure_Fichier2
End Sub

Etc.

Les appellations ne sont ici bien sûr qu'une illustration

Cordialement

Bernard
J'y ai gagné en clarté et en rapidité.

bonjour Bernard34
je ne comprend pas comment mettre en oeuvre la procédure dans le fichier macro?
pourrais tu joindre un fichier exemple svp.
un grand merci.

job75 · 22 Mai 2019

Bonsoir,

CHARRIER à dit:
bonjour Bernard34
je ne comprend pas comment mettre en oeuvre la procédure dans le fichier macro?
pourrais tu joindre un fichier exemple svp.
un grand merci.

Depuis le 11 janvier 2008 il a dû se passer pas mal de choses chez nos intervenants...

A+

CHARRIER · 23 Mai 2019

Et oui ça date 2008 .... mais je voudrait comprendre cette procédure de séparation .
est-ce que quelqu’un peux m'expliquer avec un fichier exemple.
merci.

Dranreb · 23 Mai 2019

Bonjour.
Le plus souvent quand on a une procédure trop grande c'est parce qu'il y a d'interminables répétitions de séries d'instructions toutes identiques à quelque détails près. Alors on écrit une Sub qui fait le paquet, en lui transmettant, dans la procédure appelante, en paramètres ByVal uniquement ce qui change d'une fois sur l'autre, et de préférence dans des boucles For … Next si ça se peut.

CHARRIER · 23 Mai 2019

Bonjour Dranreb
je te prépare un fichier test pour faire part de mon problème si tu à le temps de regarder.
A+

Dranreb · 23 Mai 2019

Déclarez une variable Wsh As Worksheet et au lieu du Select Case Sheets("C2").Range("C26").Value faites Set Wsh = Worksheets("C2").Range("C26").Value)
Dans la suite remplacez dans le seul 1er paquet qui restera Sheets("C2.1.1") par Wsh.

CHARRIER · 23 Mai 2019

Modification faite sur C3 mais ça bug encore !
surement pas grand chose..!!! merci si tu peut regarder.
je modifie le fichier en respectant le RGPD.

mapomme · 23 Mai 2019

Bonjour @CHARRIER,

Votre fichier contient des noms de personnes, avec leur parcours scolaire et leur photo. Votre fichier ne respecte pas le RGPD.
Il faut sans tarder supprimer votre fichier du site. veuillez éditer vos messages et supprimer les fichiers non anonymisés.
Un fichier diffusé sur le net et de surcroit sur XLD doit d'être anonymisé (c'est à dire sans données personnelles et encore plus sans photo !!!).

CHARRIER · 23 Mai 2019

ok je vais supprimer

CHARRIER · 23 Mai 2019

Et revoila le fichier respectant le RGPD. J'espére !🙂

Dranreb · 23 Mai 2019

C'est de ma faute j'ai écrit trop vite, c'est Set Wsh = Worksheets(Worksheets("C2").Range("C26").Value)
Ou alors décomposez: NomFeuille = Worksheets("C2").Range("C26").Value: Set Wsh = Workseetsd(NomFeuille)

Procédure trop grande

MarJolaine

Guest

jeanpierre

Nous a quitté

Bernard34

XLDnaute Nouveau

MarJolaine

Guest

CHARRIER

XLDnaute Nouveau

job75

XLDnaute Barbatruc

CHARRIER

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

CHARRIER

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

CHARRIER

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

CHARRIER

XLDnaute Nouveau

CHARRIER

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires

Procédure trop grande

MarJolaine

Guest

Nous a quitté

XLDnaute Nouveau

MarJolaine

Guest

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency