Discussion :

[geoffrey.brunet]

Bonjour,

J'ai une macro VBA qui affiche des messages régulièrement à un certain timing (ex timing de cuisson 4min:"melanger" - 7min:"baisser le feu" - 10min:"enlever la poelle". Mais lorsque que le userform apparaît, il est systématiquement sélectionné et désélectionne donc la fenêtre sur laquelle je travaille. Y' a t il un moyen pour régler ce problème et que le userform apparaisse en fond sans être sélectionné ?

D'avance merci de vos réponses.
Geoffrey

[Theze]

Bonjour,

Mets la propriété "ShowModal" à False.

Hervé.

[geoffrey.brunet]

Merci bcp !
Cependant ça ne fonctionne pas
Le fait de le mettre en modal false rend accessible les autres fenetres, mais à chaque nouveau message, le userform est de nouveau sélectionné.
Une idée ?
D'avance merci.
Geoffrey

[Docmarti]

Bonjour geoffrey.brunet

Code :

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

AppActivate Application.Caption

semble fonctionner.


Docmarti

P.S. Ce truc a été donné par Michel Pierron en 2006.

[geoffrey.brunet]

Merci de votre réponse.
Cela dit, je ne suis pas un pro du VBA, pourriez vous m'indiquer comment utiliser ce code ? Il semblerait que application.caption retourne le nom de la fenêtre, comment cela peut il m'être utile svp ?
Merci encore.
Geoffrey

[PMO2017]

Bonjour,

Je m'inspire des pistes fournies par Theze et Docmarti
1) propriété "ShowModal" à False
2) AppActivate Application.Caption

Je n'ai aucune idée de votre manière de faire pour le timing aussi en ai-je créé un en utilisant Application.OnTime
Voilà ce que j'ai fait :
1) création d'un UserForm1 avec un contrôle Label.1
2) propriété "ShowModal" à False (piste fournie par Theze)
3) code dans la fenêtre de code du UserForm

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Me.Label1.Caption = ".............."
Call MonTiming
AppActivate ThisWorkbook.Name 'piste fournie par Docmarti
End Sub

4) code dans un module standard

Code :

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

1
2
3
4
5
6
7
8
9
Sub MonTiming(Optional dummy As Byte)
Application.OnTime Now + TimeValue("00:00:05"), "'ChangeLabel ""mélanger""'"
Application.OnTime Now + TimeValue("00:00:10"), "'ChangeLabel ""baisser le feu""'"
Application.OnTime Now + TimeValue("00:00:15"), "'ChangeLabel ""enlever la poêle""'"
End Sub
 
Sub ChangeLabel(Texte As Variant)
UserForm1.Label1.Caption = Texte
End Sub

Après avoir effectuer des tests avec des attentes de 5 secondes, cela semble aller dans le sens de votre demande.
Je mets le classeur exemple en pièce jointe pour faciliter.

[Docmarti]

geoffrey.brunet - L'instruction AppActivate rend active l'application ou la fenêtre nommée
en recherchant l'argument dans la barre de titres de toutes les applications ouvertes.

Mets le curseur sur AppActivate et presse la touche F1 pour avoir de l'aide sur AppActivate.

Docmarti.