ProgressBar dans une Form pendant une macro?

A

Arnaud

Guest

• 17 Août 2004

• #2

salut,

essaye de mettre ton code dans l'évènement Activate de ton usf.
sinon ta ligne frm_ma_form.show tu l'a écrite ou ??? car la j'ai un peu de mal a voir le truc.......

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 17 Août 2004

• #3

Bonjour Matthieu, le Forum

Pour tes explications, oui tu peux mettre tes variables dans un Module Standard déclarées Public en Top de celui-ci, afin de pouvoir y accéder depuis ton UserForm.

Pour le reste, normalement il n'y a rien à mettre dans l'initialisation du UserForm en ce qui concerne la ProgressBar elle-même, mais tout ceci dépend de la structure des actions que ta procédure doit faire.

Je te propose une démo assez simple de ProgressBar :

=> Fichier Téléchargeable Lien supprimé

=> Fil de Discussion Lien supprimé

Ce qui est impératif dans tous les cas de figure, il te faut une boucle pour pouvoir incrémenter la progression.

Bon Appétit
@+Thierry

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 17 Août 2004

• #4

Bonjour

Tiens va voir ce fil avec plein de liens utiles

Lien supprimé

Pascal

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 17 Août 2004

• #5

Bonjour Arnaud, Pascal

Bientôt il y a avait un carrembolage sur XLD !! lol

Pour Arnaud, je pense que le plantage du UserForm avec un code bugué à l'initialise du UserForm met toujours en surligné la commande UserFormX.Show, même si évidemment ce n'est pas elle en cause. (Enfin j'ai compris comme ceci le problème de Matthieu)

Pour Pascal, oui merci aussi pour ce lien vers d'autres démos ProgressBar.

Bon Appétit
@+Thierry

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 17 Août 2004

• #6

Ok en fait c'est dans le Activate en effet qu'il faut mettre le code !!

Mon .show est dans mon module !! La ca marche, juste un petit problème graphique que je devrais regler avec un DoEvents

Merci de votre aide

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 17 Août 2004

• #7

Je reviens vers vous, comment désactiver la [X] fermé en haut a droite, je n'ai pas l'option clipcontrol dans les propriété de mon formulaire ?

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 17 Août 2004

• #8

Ok c'est bon, trop bien ce forum

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 17 Août 2004

• #9

Re Bonjour Matthieu, Pascal, Arnaud, le Forum

Tout simplement avec ce code dans le Private Module du UserForm lui-même :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub


Le CloseMode peut avoir ces valeurs (sorry je travaille en version américaine) :
The CloseMode argument returns the following values:
vbFormControlMenu 0 = The user has chosen the Close command from the Control menu on the UserForm.
vbFormCode 1 = The Unload statement is invoked from code.
vbAppWindows 2 = The current Windows operating environment session is ending.
vbAppTaskManager 3 = The Windows Task Manager is closing the application.


Bon Appétit
@+Thierry

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 17 Août 2004

• #10

Bonjour à tous
Voilà

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

Munchkin

 

Vote positif 0 Vote négatif