position msgbox

S

smotty

XLDnaute Occasionnel

• 1 Décembre 2008

• #2

Re : position msgbox

Bonjour tany, le forum,

Pour un msgbox je n'ai pas trouvé comment faire, donc si tu ne trouves pas d'autres solution, tu peux contourner le problème en utilisant un userform que tu pourras placer où tu veux. Visuellement il n'y aura pas beaucoup de différence...

En espérant que ça t'aidera.

A+

smotty

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Décembre 2008

• #3

Re : position msgbox

Bonjour tany, smotty,

Le code suivant envoie une série de touches. Les touches de déplacement UP et LEFT sont répétées 20 fois pour la 1ère et 40 fois pour la seconde.

Code:

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

A+

 

Vote positif 0 Vote négatif

T

tany

XLDnaute Occasionnel

• 1 Décembre 2008

• #4

Re : position msgbox

re,

Merci JOB75 ça marche impec...formidable !
Fallait savoir...ou trouver...ou savoir trouver LOL, bravo.

 

Vote positif 0 Vote négatif

B

bonzai2000

Guest

• 29 Janvier 2012

• #5

Re : position msgbox

GENIAL Merci

 

Vote positif 0 Vote négatif

S

Svhmanta

Guest

• 1 Avril 2012

• #6

Re : position msgbox

Avec moi cela ne marche pas
Svhmanta

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Avril 2012

• #7

Re : position msgbox

Bonjour,

La solution avec envoi de touches fonctionne chez moi sur Excel 2003 et sur Excel 2010.

Mais il existe des solutions (lourdes) avec les API Windows, par exemple :

Define a Position of MessageBox using VBA in Excel

Il suffit de chercher 30 s sur le web position msgbox...

A+

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #8

Re,
Ça ne marche pas chez moi,
Avez vous d'autre proposition ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2019

• #9

re
bonjour
wscript.shell pour le sendkey sinon on perd le clavier numérique
msgbox en haut a gauche

VB:

Sub test()
CreateObject("wscript.shell").SendKeys "% ~{UP 35}{LEFT 50}~"
MsgBox "bonjour"
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Décembre 2019

• #10

Bonjour badraaliou4, patricktoulon, le forum,

VB:

CreateObject("wscript.shell").SendKeys "% ~{UP 35}{LEFT 50}~"

Formidable Patrick, avec ce code je vais pouvoir réutiliser les SendKeys abandonnés depuis longtemps.

Bonne journée.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2019

• #11

re
bonjour job75
oui c'est un bug de sendkey vba vbs connu depuis longtemps
celui de wscript.shell ne l'a pas visiblement
😉

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #12

Re,
Merci Patrick

 

Vote positif 0 Vote négatif