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
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
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...

Usine à gaz

XLDnaute Barbatruc
re-voilou :
1643533874040.png
 

Usine à gaz

XLDnaute Barbatruc
oui je sais mais j'ai du partir en urgence
pas de repos pour les braves ;)
je m'occupe de ça ce soir et demain matin
c'est vrai que c'est mieux de pouvoir choisir des le depart
après je pense qu'il sera complet ;)
a moins que nous sorte de ton chapeau une condition rocambolesque style usine à gaz 😂🤣😅🤣
lol, je vois que tu commences à me connaître 🤪
 

patricktoulon

XLDnaute Barbatruc
bon allez un premier jet
dans le 2d module on appel le message avec des couleurs différentes

les couleurs par défaut si pas d'argument couleur
1643573888416.png


exemple d'appel 1 avec couleur perso
1643573972450.png


exemple d'appel 2 avec couleur perso
1643574037450.png


dans l'appel comme je le montre dans les deux nouvelle sub d'apel dans le 2d module
peuvent être en long , RGB , vbconstante ou hex

comme ça a froid 😆😅😂
tester les deux sub dans le 2d module
 

Pièces jointes

  • test msgbox superkool V°3 patricktoulon pour usine a gaz.xlsm
    84.2 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
314 644
Messages
2 111 528
Membres
111 189
dernier inscrit
Laurent.