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