Microsoft 365 lancer un code de la feuille active et afficher le MsgBox sur la feuille active sans activer l'autre feuille

[Usine à gaz]

Bonsoir à toutes et à tous,

Je cherche à faire ce qui suit :
Contexte
Je suis sur la feuille "Lancement_code_ici" (feuille active d'où je clique sur mon bouton "MsgBox Rappels du jour"
- sans activer la feuille "RdV_transfert", le code s'éxécute et le MsgBox s'affiche en restant sur la feuille active et le code se termine sans activer la feuille "RdV_transfert"

Je n'ai pas réussi à l'instant à le faire.
Pourriez-vous m'aider ?
Je joins je fichier test et je continue à chercher.

Un grand merci par avance,
lionel

 

[patricktoulon]

en fait il y en a une de logique
je me demande si il n'y a pas le même soucis qu'avec les textbox
tout simplement le retrait mais ca serait a droite et a gauche
1 seule lettre en trop sur une ligne et hop ça saute tout
exemple le textbox

 

[TooFatBoy]

@Marcel32 le 67 c'est un msgbox classique y a pas de textbox

Alors c'est pour ça que l'affichage est moins pourri que pour les autres !

[edit]
Ah oui, je viens de regarder le code testé et exact, c'est bien une MsgBox.
[/edit]

 

[patricktoulon]

re
c'est une question de gout
perso a part les boutons je ne vois pas de différence chez moi
avez vous testé le modèle avec les boutons auto?

 

[TooFatBoy]

avez vous testé le modèle avec les boutons auto?

Moi je n'ai pas testé vu que c'est impossible d'obtenir quelque chose d'aligné automatiquement à cause de la police de caractères utilisée.

 

[patricktoulon]

re
ben change la police

 

[fanch55]

re
bon voilà j'ai remis le kit vbbutton auto
possibilité:
vbYesNo
vbOKOnly
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbRetryCancel

l’appel se fait dans le même ordre qu'un msgbox classique

en mode responsif
reponse = MsgboxX.showX(texte, vbbutton, title)
'traiter la réponse après

en mode informatif
MsgboxX.showX texte, vbokonly, title
les vbconstantes et title peuvent être omises c'est le bouton ok par defaut
MsgboxX.showX texte

voila

Le dernier bouton est collé à la bordure droite ...
Bonne nuit à tous, moi dodo ...

 

[patricktoulon]

oupsss! mille excuses @fanch55
j'ai encore oublié
dans le activate
L = .InsideWidth - 65
ca veux pas rentrer

 

[TooFatBoy]

ok
regarde bien cette capture

LOL Pourquoi ce point d'interrogation ???
Y a pourtant pas de question à se poser.

je pense que l'on a une limite avec les msgbox puisque dans le debug on est bon

La limite c'est simplement la police de caractères : tu vois bien que "le debug" utilise une police de console alors que la MsgBox utilise une autre police.

C'est juste ça le problème : tu ne peux pas calculer un alignement automatique à cause de la police proportionnelle.

 

[patricktoulon]

re
ok c'est quoi la police de la console ?
chez moi en tahoma 11 points dans le textbox et ?comme police et ? comme size dans la console j'ai un resulta nikel

 

[TooFatBoy]

c'est quoi la police de la console ?

Je ne sais pas. Mais dans Excel j'ai tout laissé d'origine.

Oui, je vois bien que chez toi ça fonctionne maintenant.
Mais hélas il y aura toujours un cas pour lequel ça ne marchera pas (voir le problème sur toutes mes captures).

 

[patricktoulon]

en courier new pour les deux textbox et console
le textbox a 10 points pour le font.size

 

[TooFatBoy]

en courier new pour les deux textbox et console

Voilà, tu as compris : en Courrier New il n'y a pas de problème, ça marchera à tous les coups.

 

[patricktoulon]

re
bon ben on reste en courier new alors comme ça tout le monde est content
chez moi j'en ai 4 ou 5 de font qui marchent dans le textbox du msgbox perso tout en restant en courrier new dans la console et les deux sont bien alignés

sinon j'ai une autre méthode avec deux textbox mais elle vous plaira pas
j'en ai une autre méthode aussi infaillible avec un control webbrowser en html

 

[fanch55]

@fanch55

dans le activate
L = .InsideWidth - 65
ca veux pas rentrer

OKi, les boutons sont là où ils devraient être.

Private Sub UserForm_Activate()
    Dim T&, W&, L&, I&, bouton As msforms.CommandButton
    With Me

Dis-moi, c'est quoi le Me ?....

 

[TooFatBoy]

Dis-moi, c'est quoi le Me ?....

Arf, j'ai pô compris la blague.