Double chrono dans un usf | ||
---|---|---|
Inscription: 25/10/2011
Messages:
12
Système d'exploitation: PC Version Excel utilisée: 2003, 2007, 2010 |
Posté le : 09-11-2012 12h04
Bonjour le Forum, |
|
|
Re: Double chrono dans un usf | ||
---|---|---|
Inscription: 09/05/2007
De Courcelles-les-Montbéliard
Messages:
286
Système d'exploitation: PC & Mac Version Excel utilisée: Mac 2004 - 2011, et PC 2003 - 2010 |
Posté le : 10-11-2012 09h38
Bonjour Fabrice, Didier, le forum
Mes connaissances en VBA sont plutôt faible, j'espère que je ne vais pas trop dire de bêtises. Un premier point, tu utilises un bouton qui va avoir plusieurs actions différentes en fonction de l'étape ou tu te trouves, je pense personnellement que cela complique les choses, il vaut mieux avoir plusieurs boutons que l'on affiche ou que l'on masque ou que l'on rend provisoirement actif ou inactif. J'ai donc créer 2 boutons "Stop", et 2 boutons "Reset" supplémentaires aux mêmes emplacements que les boutons Start. Ensuite supprimé un module de gestion d'affichage du Timer, pour n'en avoir qu'un seul. Modifier des déclarations de variables au niveau du module Timer 'Déclaration des variables, variable utilisable pour la globalité du projet Sub StartTimer() C'est dans le code du Userform1 qu'il y a le plus de modifications. Rajout dans l'initialisation du Userform de l'affichage des boutons Private Sub UserForm_Initialize() Rajout des codes Reset des 2 chronos Private Sub Reset1_Click() Private Sub Stop1_Click() Private Sub Go1_Click() On ne relance pas la procédure StartTimer de gestion des Timers si celle-ci l'est déjà. Modification du code de RAZ du timer, la RAZ est réduite à sa plus simple expression Private Sub Lap1_Click() Modification de la procédure de fermeture du Userform Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Et pour finir la modification de fermeture du fichier Private Sub Workbook_BeforeClose(Cancel As Boolean) ' Voilà pour ce qui est des modifications de tes codes. @+Jean-Marie
Edité par JeanMarie le 10/11/2012 20:56:29
|
|
|
Re: Double chrono dans un usf | ||
---|---|---|
Inscription: 25/10/2011
Messages:
12
Système d'exploitation: PC Version Excel utilisée: 2003, 2007, 2010 |
Posté le : 10-11-2012 10h50
Bonjour Jean-Marie, Didier, Le Forum,
Merci pour ta contribution Jean-Marie, pour quelqu'un qui ne maitrise pas trop le VBA tu t'en es plutôt bien sortie. Je me rends compte en lisant tes explications et la logique de ta programmation quand voulant me simplifier la vie, avec notamment la gestion de 2 modules totalement indépendant l'un de l'autre, que je me suis finalement tiré une balle dans le pied tout seul. Pareil pour la gestion des boutons, à la base je voulais limiter le nombre de bouton pour l'interface utilisateur, mais au final j'avais des conditions dans tout les sens en fonction de l'étape. Alors que ta solution de gérer plusieurs boutons superposés et de simplement les rendre visible ou non est tellement plus simple. Pour preuve il suffit de comparer le nombre de ligne de code entre ta version et la mienne! Le fichier corrigé par tes soins répond parfaitement à mes attentes, le sujet est donc pour moi résolu je ferme le topic. Merci encore. A+ Fabrice |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes