Discussion :

[philip31]

Salut,

Mon probleme est le suivant, je suis amené à modifier les mode d'execution d'une macro, en eliminant tous les clicks que l'utilisateur doit faire, desormais la macro doit s'effectuer d'un seul coup,

Le code est tres lourd, le stagier qui a programmé la macro l'as concus comme un labyrinthe, j'ai essayé de supprimer les useforme, mais après rien ne fonctionnait,

j'ai essayé les codes suivants en vain:

-En utilisant la fonction call:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Sheets("Achantier").Avec_chantier_Click

-En utilisant show et value:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Formulaire.Show
 Achantier.Value = True
 Comparaison.Value = True
 Graph.Value = True

Tout en vain, alors merci beaucoup pour celui qui m'aidera a repodre à la question:

Comment appeler les fonctions bidule_click() sans avoir à cliquer

Merci

[Krovax]

Bonjour,
Cela s'utilise comme n'importe quel autre macro

(sans utilisé call qui est déconseillé par un des tutos de ce site du fait de la synatxe particulière qu'il nécessite, c'est juste pour ne pas prendre de mauvaise habitude)
dans ton module tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bidule_click

Ou si tu aime taper du texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call bidule_click

Par contre si ta macro est déclaré en privée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub bidule_Click()

Elle ne peut, bien évidement, être appelé que depuis le module ou elle se trouve.

Ps : dès que tu donne un morceau de code utilise les balise code, il y a une démo sur le premier message du forum

[ucfoutu]

Bonjour,

Je ne comprends pas le mécanisme de ta pensée...

Si je comprends bien, tu veux que s'exécute(nt) sans cliquer dessus le(s) bloc(s) d'instructions contenus dans l'évènement click d'un/plusieurs contrôle(s) ...

Ben... mets donc ce(s) blocs d'instruction dans une procédure et exécute-la ! (nul besoin de passer par ce subterfuge de simulation d'un click devenu indésirable et donc inutile !)

Quelque chose m'échappe, là ...

[philip31]

Bonjour,

Pour acceder à toutes les procedures, j'ai déclaré toutes les procedures public.
"mets les d'instruction dans une procédure "
Je ne veux pas m'aventurer a modifier le code car c'est un vrai labyrinthe
Merci ucfoutou pour avoir fait la remarque, je vais essayer de bien expliquer les choses,
Un stagiaire a developpé une macro qui permet l'analyse des ordres de fabrications de l'entreprise, il ya deux types d'ordres de fabrication:
avec chantier et sans chantier
Au depart il ya une boite de dialogue "formulaire" qui s'affiche:
1. avec chantier
2. Sans chantier

supposons qu'on clique sur avec chantier, il ya une autre boite de dialogue qui s'affiche:
il faut cliquer une premiere fois
1.a. comparaison
il faut cliquer une deuxieme fois:
1.b. graphe

donc 3 clicks,
on refait la meme chosepour l'option:
2. sans chantier

Le shema d'execution est le suivant

formulaire---|
|-> Achantier|
| |-> Comparaison
| |-> Graph
|
|-> Schantier|
|-> Comparaison
|-> Graph

Ce qui fait 6 clicks, sachant que la macro est tres lente et demande une 1/2 heure pour s'executer, le but etant d'automatiser tous ces click, comme ca on pourrait lancer la macro le weekend et consulter les resultats lundi matin tout en buvant son café

Donc j'ai fait les lignes de codes suivantes:
Pour executer Avec chantier, pour schantier, ce sera pareil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Formulaire.Show
Achantier.Value = True
Comparaison.Value = True
Graph.Value = True

et la il m'affiche la boite de dialogue formulaire, ensuite je doit cliquer
Donc voila, comment automatiser tous ces cliques?
Merci pour votre aide

Philippe

[Krovax]

Une solution,
a la fin de l'initialisation de l'user form tu lance la première macro a la fin de celle ci tu lance la deuxième, etc.

Après si tu ne veux pas que cela soit automatisé a chaque fois tu peux créer une variable booléenne publique que tu initialise a vrai quand tu veux automatisé la procédure et tu la teste avant de lancer la macro suivante

En fait tu n'automatise pas le clique tu lance directement la macro suivante, ce qui est plus efficace

exemple a la fin de la macro UserForm_Activate tu peux mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if auto then
'tu rempli les champs avec les valeur que tu souhaite puis
Comparaison_click
end if

Avec en tête d'un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public auto As Boolean

A la fin de comparaison tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if auto then
'tu rempli les champs avec les valeur que tu souhaite puis
Graph_click
end if

etc.

[laetitia]

bonjour philip31 Krovax l' ami ucfoutu le forum
je pense qu'il faut travailler sur ton code 1/2 heure cela me parait trés long au lieu de chercher a simuler des click enfin c' est que je pense.