Discussion :

[kantein]

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 !!!

[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

[kantein]

Merci Patbou,

J'ai également pensé à un usf mais ça fait du boulot en plus !!!

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 !).

[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...)
Tu dis ...
.

[fring]

Il y a la chat_box

Code :

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

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

[kantein]

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

Je testerai quand même la chat_box pour le fun !

[serpiccio]

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

Code :

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

1
2
SendKeys "% ~{UP 20}{LEFT 40}~"
MsgBox "bonjour"

Ca marche pour moi.

[nicols07]

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

Code :

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

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é !

[thomic]

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

Code :

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

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é !