Discussion :

[david_atx]

Bonjour le forum, cela fait quelques temps que je n'avais pas poser de questions.

ALors vilà ce que j'aimerais faire.
J'ai dans une application un userform qui me sert de timer ou dans un autre cas d'indicateur de température.
Bref là n'est pas l'important.
Toujours est il qe pendant un temps donné ce userform est affiché et il faut qu'un de ces labels soit mis à jour en fonction d'une valeur externe.

J'avais trouvé donc cette solution

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
16
17
18
19
20
21
22
Public Function compte_a_rebours(Duree)
 
debut = Timer
 
fin = Duree + debut
tim.Show vbModeless
 
For i = 0 To Duree
 
t = Timer - debut
While Not t >= i
t = Timer - debut
Wend
t = Duree - t
t = SecondeEnHeure(t)
tim.Label2.Caption = t: DoEvents
tim.Repaint
Next i
 
Unload tim
 
End Function

Qui fait ce que je lui demande a ceci prêt que je suis obligé de mettre mon userform en non modal et la ca m'embete !
Je voudrais que mon userform soit modal ou tout du moins que la personne n'est pas accès à la feuille Excel (enfin tout du moins qu'il ne puisse aps interagir avec)

Si quelqu'un à une idée je suis preneur

[LeForestier]

Bonjour,
Comprend pas, pourquoi ça ne va pas en Modal, puisque tu ne veux pas que l'utilisateur puisse agir ?
A+

[david_atx]

le problème du modal c'est que le label ne se met pas a jour ...
Et je ne voi pas pourquoi d'ailleurs

[Didier Gonard]

Bonjour,

Sans analyser le fond, pour répondre à ta question , tu peux peut-être regarder du côté de la propriété Interactive de l'objet Application :

Code :

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

Application.Interactive = False  ' True

vois l'aide vba....

cordialement,

Didier

[LeForestier]

Tu peu tester ce code..

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
'Duree en seconde
Public Sub Delais(Duree As Integer)
Dim S As Integer
Dim debut As Integer, fin As Integer
    S = Second(Now)
    Label2.Caption = Duree
    Do
        If S <> Second(Now) Then
            Duree = Duree - 1
            Label2.Caption = Duree
            S = Second(Now)
        End If
        DoEvents
    Loop While Duree > 0
End Sub

A+

[david_atx]

toujours le meme problème a savoir qu'il faut mettre l'usf en modeless pour que ca marche

Mais c'est pas grave je vais utiliser ta solution ca mine de rien c'est moins gourmand en ressources et a coté de ca je vais mettre le application.interaction à false ce qui semble convenir

Merci à vous deux je test et je mets résolu ensuite