Positionner une msgbox

[Brigitte]

Bonjour tout le monde,

En ce dimanche gris, quelqu'un pourrait il nous aider ?

Comment positionner à un endroit précis de l'écran une msgbox ? Quel code rajouter pour cela ? Est ce seulement possible : pour les inputbox, mon époux a trouvé, mais pas pour les msgbox.

Merci à vous.

 

[nrdz83]

Re : Positionner une msgbox

bonjour brigitte je sais que pour une userform on doit utiliser STARUPPOSITION, alors pour un msgbox peut etre que c'est ce code. Si ça peut t'aiguiller, bonne journée , amitié s😎

 

[pierrejean]

Re : Positionner une msgbox

bonjour Brigitte

Salut nrdz83

Je crains que ce ne sois pas possible avec le MsgBox classique
Mais on peut deguiser un userform en Msgbox
Ci-joint un exemple trivial qui ne fait que de l'information
Si tu as besoin de plus de parametres (autres boutons , reponse .......) je peux regarder

Bises et à bientot

 

[Brigitte]

Re : Positionner une msgbox

Re,

Merci Mister Bean et Pierrejean... Je passe le bb à Pierre et reviens vous dire comment il se débrouille.

Bon app.

Nous c'est blanquette de veau, avec ce temps, faut ce qu'il faut...

 

[Brigitte]

Re : Positionner une msgbox

Re,

En effet, Pierre a regardé et en fait sa msgbox contient deux boutons : oui ou non.

Penses tu que ce soit adaptable ? On part au ciné, on revient ensuite... Bon AM

 

[pierrejean]

Re : Positionner une msgbox

Hello Brigitte

Voila un faux msgbox Oui/Non
Ne pas oublier de declarer Public la variable reponse

Bises et a bientot

 

[Brigitte]

Re : Positionner une msgbox

Bonjour tout le monde,

Merci Pierrejean... J'envoie ca de suite à mister pierre qui peut pas ouvrir xld... Comment il fait pour vivre !!!

Il est en déplacement, je lui demande demain s'il s'en sort. Merci et bisous

 

[Brigitte]

Re : Positionner une msgbox

Bonjour, bonjour,

Ca y est, Pierrejean, mon Pierre (à moi) est revenu et a adapté ton userform. Il me dit qu'il a eu du mal, ne connaissant pas les USF... et y a passé "toute la nuit"... Je préfère ça quand il est en déplacement (hi hi), remarque, c'est une saine occupation : exceller.

Il va me montrer... Si on avait une chtite question, on peut revenir ?

Bisous et à très bientôt.

 

[pierrejean]

Re : Positionner une msgbox

Re

Bien evidemment Brigitte vous pouvez revenir autant que necessaire

Bises et à bientot

 

[Brigitte]

Re : Positionner une msgbox

Re,

Du coup, Pierre, qui m'a montré (et ca fonctionne impecc), veut bien demander, pour sa culture, pourquoi tu as mis 6 et 7 ici :

Private Sub CommandButton1_Click()
reponse = 6
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
reponse = 7
Unload Me
End Sub

Autre tite question :

Private Sub UserForm_Click()
End Sub

Est ce que cette private sub est utile ? je l'ai enlevée, et ca semble fonctionner. Juste pour savoir, bien sûr, ca nous gêne pas...



Et il a une question sur la croix de fermeture, mais va falloir qu'il éclaircisse sa demande, car non comprendo, pour ma part... hi hi.

A plousssssss

 

[pierrejean]

Re : Positionner une msgbox

Re

une vraie msgbox avec des boutons OUI et NON renvoie une valeur (6 pour OUI ,7 pour NON)
J'ai donc fait en sorte que l'on ait ce même resultat
Pour ceci il y a une variable public (reponse) qui permet de savoir sur quel bouton l'utisateur aura cliqué
dans le fichier joint:
le click sur le bouton faux msgbox yes/no declanche la macro essai1

Private Sub CommandButton3_Click()
Call essai1
End Sub

laquelle appelle la macro faux_msgbox_yesNo et affiche la reponse

Call faux_msgbox_yesNo("on le met la", 100, 100)
MsgBox (reponse)

ce qui ressemble a l'utilisation d'un vrai msgbox

Sub test1()
reponse = MsgBox("on ne peut pas le placer par macro", vbYesNo)
MsgBox (reponse)
End Sub