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

Usine à gaz · 21 Janvier 2022

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

fanch55 · 22 Janvier 2022

Salut à tous,
Code :

VB:

Sub cherche()
Dim Col As Range, Msg As String
Dim T   As String: T = String(20, "-")
Const Dlm = ":   "
    
    Set Col = Worksheets("Rdv_transfert").Columns("h:h").Find( _
              "à confirmer", , xlValues, xlPart, xlByRows, xlNext)
    If Not Col Is Nothing Then
        Set Col = Col.Parent.Rows(Col.Row).Columns
        Msg = "Réseau" & vbTab & vbTab & Dlm & Col("E") & vbLf & _
              "Agent " & vbTab & vbTab & Dlm & Col("F") & vbLf & _
              "Date RdV" & vbTab & Dlm & Col("B") & vbLf & _
              "Date Appel" & vbTab & Dlm & Col("C") & vbLf & _
              "Intervalle" & vbTab & vbTab & Dlm & Abs(DateDiff("d", Col("B"), Col("C"))) & vbLf & vbLf & _
              "ENVOI ? = OUI...

patricktoulon · 25 Janvier 2022

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 · 25 Janvier 2022

patricktoulon à dit:
@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 · 25 Janvier 2022

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 · 25 Janvier 2022

patricktoulon à dit:
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 · 25 Janvier 2022

re
ben change la police

fanch55 · 25 Janvier 2022

patricktoulon à dit:
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 · 25 Janvier 2022

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

TooFatBoy · 25 Janvier 2022

patricktoulon à dit:
ok
regarde bien cette capture

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

patricktoulon à dit:
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 · 25 Janvier 2022

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 · 25 Janvier 2022

patricktoulon à dit:
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 · 25 Janvier 2022

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

TooFatBoy · 25 Janvier 2022

patricktoulon à dit:
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 · 25 Janvier 2022

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 · 26 Janvier 2022

patricktoulon à dit:
@fanch55

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

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

VB:

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

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

TooFatBoy · 26 Janvier 2022

fanch55 à dit:
Dis-moi, c'est quoi le Me ?....

Arf, j'ai pô compris la blague.

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

fanch55

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires