Discussion :

[Ania]

Bonjour à tous

Je souhaite réalisé une fenetre pop-up type userform qui apparaitrai tous les 1/4 d'heure
mais cela en laissant la main à l'utilisateur pendant le decompte.

1) eh oui premièrement est-ce possible ?
2) faut-il créer une fonction ou existe-t-il qqch pour ça (je ne sais pas du tout ou chercher)

Merci d'avance à ceux qui accepterons ma requète !!!

[sovo]

1) eh oui premièrement est-ce possible ?

c'est tout a fait possible

2) faut-il créer une fonction ou existe-t-il qqch pour ça (je ne sais pas du tout ou chercher)

tu peux utiliser le controle Timer ou la fonction Timer (Confere aide en ligne) pour realiser cela.

[SfJ5Rpw8]

tu ve la faire apparaitre tous les 1/4h ... utilise Application.Ontime (voir ) .. sinon une fois qu'elle est apparu comment disparait'elle..? doit'elle se fermer toutes seule... ou on rajoute un popup tous les 1/4 h...? ou bien à chaque fois que l'opérateur la ferme on attends 1/4h puis on l'affiche à nouveau...?

[Ania]

Il s'agit en fait d'une de client à rappeler à partir d'une certaine date.
Son fonctionnement serait plutot la 2e proposition

apres un peu de reflexion j'en suis arrivé à ca :

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
Private Sub Workbook_Open()  
  Rappel = False  
  Load ufRappelClient  
 
  For i = 2 To 65536 'Boucle de recherche et ajout des noms dans la liste
    With Worksheets("Chantiers en cours")
      If .Cells(i, 1) <> "" And .Cells(i, 25) < .Cells(1, 35) Then
        .Range(.Cells(i, 1), .Cells(i, 33)).Font.Bold = True
        .Range(.Cells(i, 1), .Cells(i, 33)).Font.Size = 12
        .Range(.Cells(i, 1), .Cells(i, 33)).Interior.ColorIndex = 3
        ufRappelClient.lbClient.AddItem Cells(i, 1).Text
      ElseIf .Cells(i, 1) = "" And .Cells(i + 1, 1) = "" Then
        Exit For
      End If
    End With
  Next i
 
  ufRappelClient.Show     'Appel de la form qui affiche la liste des clients
End Sub

La form est toute simple (une liste et 2 boutons "OK" et "RAPPEL")
Ok : permet d'arreter la minuterie
RAPPEL permet de continuer la relance

et voici comment j'ai codé mes boutons

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cmdOK_Click()
  Rappel = False
  Unload Me
End Sub
 
Private Sub cmdRappel_Click()
  Application.OnTime Now + TimeValue("00:15:00"), "ufRappelClient.Show"
  Unload Me
End Sub

Seulement ca ne marche pas
faut-il que je crée une boucle dans la Sub workbook_open() avec des pauses ?

J'oubliais de vous remercier pour ces premières réponses car mon post était vraiment abstrait, un TRES grand merci

[SfJ5Rpw8]

crée une procédure dans un module standard qui ouvre ton userform .. puis appelle cette procédure dans le ontime...

[Ania]

Super ça marche tout bien comme il faut,

par contre est-il possible de que cette fenetre apparaisse aussi au premier plan quand on est sur une autre application (Word, Internet...)

Et merci beaucoup