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

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 

Pièces jointes

  • forum_test.xlsm
    47.3 KB · Affichages: 8
Solution
fanch55
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...
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Et voilou :
1643276139451.png
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
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
demo.gif
 

Pièces jointes

  • test msgbox superkool V°2 patricktoulon pour usine a gaz.xlsm
    66.5 KB · Affichages: 5
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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
Cliquez pour agrandir...
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
Cliquez pour agrandir...
Hello : chez moi ça passe pas :)
1643284165481.png
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
@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
 

Pièces jointes

  • test msgbox superkool V°2 patricktoulon pour usine a gaz.xlsm
    65.3 KB · Affichages: 3
Vote positif 0 Vote négatif

Discussions similaires

Fredox
  • Question
Microsoft 365 [Résolu] | Ribbon | Afficher/Masquer le Ruban selon la feuille active
Réponses
9
Affichages
324
patricktoulon
patricktoulon
M
  • Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
486
patricktoulon
patricktoulon
Usine à gaz
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
689
TooFatBoy
TooFatBoy
T
  • Question
Microsoft 365 vba : nom de tableau si feuille non active
Réponses
13
Affichages
385
thenesol
T
Dudu2
  • Résolu(e)
XL 2016 VBA - Question complexe ! Activer la Feuille ou le UserForm selon la position du curseur de la souris
Réponses
5
Affichages
416
Dranreb
Dranreb
Zdz16
  • Question
XL 2021 [Résolu] : Récupérer les coordonnées d'une cellule sur une feuille créée dynamiquement
Réponses
3
Affichages
211
Zdz16
Zdz16
Usine à gaz
  • Résolu(e)
XL 2021 Revenir à la dernière feuille "Créée"
2 3
Réponses
38
Affichages
1 K
TooFatBoy
TooFatBoy
Usine à gaz
  • Résolu(e)
XL 2021 Ligne de code que je n'arrive pas à faire correctement
2
Réponses
17
Affichages
669
TooFatBoy
TooFatBoy
Usine à gaz
  • Résolu(e)
XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)
Réponses
2
Affichages
257
Usine à gaz
Usine à gaz
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
278
chaelie2015
chaelie2015

Membres actuellement en ligne

3 membres et 59 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 321
Messages
2 087 265
Membres
103 501
dernier inscrit
talebafia