Userform non selectionné à l'ouverture

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

Bonjour,

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

Hervé.

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

Bonjour geoffrey.brunet

Code:

---

AppActivate Application.Caption

---

semble fonctionner.


Docmarti

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

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

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:

---

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:

---

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.

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.

Si je comprends bien, cela permet de remettre l'excel en premier plan (et non d'empêcher le userform d'être sélectionné. Je testerai ce we si cela peut marcher avec un lecteur video ou une page web. A savoir lancer le chrono, regarder une vidéo pendant ce temps là, afficher le userform sans qu'il soit sélectionné à l'ouverture, ou du moins que la fenêtre du lecteur vidéo soit directement resélectionné.

Quoi qu'il en soit un grand merci à tous.
Geoffrey.