affichage d'une boite de dialogue

[didougna]

bonjour,

ce que je veux faire est plus explicité dans un post plus loin

je possede une tableau excel contenant 620 taches ainsi que leur temps de debut et leur temps de fin
J'aimerai qu'une boite de dialogue s'affiche lorsque la tache est en cours (de maniere a faire une simulation en temps reel) malheureusement je n'arrive pas a resoudre les erreur

je comptais utiliser un userform cependant cela ne marche pas, pouvez vous y jeter un coup d'oeil


Option Explicit
Dim Tps, Debut, Fin As Date

Dim i
Function afficher()
Load UserForm1
UserForm1.Show
End Function

Function cacher()
UserForm1.Hide
End Function

Sub dialogue()

Function Userformshow()



For i = 2 To Range("D65536").End(xlUp).Row

Now = Time

Debut = Now + TimeValue(Cells(i, 8).Value) //cells(i,8) contient la date de debut
OnTime(Debut, afficher) = True 'Traitement
Fin = Now + TimeValue(Cells(i, 12).Value) //cells(i,8) contient la date de fin
OnTime(Fin, cacher) = True 'Traitement

Next i



End Function


merci d'avance de votre aide qui me sera tres precieuse

 

[Spitnolan08]

Re : affichage d'une boite de dialogue

Re,

Autant pour moi : c'était juste un pb de paramétrage : mon label n'était pas assez grand...

Bravo.

Edit :Ceci étant je reste persuadé qu'il est possible d'afficher et fermer plusieurs UF en parallèle. Si je trouve, je vous en fais part. Mais ce ne sera pas avant quelques semaines...

Cordialement