Procédure tres grande a compiler

[JoelleN]

bonjour,

J'ai une procédure sous VBA, à l'interieur de cette procédure j'efface des lignes et des bouttons mais j'ai trop de ligne de code. Quand je compile il m'affiche une erreur : Procédure tres grande.

Est ce qu'il ya des solutions pour mon problèmes!!!

 

[pierrejean]

Re : Procédure tres grande a compiler

bonjour JoelleN

Sans voir la procedure ,il sera bien difficile de te repondre !!!
Dans le fichier ,ce sera le mieux

 

[JoelleN]

Re : Procédure tres grande a compiler

Bonjour pierrejean,
je te donne mon code en .txt pace c'est trop grand. En effet je supprime des ligne et des bouttons d'un tableau, mais je les effaces une par une....
Je crois qu'il fo faire des boucles pr réduire mes lignes de code. Mais j'arrive pas.

Merci de m'aider

 

[ChTi160]

Re : Procédure tres grande a compiler

Salut JoelleN
Bonjour le fil (mon ami pierrejean)
Bonjour le Forum

un exemple pour le case 1

Dim It as byte
On error resume next
Select Case Nbposte
Case "1":
  with ActiveSheet
              .Rows("8:54").Delete 'on supprime les lignes de 8 à 54
     for It = 4 to 51     'ici on boucle sur les bouton     
            'supprimer les bouttons options
                .Shapes("CommandButton" & It ).Delete
     next
  End With
Case "2": 
'........
Etc
On error goto 0
End Select 
End Sub

arff Pas trop le temps
à toi de finir le Boulot Lol
Bonne journée

 

[JoelleN]

Re : Procédure tres grande a compiler

Bonjour Chit160,

Grand merci, ca marche trop bien 😀

 

[pierrejean]

Re : Procédure tres grande a compiler

Re

En supposant que j'aie bien compris

Teste:

Private Sub CommandButton17_Click()
Dim n As Integer
Dim Nbposte As String
Nbposte = Me.Cells(3, "D")
Select Case CInt(Nbposte)
Case 1 To 7
 z = CInt(Nbposte) + 3
Case 1 To 47
 x = CInt(Nbposte) + 7
End Select
For n = z To 51
    ActiveSheet.Shapes("CommandButton" & n).Delete
Next n
For n = 54 To x step-1
  Me.Rows(n).Delete
Next n
End Sub

En cas de problème n'hesite pas a revenir

Arf
Le Chti m'a précédé
Bravo mon ami 🙂
Ps: Je viens de regarder le code et je me permets de regretter le on error resume next