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

re
ha c'est bien ce que je pensais merci lionel

j'ajoute la réponse par défaut ou l’empêchement de fermer par la croix si click sur la croix
c'est a toi de choisir

VB:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode =0Then Cancel = True 'pour empecher de fermer avec la croix
'ou
'renvoie le dernier  bouton (à droite)  par defaut
If CloseMode = 0 Then Cancel = True: With Me: .reponse = valx(UBound(valx)): .Hide: End With
End Sub

alors c'est pas du msgbox stylé ça

pour le height je réfléchi a quelque chose de cohérent mais bon même comme ça c'est propre

envoie une capture du comment il s'affiche chez toi

Usine à gaz · 27 Janvier 2022

Merci Patrick
Tu es un exceptionnel "grognon" sympa

lionel

Usine à gaz · 27 Janvier 2022

Et voilou :

patricktoulon · 27 Janvier 2022

Ah!!
à ce que je vois ta table n'est pas centrée
encore une bizarrerie je pense savoir pour quoi je vais essayer de la mettre en css margin 0

je testerais aussi avec des phrase plus longues

si tu veux changer les couleurs c'est dans la sub MFCHtmL
je peux aussi t'intégrer ma fonction perso couleur excel to html afin que tu puisse te servir de n'importe quel couleur en (rgb, long, hex)

j'aimerais bien que @Marcel32 me dise si lui aussi maintenant c'est bon

patricktoulon · 27 Janvier 2022

rer
voila c'est corrigé

la table est bien centrée (j'avais juste oublié le "/" de fermeture de balise)

je t'ai ajouté ma fonction perso htmlcolor pour que tu puisse utiliser n'importe quelle couleur sous n'importe quel format dans la MFChtmL (long,vbconstante,Hex)
exemple

VB:

Sub test()
MsgBox HtmlColor(vbRed)                     'rouge
MsgBox HtmlColor(RGB(255, 0, 0))            'rouge
MsgBox HtmlColor(255)                       'rouge
MsgBox HtmlColor(&HFF)                      'rouge
MsgBox HtmlColor(ThisWorkbook.Colors(3))    'rouge' avec la palette (1)d'origine du style du thisworkbook
End Sub

j'ai ajouté la teinte du fond du message aussi dans le MFChtml

j'ai ajouté une constante "moins=20 pour diminuer un peu le height
en attendant de trouver quelque chose de cohérent arrange le à ta convenance

TooFatBoy · 27 Janvier 2022

patricktoulon à dit:
il faudrait remettre le "/1.33333" car le offsetwidth d'un element HtmL donne la dimension en pixel et non en point

patricktoulon à dit:
ps: j'ai centré la table
ne changez rien et dites moi si c'est bon ou pas

Du coup il faut faire quoi ???

[edit]
Bon ben je sais ce que je dois faire quand je rentre chez moi : tester la dernière version.
[/edit]

patricktoulon · 27 Janvier 2022

re
@Marcel32
voilà tu a tout compris
je corrige en gardant une cohérence de calcul dimension pour vous et pour moi
j'ai ajouté aussi quelque petit trucs de mon cru pour le tunning du message

Usine à gaz · 27 Janvier 2022

patricktoulon à dit:
rer
voila c'est corrigé

la table est bien centrée (j'avais juste oublié le "/" de fermeture de balise)

je t'ai ajouté ma fonction perso htmlcolor pour que tu puisse utiliser n'importe quelle couleur sous n'importe quel format dans la MFChtmL (long,vbconstante,Hex)
exemple

VB:

Sub test() MsgBox HtmlColor(vbRed) 'rouge MsgBox HtmlColor(RGB(255, 0, 0)) 'rouge MsgBox HtmlColor(255) 'rouge MsgBox HtmlColor(&HFF) 'rouge MsgBox HtmlColor(ThisWorkbook.Colors(3)) 'rouge' avec la palette (1)d'origine du style du thisworkbook End Sub

j'ai ajouté la teinte du fond du message aussi dans le MFChtml

j'ai ajouté une constante "moins=20 pour diminuer un peu le height
en attendant de trouver quelque chose de cohérent arrange le à ta convenance
Regarde la pièce jointe 1128854

Hello : chez moi ça passe pas

TooFatBoy · 27 Janvier 2022

patricktoulon à dit:
je corrige en gardant une cohérence de calcul dimension pour vous et pour

Si tu utilises un truc en pixels dans tes calculs, n'oublie pas que chez toi c'est très probablement faussé par rapport à nous à cause de ton zoom à 120 %.

TooFatBoy · 27 Janvier 2022

Tout comme Yoyo en #113, ce n'est pas bon chez moi non plus.

Mais ce qui est marrant, c'est que je n'ai pas précisément pile poil exactement à 100 % la même chose que le Yoyo international...

patricktoulon · 27 Janvier 2022

@Usine à gaz
là je comprends pas le width tout a l'heure fonctionnait je ne l'ai pas changé
le height visible toi il faut pas enlever 20 et @Marcel32 oui
j'avoue que je suis perplexe avec les résultats que vous montrez
c'est absolument illogique
bon ben on garde le switch operatingSystem alors
bon pour
w7 c'est Qx=1.3333333 et vous 0
W7 moins=20 pour moi modifier dans le initialyse pour vous j'ai laissé 0

TooFatBoy · 27 Janvier 2022

Houla ! Une division par zéro... ça l'fait pô !

Ce serait peut-être mieux avec 1 plutôt que zéro ?

patricktoulon · 27 Janvier 2022

re
@Marcel32 oui exact
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

TooFatBoy · 27 Janvier 2022

Oui, avec 1 c'est enfin bon !

patricktoulon · 27 Janvier 2022

Oui, avec 1 c'est enfin bon !

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

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

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires