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]

de rien je me suis bien amusé 😉
j’espère que ça te servira

 

[Usine à gaz]

Je sais que tu aimes ces trucs complexes lol 🙂

OUI ça me servira.
lionel 🙂

 

[TooFatBoy]

Chez moi, obligé de mettre 4 pour le moins sinon c'est trop haut.

Par contre, j'ai essayé de cliquer sur "NONOui", mais je n'ai pas trouvé le bouton en question... 🤣

 

[TooFatBoy]

Oups... j'ai mis tellement de lignes qu'on ne voit plus, ni le haut, ni le bas, de la fenêtre...

Bon, en enlevant quelques lignes je vois le bas de la fenêtre, mais toujours pas le haut...

(capture de la partie gauche de mon affichage, mais sur toute la hauteur)​

Évidemment, c'était juste pour faire un test.
Le Yoyo n'aura jamais une fenêtre avec autant de lignes !
Quoi que... avec son usine à gaz, il faut s'attendre à tout... 😅😂🤣

 

[patricktoulon]

re

Chez moi, obligé de mettre 4 pour le moins sinon c'est trop haut.

ah ben voilà une bonne nouvelle ca veut dire que ma logique est bonne
puisque lionel toi et moi c'est 4
la logique c'est bien (4*(trs.length-1)

pour le "nonoui" il faut arrêter la dernier phrase à "ENVOIE ?=" dans l'appel
le reste c'est le userform qui s'en charge

après il est certain qu'il y a une limite de ligne quand même 😂😂

 

[TooFatBoy]

pour le "nonoui" il faut arrêter la dernier phrase à "ENVOIE ?=" dans l'appel
le reste c'est le userform qui s'en charge

Oui, j'avais corrigé, comme le montre ma dernière capture. 😉

 

[patricktoulon]

Bonjour à tous les deux
on s'amuse on s'amuse 😉😁
je reviens aujourd'hui avec une new version
j'ai remis le kit de boutons persos comme dans mon msgboxX et le rollover sur les boutons
on a donc en 2d arguments dans l'appel du msgboxW :
soit les vbconstante
soit un array de texte de boutons

j'ai aussi ajouté l'effet over sur les boutons

 

[Usine à gaz]

Bonjour Patrick, Bonjour Marcel, Le Forum,
Beau dimanche à toutes et à tous 🙂

Patrick elle est nickel cette version
Un bravo du dimanche matin 😛😛😛
lionel 🙂

 

[patricktoulon]

Bonjour lionel
montre moi une capture du comment ça s'affiche chez toi

 

[Usine à gaz]

ok, je prépare 🙂

 

[patricktoulon]

re
comme ça je corrige toute les petites imperfections
pour la MFC du message souhaite tu décider au départ des couleurs (sans etre obligé de modifier dans le userform

 

[Usine à gaz]

et voilou :

 

[Usine à gaz]

"pour la MFC du message souhaite tu décider au départ des couleurs (sans etre obligé de modifier dans le userform"
ça pourrait être sympa, plus direct, comme ça 🙂

 

[patricktoulon]

re
j'avais oublier de changer la condition pour la hauteur

en fait on avait constaté que ma logique de 4* le nombre de ligne etait bon donc change le initialyse pour celui ci

Private Sub UserForm_Initialize()
    Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
    moins = 4
    Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub

tu devrais plus avoir cette marge basse

 

[Usine à gaz]

OUI, c'est bon 🙂