Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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

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...
Trier par date Trier par votes
Le dernier bouton est collé à la bordure droite ...
Bonne nuit à tous, moi dodo ...
 
Vote positif 0 Vote négatif
patricktoulon à dit:
ok
regarde bien cette capture
Cliquez pour agrandir...
LOL Pourquoi ce point d'interrogation ???
Y a pourtant pas de question à se poser. 😁

patricktoulon à dit:
je pense que l'on a une limite avec les msgbox puisque dans le debug on est bon
Cliquez pour agrandir...
La limite c'est simplement la police de caractères : tu vois bien que "le debug" utilise une police de console alors que la MsgBox utilise une autre police. 😉

C'est juste ça le problème : tu ne peux pas calculer un alignement automatique à cause de la police proportionnelle. 😉
 
Dernière édition:
Vote positif 0 Vote négatif
re
bon ben on reste en courier new alors comme ça tout le monde est content
chez moi j'en ai 4 ou 5 de font qui marchent dans le textbox du msgbox perso tout en restant en courrier new dans la console et les deux sont bien alignés

sinon j'ai une autre méthode avec deux textbox mais elle vous plaira pas
j'en ai une autre méthode aussi infaillible avec un control webbrowser en html
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
700
Eric 888
  • Question Question
Microsoft 365 [Résolu] | Ribbon | Afficher/Masquer le Ruban selon la feuille active
Réponses
9
Affichages
741
patricktoulon
F
  • Question Question
Autres Déplacer la ligne vers la zone de liste et la feuille
Réponses
6
Affichages
197
job75
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
152
desmonts
D
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
285
NONO14
N
A
  • Question Question
XL 2019 VBA newbie
3 4 5
Réponses
72
Affichages
1 K
job75
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
690
Nel'
N
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
170
Pierreavecunp
P
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
268
AlCapone
M
  • Question Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
1 K
patricktoulon
T
  • Question Question
Microsoft 365 vba : nom de tableau si feuille non active
Réponses
13
Affichages
641
thenesol
T
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
599
Julien_B
J
  • 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
1 K
TooFatBoy
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
316
fanch55
  • Question Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
2 K
Tartine
T
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
627
steph_29120
S
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
284
chris6999
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
214
Daniel200666
D
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
367
NONO14
N
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
346
thunder23
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…