MsgBox en arrière plan.

[Hulk]

Hello tout le monde,

J'ai un pb avec des MsgBox, parfois elles se placent derrière la fenêtre du classeur.

Petit fichier plus explicite.

Mille merci pour vos réponses.

Bonne soirée.

Hulk.

 

[Lii]

Re : MsgBox en arrière plan.

Re,

Sub Message()
  MessageBox GetForegroundWindow, [A1], "Ce que tu veux !", 64
End Sub

devrait suffire !
Voir l'aide MsgBox fonction pour les valeurs !

Désolé pour l'information concernant la touche Pause que j'ai sur mon clavier !

 

[Roland_M]

Re : MsgBox en arrière plan.

re

d'après ton image tu parles de l'icone info ou question !?
tu as ceci:
MsgBox "Il y a " & NbrDeFeuille & " feuille(s) dans ce classeur ! ", vbOKOnly, "Nombre de feuille"

mets ceci:
MsgBox "Il y a " & NbrDeFeuille & " feuille(s) dans ce classeur ! ", vbInformation + vbOKOnly, "Nombre de feuille"

 

[Hulk]

Re : MsgBox en arrière plan.

Forum, Lii, Roland_M, Excalibur,

Merci à tous, et grand coup de chapeau pour Excalibur qui à trouvé sur sa dernière tentative. Chapeau !

Excalibur a fait :

Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _
Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H100&
Private Const MB_INFORMATION& = 64 'Ai remplacé ça, 64 au lieu de &O64& (icône triangle jaune ou rond bleu)
If Sheets("Feuil1").Range("A1") = "Salut" Then
MessageBox GetForegroundWindow, "Salut les Exceliens, exceliennes !", " MsgBox 1", MB_SYSTEMMODAL & MB_INFORMATION
End If
If Sheets("Feuil1").Range("A1") = "Coucou" Then
MessageBox GetForegroundWindow, "Coucou les Exceliens, Exceliennes !", " MsgBox 2", MB_SYSTEMMODAL & MB_INFORMATION
End If
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

Ca joue juste que il met aussi le bouton aide, possible de l'enlever ?

Encore merci à vous tous messieurs dames !

@+.

Hulk.

 

[excalibur]

Re : MsgBox en arrière plan.

re,tous le monde = &O64& ne correspond pas a l icone vbinformation !!!
tu peus changer cette ligne
Private Const MB_INFORMATION& = &O64&
par
Private Const MB_INFORMATION& = vbInformation

 

[Hulk]

Re : MsgBox en arrière plan.

Re,

Oui = 64 ou vbInformation c'est idem.

Mais donc juste encore comment faire pour ôter le bouton "Aide" ?

Bravo encore.

@+.

Hulk.

 

[excalibur]

Re : MsgBox en arrière plan.

re; essai comme cela

Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _
Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = &H100& + 64
Sub Message()
If Sheets("Feuil1").Range("A1") = "Salut" Then
MessageBox GetForegroundWindow, "Salut les Exceliens, exceliennes !", " MsgBox 1", MB_SYSTEMMODAL
End If
If Sheets("Feuil1").Range("A1") = "Coucou" Then
MessageBox GetForegroundWindow, "Coucou les Exceliens, Exceliennes !", " MsgBox 2", MB_SYSTEMMODAL
End If
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End

 

[Lii]

Re : MsgBox en arrière plan.

Re,

Tu ne veux vraiment pas simplifier ?

Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _
Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long
Private Declare Function GetForegroundWindow& _
Lib "user32" ()
Private Const MB_SYSTEMMODAL& = 256
Private Const MB_INFORMATION& = 64
Sub message()
  MessageBox GetForegroundWindow, "les Exceliens, Exceliennes !", Sheets("Feuil1").[A1], MB_SYSTEMMODAL + MB_INFORMATION
End Sub
Sub LeTempsDeChangerDapplication()
Application.OnTime Now + TimeSerial(0, 0, 5), "Message"
End Sub

 

[excalibur]

Re : MsgBox en arrière plan.

cher lii j en etais pas encore au stade de simplification mon vieux cerveau peut pas tout faire a la fois desole

 

[Lii]

Re : MsgBox en arrière plan.

Re,

excalibur, loin de moi l'idée de te bousculer.
Je m'adressais à Hulk en espérant qu'il ne soit pas vert de rage ! 😉

 

[excalibur]

Re : MsgBox en arrière plan.

pas de problemes lii passe une bonne soiree a+

 

[Hulk]

Re : MsgBox en arrière plan.

Hello tout le monde,

Désolé de ne pas avoir répondu avant.

Voilà, je vous dis bravo, cette fois c'est bon !

Que ça soit la version à Lii ou celle d'Excalibur, c'est nickel.

Bravo à vous.

Un bon weekend à tous.

Hulk.