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

[ouskel'n'or]

premier plan : Voir zorder dans l'aide en ligne

[Ania]

Ce paramètre n'est pas applicable à une form, mais seulement au élément qui la compose

[Ania]

j'ai regarder dans la FAQ, on y parle d'une fenetre qui reste toujours au premier plan. ici

Savez-vous si elle reste au premier plan aussi devant d'autres applications (Word, Firefox...)

Si, oui comment l'adapter pour du VBA ??

car je l'ai inséré ainsi

en déclaration dans la form

Code :

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

1
2
3
4
5
6
7
8
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
 
Private Declare Function SetWindowPos Lib "USER32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

et utilisation de la propriété Activate car Form_Load n'est pas disponible

Code :

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

1
2
3
Private Sub UserForm_Activate()
  SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Message d'erreur lors de la compilation : Méthode ou membre de données introuvable (erreur 461)
avec .hwnd surligner en bleu.

[SfJ5Rpw8]

essai de modifier l'appel à ton user form du style :

Code :

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

1
2
3
4
5
 
Sub MonTEst()
AppActivate Application.Caption
UserForm1.Show
End Sub

[Ania]

Je te remercie ton post m'a beaucoup aidé, pour trouver la solution, que voici :

Code :

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

1
2
3
4
5
6
7
8
9
Sub MonTest()
  Windows("Dossier en cours (RAPPEL).xls").Activate
 
  'Mon code
 
  Application.WindowState = xlMinimized
  Application.WindowState = xlMaximized
  ufRappelClient.Show
End Sub

En fait, le fait d'activer la fenetre ne la met pas au premier plan.
Pour contourner cela je la reduis puis l'agrandis, il existe surement un autre moyen mais ca marche comme ca
Par contre petit inconvénient pour le débogage il faut que la fenetre de Visual Basic soit minimiser ou déjà derrière sinon ça marche pô

Encore une fois Un Grand Merci à toute l'équipe de developpez.net