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

tu n'a plus la marge basse ?
je m'attaque aux couleur decidée dans l'appel elles seront optionel et les couleurs actuelles par defaut
a toute a l'heure

Usine à gaz · 30 Janvier 2022

re-voilou :

patricktoulon · 30 Janvier 2022

re
bonsoir
désolé je suis parti famille oblige
bon on est bon question marge
demain je te donne l es couleurs dynamique optionelles

Usine à gaz · 30 Janvier 2022

Ne sois pas désolé Patrick, c'est normal et j'ai réussi à survivre lol

patricktoulon · 30 Janvier 2022

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

Usine à gaz · 30 Janvier 2022

patricktoulon à dit:
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 · 30 Janvier 2022

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

exemple d'appel 1 avec couleur perso

exemple d'appel 2 avec couleur perso

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

Usine à gaz · 30 Janvier 2022

Bsr Patrick,

Déjà très bien cette version
Je suis fatigué et je dois me lever à 5 heures.
Mon lit m'appelle ... il me dit viens ... viens,
Bonne nuit,
A demain

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

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Discussions similaires