Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Msgbox au premier plan

Msgbox au premier plan

8 réponses
Avatar
JeNeVois
Bonjour !

J'aimerais qu'un msgbox apparaisse toujours au premier plan,
aussi au cas où je suis en train de surfer avec un browser.
Est-ce possible ?

Merci pour toute réponse !
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain CROS
Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|
Avatar
JeNeVois
Bonjour,

Merci, ça marche à merveille :)




Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|





Avatar
JeNeVois
Bonsoir,

y aurait t-il aussi la possibilité de doter ce msgbox
d'un vbyesno ?

Salutations


Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|





Avatar
michdenis
Bonjour JeNeVois,

Essaie ceci :
j'ai ajouté : vbYesNo , tu peux remplacer cette constante par l'une
des constantes d'une boîte de message traditionnel.

Évidemment, tu dois faire suivre le reste du code !

MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", vbYesNo + MB_SYSTEMMODAL


Salutations!


"JeNeVois" a écrit dans le message de news:

Bonsoir,

y aurait t-il aussi la possibilité de doter ce msgbox
d'un vbyesno ?

Salutations


Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|





Avatar
michdenis
Bonjour Alain,

Lorsque la fenêtre s'affiche dans l'application excel, on doit
d'abord utiliser un double-clic pour entrer dans la cellule
pour l'éditer ...Est-ce qu'il y a moyen d'éditer une cellule normalement ?

Merci pour ta collaboration.


Salutations!



"Alain CROS" a écrit dans le message de news: urytNK$$
Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|
Avatar
JeNeVois
Bonjour Michdenis !

Merci, c'est parfait.

Toutefois il me reste encore un petit problème et j'espère
qu'il ne soit pas insurmontable :
Y a t-il la possibilité de donner la main à l'utilisateur
avant de fermer la msgbox par oui ou non ?

Salutations



Bonjour JeNeVois,

Essaie ceci :
j'ai ajouté : vbYesNo , tu peux remplacer cette constante par l'une
des constantes d'une boîte de message traditionnel.

Évidemment, tu dois faire suivre le reste du code !

MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", vbYesNo + MB_SYSTEMMODAL


Salutations!


"JeNeVois" a écrit dans le message de news:

Bonsoir,

y aurait t-il aussi la possibilité de doter ce msgbox
d'un vbyesno ?

Salutations


Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|










Avatar
michdenis
| a t-il la possibilité de donner la main à l'utilisateur
| avant de fermer la msgbox par oui ou non ?

La main, l'a-t-il perdu ?

;-)

Je ne comprends pas le sens de ta question !


Salutations!



"JeNeVois" a écrit dans le message de news:

Bonjour Michdenis !

Merci, c'est parfait.

Toutefois il me reste encore un petit problème et j'espère
qu'il ne soit pas insurmontable :
Y a t-il la possibilité de donner la main à l'utilisateur
avant de fermer la msgbox par oui ou non ?

Salutations



Bonjour JeNeVois,

Essaie ceci :
j'ai ajouté : vbYesNo , tu peux remplacer cette constante par l'une
des constantes d'une boîte de message traditionnel.

Évidemment, tu dois faire suivre le reste du code !

MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", vbYesNo + MB_SYSTEMMODAL


Salutations!


"JeNeVois" a écrit dans le message de news:

Bonsoir,

y aurait t-il aussi la possibilité de doter ce msgbox
d'un vbyesno ?

Salutations


Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|










Avatar
JeNeVois
LOL
Il est vrai qu'en fait il n'y a que moi qui prend la place
de l'utilisateur et heureusement j'ai encore les deux...
Je crains que ma question ait été stupide, il s'agissait
de pouvoir consulter le fichier avant de donner la réponse,
mais je n'ai qu'à intercaler une deuxième msgbox et
placer la petite boucle "do events" entre les deux.

Salutations



| a t-il la possibilité de donner la main à l'utilisateur
| avant de fermer la msgbox par oui ou non ?

La main, l'a-t-il perdu ?

;-)

Je ne comprends pas le sens de ta question !


Salutations!



"JeNeVois" a écrit dans le message de news:

Bonjour Michdenis !

Merci, c'est parfait.

Toutefois il me reste encore un petit problème et j'espère
qu'il ne soit pas insurmontable :
Y a t-il la possibilité de donner la main à l'utilisateur
avant de fermer la msgbox par oui ou non ?

Salutations



Bonjour JeNeVois,

Essaie ceci :
j'ai ajouté : vbYesNo , tu peux remplacer cette constante par l'une
des constantes d'une boîte de message traditionnel.

Évidemment, tu dois faire suivre le reste du code !

MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", vbYesNo + MB_SYSTEMMODAL


Salutations!


"JeNeVois" a écrit dans le message de news:

Bonsoir,

y aurait t-il aussi la possibilité de doter ce msgbox
d'un vbyesno ?

Salutations


Bonjour.

Essayer comme ça.
Fonctionne ici sur Win98.

Dans un module :

Private Declare Function MessageBox& _
Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H1000&
Sub Message()
MessageBox GetForegroundWindow, "Bonjour", "LaMsgbox", MB_SYSTEMMODAL
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Alain CROS

"JeNeVois" a écrit dans le message de news:

|
| Bonjour !
|
| J'aimerais qu'un msgbox apparaisse toujours au premier plan,
| aussi au cas où je suis en train de surfer avec un browser.
| Est-ce possible ?
|
| Merci pour toute réponse !
|
|
|