Discussion :

[brownthefou]

Bonjour à toutes et à tous,
actuellement en stage (en VBA) je viens vers vous pour vous poser une petite question qui pourra (je l'espère) vous sembler simple.

J'effectue à partir d'un algorithme un traitement de données qui sort sur Excel un tableau de paliers.
Je m'explique : A partir d'un tableau de mesures je repère certaines lignes qui me sont importantes et je les copier/colle dans un autre tableau sur une autre feuille.

Cependant, au final, j'ai trop de paliers donc torp de lignes. L'algorithme est mal codé me direz-vous. Et bien en fait non, l'algorithme fonctionne cependant, pour trouver toutes les valeurs importantes à intégrer dans ce tableau j'ai du prendre une marge d'erreur importante.

Au final, ce que je cherche à effectuer, c'est une fois le tableau créé, afficher un UserForm ou quelquechose d'autre (peu m'importe la méthode) qui permette à l'utilisateur de prendre la main, de supprimer les lignes inutiles et ensuite de cliquer sur un bouton ou sur une touche pour permettre au traitement automatique (ma macro) de reprendre la main et de finir de traiter ces données.

Désolé pour le baratin mais je souhaitais m'exprimer clairement pour qu'il n'y ai pas d'ambiguïté.

Si vous avez des questions n'hésitez pas !

Cordialement

[Jean-Philippe André]

Hello,

et en quoi peut-on te venir en aide ?

Quelle étape te pose problème actuellement ?

[brownthefou]

Mon problème actuel est que je ne sais pas comment dire à ma macro :

Si l'utilisateur clique sur telle touche tu lui laisses la main
Si l'utilisateur a fini et appuie sur telle touche tu reprends la main

Avec l'utilisateur libre de ses actions

[Jean-Philippe André]

tu peux faire par exemple une messagebox avec un Yes/No
S'il quitte sur Yes pour continuer manuellement, tu stoppes la macros, sinon tu continues

Code :

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

1
2
3
if Msgbox("texteici",vbyesno) =vbyes then
else
End if

[brownthefou]

D'accord, très bien, il y aurait moyen de la reprendre automatiquement après ?

[Jean-Philippe André]

En placant un bouton qui lancerait la macro par exemple

[brownthefou]

"Placer le bouton" ça je pense pouvoir le faire.
Mais "reprendre la macro": y-a des commandes spéciales pour faire ça ?

Par exemple (juste sous forme d'algorithme) :
Si l'utilisateur appuie sur "Prendre la main" on marque un point d'arrêt dans le code.
S'il appuie sur un autre bouton la macro se relance à partir du point d'arrêt

Je suis désolé si je pose des questions cons, je ne sais juste pas si c'est faisable !

[Jean-Philippe André]

En fait tu n'as pas de point d'arrêt nécessaire.
Un code du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub A()
'blablacommun
If MsgBox("voulez-vous reprendre la main?",vbyesno) = vbno then
B
end if
End Sub
 
Sub B()
'le reste de ton code
End Sub
 
Private Sub TonBouton_Click()
B
End Sub

[brownthefou]

D'accord, oui en fait c'est pas si compliqué faut séparer le code en deux comme un gros if.

Bien joué Jpcheck, encore une fois tu me sauves la mise

[brownthefou]

Bonjour à tous,
en fait je pense que j'ai cliqué trop rapidement sur le bouton "résolu".
Le problème qui se pose actuellement c'est que quand j'appelle mon commandbutton, il reste au plein milieu de l'écran et on ne peut le déselectionner.
Donc ça veut dire qu'on est OBLIGE de cliquer sur le bouton pour continuer le traitement, et on ne peut intervenir sur aucune feuille...

Si quelqu'un sait comment imposer le bouton de rester au second plan ...

[Jean-Philippe André]

Tu as un problème de conception dans ce cas là.

Si tu changes ton énoncé au fil de l'eau, on sera obligé de changer les solutions à apporter aussi.

A titre individuel, le fait de "laisser la main" à l'utilisateur, c'est la pire approche. Pars du principe qu'il FERA des bêtises.

Reste qu'au lieu d'une messagbox, il te faudra un formulaire en mode non modal si tu veux faire cela.

Par contre, je reste persuadé que tu pourrais d'y prendre autrement

[brownthefou]

Et bien je reste ouvert à toute proposition, n'hésite pas à me dire comment faire !!

Euh ... "modal" ??

Edit : Ok, je me suis renseigné pour essayer de rendre mon USF non-modal mais je n'y arrive pas.

Il m'est affiché une erreur indiquant qu'on ne peut pas afficher un USF non-modal dans une feuille qui elle, l'est. (modale)

[Jean-Philippe André]

Pour l'approche, je pencherai plus pour un découpage :
- ouverture du formulaire pour choix "automatique" ou "manuel"
> si manuel, fermeture du formulaire, l'utilisateur se débrouille seul
> si automatique, l'utilisateur n'a plus la main

Reste que pour ta gestion des lignes ou non, il faut voir si tu peux trouver un algorithme de suppression des lignes ou non.