Userform non modal

Version imprimable

14/04/2015, 22h32
Bergay

Userform non modal

Bonjour,
Je suis bloqué sur un problème de VBA sur Excel (Excel 2007). Impossible de trouver sur le net la solution, à croire que personne n'a jamais eu ce problème ! Le sujet c'est l'utilisation d'une boite de dialogue non modale.
J'ai fait un programme qui marche bien mais qui est un peu long (1 à 2 minutes). Aussi je voudrais "habiller" le déroulement du programme en indiquant dans une boite de dialogue qui restera ouverte durant out le temps du programme, les principales étapes sont :
a) Le programme démarre et charge une certaine variable (XXX).
b) Une boite de dialogue s'ouvre avec un message disant "Bonjour, bla bla bla XXX" (où XXX est la variable qu'il vient de charger).
c) Le programme continue à se dérouler sans que l'on ait besoin de cliquer sur la boite de dialogue.
d) La boite de dialogue, toujours affichée à l'écran, affiche régulièrement des messages du type : "Je suis en train de traiter la ligne AAA" (où AAA est une variable issue du programme).
e) Le programme arrive à son terme. La boite de dialogue (toujours ouverte) affiche un message du type "J'ai fini de traiter les données, le résultat est BBB, CCC, DDD" (où BBB, CCC et DDD sont des variables captées dans le programme).
f) à ce moment là, l'utilisateur clique sur un bouton de la boite de dialogue "fermer" qui vient d'apparaître et tout s'arrête !
Trois semaines que je cherche la solution !
14/04/2015, 22h58
Invité

Bonsoir.
Regardes ça:http://www.developpez.net/forums/d14...o/#post7957823
15/04/2015, 09h39
Bergay

et pour revenir à la Userform ?

Merci Rdurupt pour cette magnifique barre de défilement qui fonctionne très bien ! Bravo !
J'avais toutefois déjà trouvé cette solution et ton post.
Cela règle une partie du problème (à savoir le "patientez ...") mais cela ne fournit pas la possibilité de mettre des messages personnalisés et encore moins celle de faire apparaître dans ces messages la valeurs de variables issues du programme en cours d'exécution.
Y a-t-il donc une solution à travers l'utilisation des userform ?

Bonjour,

j'apporte ma maigre contribution à cette superbe proposition de rdurupt

j'ai téléchargé son classeur démo
j'ai remplacé le texte "Veuillez patienter :" par un label

et j'ai mis un affichage dynamique des étapes, en modifiant le caption du label à chaque étape de sa boucle de démonstration :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Sub BarreVal(Nb As Long, Sur As Long) Dim v As Long v = (Me.BarreEnv.Width * ((1 / Sur)) * Nb) - 2 If v < 1 Then v = 1 Me.Barre.Width = v Me.Label2.Caption = "Etape" & v & " sur " & Sur DoEvents Me.Show End Sub Private Sub UserForm_Initialize() Me.Barre.Width = 1 Me.Label2.Caption = "Initialisation" End Sub
A toi maintenant d'adapter cet affichage dynamique en fonction de tes souhaits

15/04/2015, 09h54
Invité

Bonjour,
Merveilleux joe,mais tu pouvais passer le caption en paramètre du Public Sub BarreVal!

Tu as entièrement raison, ceci assouplira grandement sa gestion des affichages, dans la mesure où ton code n'étant qu'une boucle à traitement unitaire ... ma solution fonctionne mais risque d'être peu pratique à transposer pour des procédures à traitements différents !

J'opte pour un argument Optionel, ce qui permet de conserver le caption précédent si le traitement suivant ne nécessite pas de mise à jour
Code dans le Userform
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub BarreVal(Nb As Long, Sur As Long, Optional AfficheEtape As String) Dim v As Long v = (Me.BarreEnv.Width * ((1 / Sur)) * Nb) - 2 If v < 1 Then v = 1 Me.Barre.Width = v If AfficheEtape <> "" Then Me.Label2.Caption = AfficheEtape End If DoEvents Me.Show End Sub Private Sub UserForm_Initialize() Me.Barre.Width = 1 End Sub
Et le code du module, avec un exemple trivial qui n'est pas un traitement uniforme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub test() Dim i As Long Dim Inter As Long For i = 0 To 9999 BarreDefilement.BarreVal i, 50000, "Fait une boucle de 0 à 9999" Next i Inter = 9999 For i = 0 To 19999 'ici si je met pas de valeur pour mon caption, il restera à la valeur précédente BarreDefilement.BarreVal i + Inter, 50000 Next i Inter = Inter + 19999 For i = 0 To 19999 BarreDefilement.BarreVal i + Inter, 50000, "Fait une troisième boucle de 0 à 19999" Next i Unload BarreDefilement MsgBox "Terminé!" End Sub
c'est vraiment pour la démonstration ... ça reste à adapter.
la partie qui gère les affichages de caption et la mise à jour de la barre peut également être optimisé, là c'est un peu bourrin

15/04/2015, 10h39
Invité

géniale joe, ça rend le UsF réutilisable dans d'autres projet! :P
26/04/2015, 14h40
Bergay

