séparer procédure trop longue

[milago]

Bonjour à tous,

J'ai consulté les anciens post sur comment séparer une procédure trop longue, mais apparemment je dois ne pas comprendre, parce que ça ne marche pas.

Alors voilà, j'ai une procédure que je veux séparer. La façon dont elle est montée est la suivante:

Private sub

Machine 1
produit 1
produit 2
etc...

Machine 2
produit 1
produit 2
etc...

Etc..

End sub

J'ai joint mon fichier (allégé), pas besoin de le faire marcher (je sais, y'a quelques bugs), mais juste de me montrer comment séparer la procédure.

Merci.

 

[smotty]

Re : séparer procédure trop longue

Bonjour,

Tu reprends plusieurs fois le même programme pour chaque condition.

Dans ce cas, le plus simple est de créer une procédure qui reprends le code répétitif et de faire appel à cette procédure avec des variables.

ça clarifiera le code et donc ça sera plus facile à débuguer le cas échéant.

Si souci à ce sujet n'hésite pas à poser des questions.

A+

smotty

 

[milago]

Re : séparer procédure trop longue

Donc si j'ai bien compris:

1) je crée une procédure pour chaque machine

sub machine 1
produit 1
produit 2
etc...
End sub

sub machine 2
produit 1
produit 2
etc...
End sub


2) je crée la procédure générale, et j'appelle chacune des procédures

Private sub

déclaration des variables communes

Call sub machine1

Call sub machine 2

End sub

Est-ce que c'est ça ? Est-ce que je dois mettre les sub machine dans un module?

 

[Compte Supprimé 979]

Re : séparer procédure trop longue

Salut Milago,

Non, tu as mal compris 😛

Une seule procédure
sub machine(X as Integer)
For NbProd = produitX to ProduitY
etc...
Next
End sub

Que tu appelles avec X comme variable 😉

A+

 

[smotty]

Re : séparer procédure trop longue

Bonjour à tous!!

Je m'ennuyais dans le train ce matin alors j'ai maché le travail.

Je n'ai rien testé mais à priori ça devrait être ça.

Ce code est à étudier afin de l'adapter si nécessaire (et de ne plus faire ce type de développement illisible😀)

Voir également les with/end with...

Quand ont créée une procédure il faut voir les éléments variables qui doivent être envoyés à cette procédure et les éléments qui peuvent être automatisés.

Voir fichier joint.

A+