Définir la position d'un msgbox

Version imprimable

26/06/2008, 13h37
kantein

Définir la position d'un msgbox

Bonjour à tous,

Après avoir à de maintes reprises trouvé les réponses à mes questions en farfouillant sur le forum, là, aujourd'hui, à cet instant, maintenant, présentement, je ne trouve pas de réponse... :( et cela me contrarie ! :?

Comment faire pour positionner ailleurs qu'au milieu de l'écran un msgbox servant à valider le contenu d'une feuille avant transfert de certaines infos de celle-ci ? Le but étant de permettre à l'utilisateur de vérifier sa saisie sans être gêné par le msgbox.

Un grand merci à tous ceux qui prennent le temps de se pencher sur les différents problèmes et, d'avance, un énorme merci à ceux qui se pencheront plus particulèrement sur le mien !!! :mrgreen:
26/06/2008, 14h01
patbou

bonjour,

le + simple a mon avis ,c ' est que tu remplaces ton msgbox par un userform.
sinon il va falloir aller dans les profondeurs des api windows :aie:
26/06/2008, 14h16
kantein

Merci Patbou,

J'ai également pensé à un usf mais ça fait du boulot en plus !!! :mouarf:8-)

Si jamais une autre tête pensante voit comment faire avec le msgbox, je suis preneur.

Je "fermerai" cette discussion demain matin si d'ici là personne n'a d'idée (vu qu'il y a indirectement une solution !).
26/06/2008, 14h44
ucfoutu

Bonjour,

Placer une msgbox où l'on veut est largement réalisable, oui...
Mais de façon bien plus complexe que la remplacer par une Userform..
Si toutefois, tu y tenais : d'accord, je te dirais (à contre coeurs, cependant...) :lol:
Tu dis ...
.

Il y a la chat_box :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub chat_box()
recom:
    With Assistant
        .Visible = True
        .Filename = "offcat.acs"
        .On = True
        .Move xLeft:=20, yTop:=20 '<-- position à définir
        .MoveWhenInTheWay = True
        With .NewBalloon
            .Heading = "ON FAIT QUOI ?"
            .Text = "Veuillez faire un choix"
            .CheckBoxes(1).Text = "oui je continue"
            .CheckBoxes(2).Text = "non j'arrête"
            .Show
            If .CheckBoxes(1).Checked = True Then
                Assistant.On = False
                Assistant.Visible = False
                MsgBox "vous avez décidé de poursuivre la procédure"
            ElseIf .CheckBoxes(2).Checked = True Then
                Assistant.On = False
                Assistant.Visible = False
                MsgBox "vous avez décidé de stopper la procédure"
                Exit Sub
            Else
                MsgBox "veuillez faire un choix svp !"
                GoTo recom
            End If
        End With
    End With
MsgBox "continuation de la procédure"
End Sub

26/06/2008, 16h07
kantein

Bon ben je vais me limiter à un usf alors... :mrgreen:

Je testerai quand même la chat_box pour le fun ! :king:
14/11/2018, 10h12
serpiccio

A toute fin utile
Avec des années de retard, je passais par là par hasard, voici une solution très simple :
Code:

1 2 SendKeys "% ~{UP 20}{LEFT 40}~" MsgBox "bonjour"
Ca marche pour moi.
08/12/2020, 15h47
nicols07

Parfait !
Tu donnes la solution 10 ans plus tard, et je te remercie 2 ans après car ça fonctionne parfaitement pour moi.
Code:

1 2 3 4 Randomize SendKeys "% ~{UP " & Int(40 * Rnd) + 1 & "}{LEFT " & Int(60 * Rnd) + 1 & "}~" Msgbox ..............
ça me permets de faire afficher la msgbox à des endroits différents pour obliger l'opérateur à lire le message affiché ! :)
29/01/2021, 15h45
thomic

j'ai essaye "SendKeys "% ~{UP 20} {Left 40}~" mais du coup la msgbox n'affiche plus rien à l'ecran
Citation:
Envoyé par nicols07

Tu donnes la solution 10 ans plus tard, et je te remercie 2 ans après car ça fonctionne parfaitement pour moi.

Code:

1 2 3 4 Randomize SendKeys "% ~{UP " & Int(40 * Rnd) + 1 & "}{LEFT " & Int(60 * Rnd) + 1 & "}~" Msgbox ..............

ça me permets de faire afficher la msgbox à des endroits différents pour obliger l'opérateur à lire le message affiché ! :)