optimisation d'un programme sous vba excel Fermé

Question

bonjour à tous, 

Je cherche à optimiser mon programme.
J'ai crée une 20 feuilles que je rend visible ou invisible à partir de boutons. Voici  un exemple de code sur un bouton.
Je voudrais faire une incrementation et des boucles sur le numero des feuilles pour simplifier mon programme.
Comment puis faire.

Merci de m'aider
------------------------------------------

Private Sub CommandButton1_Click()
Worksheets(2).Visible = True
Worksheets(1).Visible = False
etc....
Worksheets(20).Visible = False

'Activation d'une feuille
Worksheets(2).Activate
'recentrer sur la feuille
Worksheets(2).Range("a5").Select

End Sub

likum · Answer

Salut!

Pour optimiser ta fonction, tu peux utiliser une macro générale
que t'appellera avec un argument qui correspond au numéro de 
feuille et un pour le nombre de feuilles:
sub affichage( num, max)
  for cpt = 1 to max
     if cpt = num then
        Worksheets( cpt ).Visible = True
    else
       Worksheets(cpt).Visible = False
   end if

   next
end sub

En fait ce n'est pas vraiment optimiser, c'est plus tôt un code plus court

Optimisation d'un programme sous vba excel

1 réponse

Discussions similaires