1 pièce(s) jointe(s)

Et une soluton en utilisant les Userform
Merci Rdurupt et Joe pour ces adaptation très élégantes.

J'ai poursuivi toutefois mes recherches et ai mis au point une solution qui fait appel aux boites de dialogue (Userform = USF).
Ma solution n'est pas très compacte mais fonctionne très bien.
Comme je n'ai rien trouvé de tel sur Internet, je détaille ci-dessous mon utilisation des Userform. Le fichier exemple est joint.Pièce jointe 176067

Création de l'USF
On crée l'USF dans VBA en cliquant bouton droit sur "feuilles", Insertion, Userform. Il crée un USF vide. On glisse dans cet USF une zone de test et un bouton de commande à partir de la boite à outils de l'USF.
En double cliquant soit sur l'USF, soit sur l'un de ses éléments, on entre dans la programmation interne de l'USF. Tout ce qui sera programmé ici ne sera exécuté que quand l'USF est appelé à l'écran et que l'on cliquera sur l'un ou l'autre de ses boutons.

Lancement de votre programme
Deux possibilités : soit le programme se lance avant l'ouverture de l'USF, soit c'est l'USF qui lance le programme.

a) Le programme se lance avant l'ouverture de l'USF
L'avantage de cela c'est que vous pouvez avoir donné, via le programme des valeurs à certaines variables, valeurs que vous pourrez faire apparaître dans l'USF.
L'ouverture de l'USF avec la commande XXX.show (où XXX est le nom de l'USF) bloque le programme. Pour que le programme continue il faudra alors fermer l'USF.
En programmant, dans le code du bouton de commande de l'USF, la fermeture de l'USF, celle-ci se ferme quand vous cliquez sur le bouton :
Code:

1 2 3 Private Sub ok_Click() Unload XXX '(XXX = nom de l'USF) End Sub
Le programme se poursuit alors.
Pour sortir de l'USF sans lancer le programme ("Voulez-vous lancer le programme ?" réponse "non"), j'ai appliqué l'astuce suivante : en cliquant sur le bouton "non", cela donne la valeur "A" à une variable (variable string obligatoirement) ; et, en sortant de l'USF, le programme teste ladite variable. S'il trouve la valeur "A", il renvoie alors à une étiquette située à la fin du programme.

b) C'est l'USF qui lance le programme
L'USF peut lancer le programme. Dans ce cas, dans le code de l'USF vous écrivez :
Code:

1 2 3 4 5 Private Sub UserForm_Activate() Me.Frame1.Caption = "Bonjour" DoEvents Call ZZZ '(où ZZZ est le nom de la procédure) End Sub
Dans ce cas, l'USF reste à l'écran et le programme se poursuit tout de même. Je n'ai pas bien perçu l'intérêt du DoEvents car ça semble fonctionner aussi sans le DoEvents.
À la fin du programme on ferme l'USF (Unload XXX)

Faire apparaître des messages dans l'USF
Lorsque l'USF s'ouvre, le message qui apparaît dans la zone de texte est celui qui est initialement programmé dans l'USF : Aller dans les propriétés de la zone de texte (TextBox1) et inscrire le message dans le champ "value".
Ensuite, toutefois, on peut faire changer le message :

a) Le message change suite à un clic sur un bouton
Dans le code interne du bouton, inscrire :

Code:

Me.TextBox1.Value = "AAA" '(où AAA est votre message)

b) Le message est fourni par le programme en cours de déroulement
Pour que des messages s'affichent dans l'USF, il faut que l'USF reste ouverte tandis que le programme se déroule. Si vous avez lancé le programme depuis l'USF, l'USF reste à l'écran. Si vous lancer l'USF depuis le programme, vous devez alors introduire le paramètre "False" pour que l'USF reste à l'écran tandis que le programme se poursuit :

Code:

XXX.show false

Ensuite, pour faire apparaître des messages, inscrire, dans votre programme le code suivant :
Code:

1 2 XXX.TextBox1.Value = "AAA" + ValeurStr DoEvents
Où XXX est le nom de l'USF, AAA est le texte de votre message et ValeurStr est le nom d'une variable string qui vous permet d'afficher des valeurs que vous avez captées dans votre programme (par exemple, un indicateur d'avancement).
DoEvents : je ne sais pas trop son rôle, mais ça ne fonctionne pas sans cela !

Ouvrir plusieurs USF successivement
Pour mon programme, j'ai ouvert successivement 3 USF :
- La première pour avoir le choix : soit de lancer le programme, soit d'arrêter tout. Le programme attend la réponse de l'utilisateur avant de se poursuivre.

Code:

XXX.show

- La seconde pour inscrire les messages indicateurs de l'avancement du programme. Le programme ouvre l'USF et continue sa progression.

Code:

XXX.show false

- La troisième pour inscrire un message final de compte-rendu et permettre à l'utilisateur de lire tranquillement le message et de fermer ensuite l'USF. Le programme attend la réaction de l'utilisateur.

Code:

XXX.show

Voilà pour les explications de B.A.BA. Y a peut-être plus simple comme programmation, mais ça fonctionne en tous cas comme cela.