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

 

[TooFatBoy]

donc vous vous avez la lecture css html en point et non en pixel
c'est bizarre quand meme

Tu as vérifié ce que je t'ai dit sur le zoom ?

Je viens d'essayer 100, 125 et 200 % : ça ne change absolument rien.

 

[TooFatBoy]

changez pour vous ce qui est en rouge
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub

Ah zut, cette partie de #118 n'y était pas quand j'ai écrit #119, et du coup moi j'ai mis 1 et 1 au lieu de 0 et 1 comme tu indiques.

 

[Usine à gaz]

Re Patrick, Marcel
pour moi c'est bon :

enclume toi-même lol

 

[patricktoulon]

oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique
si tu te ballade dans DVP ou même ici tu trouvera mes fonction range to table html j'evoque a divers endroit cette particularité

bon ben si c'est bon pour tout les deux ca devrait l'etre pour tous

voilà alors lionel tu va l'utiliser mon msgboxW
nombre de lignes limité a ce que peut afficher la hauteur d'ecran
largeur pareil
couleur modifiable a souhait
et on a les VbButton des msgbox classique
bref c'est plus que ce que tu avais demandé

 

[TooFatBoy]

oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique

Ce ne sont pas les DPI qui sont à 125 ou 100, mais le coefficient de zoom.
Ne pas confondre le coefficient de zoom et la résolution.

En tout cas, merci pour ces précisions.

 

[TooFatBoy]

bon ben si c'est bon pour tout les deux ca devrait l'etre pour tous

Oui, c'est bon chez oim !

alors lionel tu va l'utiliser mon msgboxW

Ben il a intérêt !!! On n'a pas fait tous ces tests pour rien !...

 

[Usine à gaz]

oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique
si tu te ballade dans DVP ou même ici tu trouvera mes fonction range to table html j'evoque a divers endroit cette particularité

bon ben si c'est bon pour tout les deux ca devrait l'etre pour tous

voilà alors lionel tu va l'utiliser mon msgboxW
nombre de lignes limité a ce que peut afficher la hauteur d'ecran
largeur pareil
couleur modifiable a souhait
et on a les VbButton des msgbox classique
bref c'est plus que ce que tu avais demandé

Merci Patrick

 

[patricktoulon]

et que pour la dernière phrase soit cohérente( bien que'elle soit inutile ) je la modifie en fonction des boutons demandé dans l'appel

 

[Usine à gaz]

Chez moi, c'est nickel sauf le "envoie OUI ou NON qui est plus éloigné des boutons que chez toi :

 

[patricktoulon]

re
je l'ai dis tout a l'heure tu met le moins a ce qui te convient dans le initialyse
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub
avec divers retours peut être qu'un jour je trouverais la logique
pour le moment on fait comme ça
[edit]
j'ai trouvé une partie de la logique
en fait dans mon calcul je ne prends pas en compte le margin du

body
table
TR
[edit]
le margin auto qui est appliqué quand pas de css est de 4 points environ
car la table n'est pas en bordercollapse
avec 20 en dur comme j'avais mis plus il y avait de ligne moins c'etait bon
donc la formule pour rectifier la hauteur est
4 fois le nombre de ligne(TR) = ce que l'on doit enlever en hauteur
j'ai testé
avec -20 et beaucoup plus de ligne

avec la nouvelle formule et le meme message

pour vous c'est le rouge à changer
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 4, 0)' remplacez le zero par (1 à 4)
Qx = IIf(Qx = 6.01, (4 / 3), 1)'on est bon comme ça chez vous et chez moi
End Sub
la multiplication je la fait dans la création
nouveau fichier joint

 

[Usine à gaz]

re
je l'ai dis tout a l'heure tu met le moins a ce qui te convient dans le initialyse
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub
avec divers retours peut être qu'un jour je trouverais la logique
pour le moment on fait comme ça
[edit]
j'ai trouvé une partie de la logique
en fait dans mon calcul je ne prends pas en compte le margin du

body
table
TR
[edit]
le margin auto qui est appliqué quand pas de css est de 4 points environ
car la table n'est pas en bordercollapse
avec 20 en dur comme j'avais mis plus il y avait de ligne moins c'etait bon
donc la formule pour rectifier la hauteur est
4 fois le nombre de ligne(TR) = ce que l'on doit enlever en hauteur
j'ai testé
avec -20 et beaucoup plus de ligne
Regarde la pièce jointe 1128914

avec la nouvelle formule et le meme message
Regarde la pièce jointe 1128916


pour vous c'est le rouge à changer
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 4, 0)' remplacez le zero par (1 à 4)
Qx = IIf(Qx = 6.01, (4 / 3), 1)'on est bon comme ça chez vous et chez moi
End Sub
la multiplication je la fait dans la création
nouveau fichier joint

Nickel pour moi

 

[patricktoulon]

re
nikel oui mais la dernière version post #130???

 

[Usine à gaz]

OUI la version du #Post 130 est très bien aussi

 

[patricktoulon]

@Usine à gaz alors c'est cette version que tu dois garder pas les précédentes
reste plus qu'à @Marcel32 de confirmer que c'est bon

purée c'est du msgbox qui a de la classe

 

[Usine à gaz]

Re Patrick, ok et je te remercie pour ta ténacité et ta patience
lionel