Discussion :

[Floyd-44]

Bonjour,

J'ai un userform avec un label et rien d'autre. J'ai fait un petit compte à rebours avec ce label et j'ai la fameuse "erreur 91" à la fin après unload. Si quelqu'un peu m'aider je suis preneur. En avant première l'intégralité du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim I As Integer
  I = 9
  Do Until I = 0
    Me.Show
    Application.Wait Now + TimeValue("00:00:01")
    Me.Label1 = I
    Me.Repaint
    I = I - 1
  Loop
  Unload UsfXRebours
  UsfAccueil.Show
End Sub

ya rien d'autre que ça...
Merci d'avance

[unparia]

Bonjour
1) explique-nous d'abord ce que vient selon toi faire la méthode Show dans l'évènement initialize du userform (Me = l'userform objet de cet évènement).
2) quel est le nom de cet userform ?
3) qu'est l'userform UsfXRebours ? et si autre : est-il ouvert ? As-tu vérifié qu'il se nomme exactement ainsi ?
4) qu'est l'userform UsfAccueil ? As-tu vérifié qu'il se nomme exactement ainsi ?
5) quelle est la propriété showmodal de chacun de ces userforms ?

[Floyd-44]

Bonjour,
Merci pour ton retour, je vais essayer d'être clair dans les réponses

1) explique-nous d'abord ce que vient selon toi faire la méthode Show dans l'évènement initialize du userform (Me = l'userform objet de cet évènement).

Si je ne mets pas me.show, l'userform "UsfXRebours" ne s'affiche pas. Je ne comprends pas pourquoi d'ailleurs.

2) quel est le nom de cet userform ?

il s'appelle "UsfXRebours"

3) qu'est l'userform UsfXRebours ? et si autre : est-il ouvert ? As-tu vérifié qu'il se nomme exactement ainsi ?

C'est donc l'userform qui contient uniquement un "Label1" qui me sert à faire un compte à rebours. Son nom est bien celui la et mis à part cette erreur tout fonctionne bien

4) qu'est l'userform UsfAccueil ? As-tu vérifié qu'il se nomme exactement ainsi ?

L'userform "UsfAccueil" est un userform qui comporte des CommandButton qui lance chacun des formulaires de saisies différents. Pour info, UsfAccueil se lance comme il faut malgré le message d'erreur.

5) quelle est la propriété showmodal de chacun de ces userforms ?

Ils sont tous en "False"

Merci

[patricktoulon]

Bonjour
il y a la une maiconnaissance des evenements userform

initialyse:
le code dans cet evenement s'execute avant l'affichage a l'ecran du userform
autrement dit tu ne voit pas le compte a rebours
c'est dans le activate qu'il faut placer ton code

le me.show je sais pas trop ce qu'il vient faire la l'userform est deja affiché je l'ai supprimé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Activate()
    Dim I As Integer
    I = 9
    Do Until I = 0
        Application.Wait Now + TimeValue("00:00:01")
        Me.Label1 = I
        ' il faudrait determiner la quelle des solutions est la moins lourde(repaint/doevents)
        'DoEvents
        Me.Repaint
        I = I - 1
    Loop
    UsfAccueil.Show
    Unload Me
End Sub

attention avec application.wait
il est bloquant
j'entends pas la que si ce compteur tourne pendant qu'une autre fonction fait un job c'est walouhh walouhh l'autre fonction subit le wait aussi d'ou mon interrogation sur le doevents
se tourner alors vers application.ontime et gerer le tout dans un module standard entre deux execution vba est libre

[Floyd-44]

Merci Patrick,

Dans Activate, ça marche d'un coup beaucoup mieux

[Menhir]

Petit détail : le chrono généré par ce code ne sera pas fiable.
Toutes les opérations contenues dans la boucle (et la boucle elle-même) prennent un certain temps (surtout celles concernant l'affichage) qui va se rajouter à la seconde d'attente.
Donc, un tour de boucle durera plus d'une seconde.

[patricktoulon]

re
oui menhir c'est vrai aussi
voila un sujet interessant qui m'interpelle