HELP Compil error: procedure too large

Question

Bonjour,

Je suis en train de cr&#233;er un configurateur, mes macro sont assez longues.
 L&#224;  apr&#232;s avoir saisie mes derni&#232;res contraintes; voici ce que je viens d'avoir comme message: Compil error: Procedure too large

Y a t-il un moyen de contourner ce pb, je ne peux pas supprimer des morceaux de macro.
J'ai essay&#233; de faire plusieurs morceaux:
      Private Sub Worksheet_change(ByVal Target As range)
      et
      Private Sub Worksheet_change1(ByVal Target As range)
mais du coup mes contraintes ne marchent plus...

Si quelqu'un a une solution?

Merci d'avance
Nad&#232;ge

crenaud76 · Answer

Fait des sous-sub ..
Au lieu def aire toutes tes actions dans WorkShhet_Change()
Tu met dans worksheet_Change() des appels &#224; des sous-sub
Call SousSub1
call SousSub2
...
Et tu d&#233;places des bouts de code dans les SousSubn

Christophe R

cs_CanisLupus · Answer

Il me semble qu'en VBA Excel, une sub ne peut d&#233;passer 65535 octets. C'est d&#233;j&#224; pas mal pour une sub et &#231;a peut m&#234;me devenir illisible.
Seule solution, comme dit Christophe c'est de d&#233;couper ta macro en plusieurs sub ou function.

Loup Gris

nadejka · Answer

OK, merci

mais comment &#231;a marche les Call SousSub ?
Comment dois-je les int&#233;grer &#224; ma macro ?

Ma macro commence par:
Private Sub Worksheet_change(ByVal Target As range)
...........
 ...........
End Sub

Merci de votre aide
Nad&#232;ge

cs_CanisLupus · Answer

Disons que pour l'instant tu as UNE SEULE Sub qui fait tout donc qui contient plusieurs blocs d'instructions faisant chacun une action particuli&#232;re.

Tu peux parfaitement bien cr&#233;er, &#224; l'ext&#233;rieur de ta Sub une autre Sub du style 
Sub LeNomQueTuVeux()
dedans, tu mets le bloc d'instruction et &#224; la place de ce bloc dans ta Sub principale tu mets
call LeNomQueTuVeux
S'il y a des param&#232;tres tu codes
Sub LeNomQueTuVeux(param1 as TonType, etc...)
et
call LeNomQueTuVeux(param1, etc ...)

Pour &#234;tre plus clair, il faudrait un bout de ton code, pas la totale car l&#224; le forum risque d'&#234;tre submerg&#233;.

Loup Gris

nadejka · Answer

OK,
voici des bouts de mon programme
Le sub principal:
   Private Sub Worksheet_change(ByVal Target As range)
   'AS_ENC seul*********************************************
       'AA_ENC s&#233;lectionn&#233;           If (Target.Row 18) And (Target.Column 4) Then
               If Worksheets("Input").Cells(12, 4).Value >= 1 >= 1 Then
                   MsgBox "STOP, AA_ENC is already provided with AS_ENC!"
                   Worksheets("Input").Cells(18, 4).Value = ""
               End If
               If Worksheets("Input").Cells(12, 4).Value >= 1  And Worksheets("Input").Cells(18, 4).Value >= 1 Then
                   MsgBox "Recall, AA_ENC are only for SP_ENC or DP_ENC!"
               End If
           End If
   End Sub

Les sous sub qui doivent aller &#224; la fin du sub principal:
   Sub AUD_ENC(ByVal Target As range)
   'AUD_ENC 
   End Sub

   Sub ENCODING
   'Encoding
   'Decoding
   'FE
   End Sub

HELP Compil error: procedure too large

5 réponses

Discussions similaires