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

patricktoulon à dit:

re
dans mes modèle il ne doit pas y avoir de "Me" on est dans un bloc with MsgboxX
je vous fait diverse version avec autres méthodes dans un fichier vous testerez

Cliquez pour agrandir...

patricktoulon à dit:

bonjour a tous
bon allez
model 1 MsgboxX texte alignée avec espaces et tabulation

model 2 texte aligné dans 2 textbox qui repique la dimension width du label mesure en autosize (astuce bien connue)

model 3 texte transformé en table html dans un control webbrowser dans le userform

3 module séparés pour tester chacun des model avec les 3 tailles de message

chez moi toutes version est nickelle
j'ai quand même une préférence pour le webbrowser (j'en suis pas a mon coup d'essaie )qui pour ceux qui autoriseront ce control n'auront jamais de problème d'alignement c'est impossible vu que la table n'est pas stylé(css) le flux dimensionne alors automatiquement les cells HTML

démonstration en html
Regarde la pièce jointe 1128769
je m'amuse comme un petit avec ces trucs

Cliquez pour agrandir...

patricktoulon à dit:

une table html par défaut qui n'est pas stylée(css) se dimensionne automatiquement pour que tout se voit
c'est la base d'une table html et c'est immuable
comment vous arrivez a la réduire
enleve le "/1333333..." pour voir (mais ça c'est le userform normalement rien a voir avec le webbrowser )

Cliquez pour agrandir...

patricktoulon à dit:

re tiens lionel celle là elle est pour toi
tu veux du msgbox perso
Ah!!.. je vais t'en donner
en html tu n'aura jamais de soucis pour aligner
et pour le texte pour message dans d'appel pas besoins de mettre des tabulation ou espaces le msgboxW se charge de tout
tu met juste ta variable Dlm

VB:

Sub cherche()
    Dim Col As Range, Msg As String, reponse As VbMsgBoxResult
    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" & Dlm & Col("E") & vbLf & _
              "Agent " & Dlm & Col("F") & vbLf & _
              "Date RdV" & Dlm & Format(Col("B"), "dddd dd ""(""mmmm mm"")"" yyyy") & vbLf & _
              "Heure RdV" & Dlm & Format(Col("B"), "hh"" h ""nn") & vbLf & _
              "Date Appel" & Dlm & Format(Col("C"), "dddd dd ""(""mmmm mm"")"" yyyy") & vbLf & _
              "Intervalle" & Dlm & Abs(DateDiff("d", Col("B"), Col("C"))) & vbLf & vbLf & _
              "ENVOI ? = OUI        ou      NON"

        reponse = MsgboxW.showX(Msg, vbYesNo, "<-----------RDV----------->")
        Select Case reponse
        Case vbYes: MsgBox "vous avez repondu oui"
        Case vbNo:: MsgBox "vous avez repondu non"
        End Select

    End If
End Sub

Regarde la pièce jointe 1128818

il est beau y a pas à dire

Cliquez pour agrandir...

patricktoulon à dit:

re
en fait il faudrait remettre le "/1.33333" car le offsetwidth d'un element HtmL donne la dimension en pixel et non en point
c'est en cela que c'est incohérent chez vous
hors le offsetwidth de la table html me sert a dimensionner le webbrowser et userform
alors on prend le taureau par les cornes et dans la fonction ShowX on dimensionne le webbrowser bien plus grand il est redimensionner auto après de toute façon
donc voila même avec "/1.3333..."ou "/(4/3)" chez vous ça devrait fonctionner
sinon il faudra mettre " / Qx"
(Qx Etant le diviseur 1.333 ou 0 déterminé selon le operating sytem dans le initialyse )
ps: j'ai centré la table
ne changez rien et dites moi si c'est bon ou pas

Regarde la pièce jointe 1128840

Cliquez pour agrandir...