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

Marcel32 à dit:
Avec #50 les boutons sont visibles en entier.
Regarde la pièce jointe 1128683

oui mais c'est pas bon ca ne devrait pas etre comme ça les bouton sont 5 points plus bas que le textbox (du moins ca devrait ) et le textbox ne devrait pas avoir ce height il devrait descendre moins bas
et vous avez toujours ce problème d'alignement

fanch55 · 25 Janvier 2022

Avec le dernier code, les boutons sont ok sur mon w11

TooFatBoy · 25 Janvier 2022

Avec #57, c'est pareil : les boutons sont joliment placés, la TextBox est toujours un peu trop haute et beaucoup trop large, et l'alignement du texte n'est toujours pas bon (mais ça doit être impossible à automatiser) :

Windows 10 Pro 64 bits 21H1 et Excel 2016

TooFatBoy · 25 Janvier 2022

patricktoulon à dit:
oui mais c'est pas bon ca ne devrait pas etre comme ça les bouton sont 5 points plus bas que le textbox (du moins ca devrait ) et le textbox ne devrait pas avoir ce height il devrait descendre moins bas
et vous avez toujours ce problème d'alignement

Je sais, mais je dis (et montre) simplement ce que ça donne chez moi.

patricktoulon · 25 Janvier 2022

si ça doit être possible , il nous manque un élément c'est tout
si sur W7 ils sont alignés(les 3) on devrait pouvoir le faire avec W10 + et excel sup(à 2007 et 2013)

patricktoulon · 25 Janvier 2022

bon alors je vous code les VbButton auto ou pas (en attendant de trouver le truc pour l'alignement )

laurent950 · 25 Janvier 2022

Bonsoir le Forum,

Il y a une astuce pour réalisé des colonnes et alignement avec une Msgbox
Il y a une constante a régler pour l'alignement avec les colonnes
Dim Ecart As Integer: Ecart = 10
je le fait de 10 en 10
Dim Ecart As Integer: Ecart = 10
dans la fonction (rechercher cette ligne) a réglé en fonction de la longueur de la chaine
la plus longue du tableau
Si cette chaine fait 21 caractère pour "le tromblon du vilage" alors l'écart sera de 3 x 10
ect.
t(i) & String((3 * Ecart) - Len(t(i)), " ")

VB:

Sub test1()
' Msgbox Test 1
    Dim t, tx As Variant
    Dim reponse As Long
    t = Array("toto", "titi", "riri", "gaston")
    tx = Array("des bannanes", "des pommes", "des poires", "des oranges")
    reponse = MsgBox(Message(t, tx), vbYesNo)
    ' En complément
    Select Case reponse
        Case 6: MsgBox "vous avez repondu oui"
        Case 7: MsgBox "vous avez repondu non"
    End Select
End Sub

Code:

Sub test2()
' Mesgbox Test 2
    Dim t, tx As Variant
    Dim reponse As Long
    t = Array("toto", "titi", "riri", "gaston", "henry", "charles xavier", "le tromblon du vilage")
    tx = Array("des bannanes", "des pommes", "des poires", "des oranges", "des cerises", "des framboises", "des kakis")
    reponse = MsgBox(Message(t, tx), vbYesNo)
    ' En complément
    Select Case reponse
        Case 6: MsgBox "vous avez repondu oui"
        Case 7:: MsgBox "vous avez repondu non"
    End Select
End Sub

La foonction

Code:

Function Message(ByRef t As Variant, ByRef tx As Variant) As String
Dim txt As String
' il faut réglé la constante "Ecart" en fonction de la longeur des textes !
' Cf avec "le tromblon du vilage" j'ai du multiplier par 3 l'écart soit (3x10) = 30
Dim Ecart As Integer: Ecart = 10
    For i = LBound(t) To UBound(t)
        txt = txt & t(i) & String((3 * Ecart) - Len(t(i)), " ") & vbTab & vbTab & "Mange :" & vbTab & tx(i) & vbNewLine
    Next i
    ' En complément à la suite de txt
    txt = txt & vbCrLf & "mangez vous de ces fruits vous aussi?"
    Message = txt
End Function

Pour comprendre directement sans fonction

Code:

Sub PourComprendre()
' L'astuce pour les colonnes des Msgbox
' Exemple Test simple.
' Msgbox construction
' Ne pas Oublier de régler la constante pour les écart entre colonne
' String(20 - Len("Train"), " ") ' Ici la constante est de 20 (Soit de 10 en 10) donc 2 fois 20
MsgBox ("Train" & String(20 - Len("Train"), " ") & vbTab & vbTab & 10 & vbTab & "1.0%" & vbNewLine & _
        "Gare" & String(20 - Len("Gare)"), " ") & vbTab & vbTab & 3 & vbTab & "1.9%" & vbNewLine & _
        "Voiture" & String(20 - Len("Voiture"), " ") & vbTab & vbTab & 4 & vbTab & "1.7%" & vbNewLine & _
        "Garage" & String(20 - Len("Garage"), " ") & vbTab & vbTab & 9 & vbTab & "0.6%" & vbNewLine)
End Sub

patricktoulon · 25 Janvier 2022

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

patricktoulon · 25 Janvier 2022

@laurent950
tu a tout faux justement

laurent950 · 25 Janvier 2022

Bonsoir @patricktoulon

Chez moi cela fonctionne pourtant sur mon ordi, c'est intéressant comme sujet. j'ai quand même chercher un peux avant d'avoir un résultat. Il y a un modèle Objet Msgbox, une class pour cette Objet

Je cherche pour voir si il n'y a pas un moyen d'agrandir la largeur d'un Msgbox, pour évité le retour à la ligne si la chaine de caractères est trop longue sans retour à la ligne.
De plus je pense que nous somme limité à 1 024 Caractères dans la Msgbox ?

Voila ce que je récupère dans la Msgbox

patricktoulon · 25 Janvier 2022

c'est même abérant que ça fonctionne
du pars du principe d'un écart de 10 alors que la chaîne la plus longue fait 21 caractères
il est impossible qu'avec la même tu puisse redresser toutes les lignes c'est mathématique
c'est pour te dire a quel point sur W10 et version excel sup c'est vraiment faussé

TooFatBoy · 25 Janvier 2022

Avec #67 on a enfin une TextBox de taille adaptée, mais le texte n'est toujours pas aligné :

patricktoulon · 25 Janvier 2022

@Marcel32 le 67 c'est un msgbox classique

y a pas de textbox

fanch55 · 25 Janvier 2022

laurent950 à dit:
Chez moi cela fonctionne pourtant sur mon ordi, c'est intéressant comme sujet. j'ai quand même chercher un peux avant d'avoir un résultat. Il y a un modèle Objet Msgbox, une class pour cette Objet

Je cherche pour voir si il n'y a pas un moyen d'agrandir la largeur d'un Msgbox, pour évité le retour à la ligne si la chaine de caractères est trop longue sans retour à la ligne.
De plus je pense que nous somme limité à 1 024 Caractères dans la Msgbox ?

Voila ce que je récupère dans la Msgbox

Regarde la pièce jointe 1128703

Sur mon windows11/Excel2016: longueur utile msgbox = 1023 caractères

laurent950 · 25 Janvier 2022

Merci @patricktoulon

Oui effectivement c'est pas cohérent je te l'accord, j'ai essayé tellement de solution pour arriver à un résultat qui est vraisemblablement faussé, je te remercie Patrick.
Cela ma aider à comprendre, il n'y a pas de logique avec l'Msgbox
la msgbox a un style de caractères et une taille de caractère par défaut ? c'est visible quelque part ?

Laurent

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

fanch55

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

Discussions similaires