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

Microsoft 365 InputBox est-il possible de masquer la barre de titre ?

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
Bonjour à toutes et à tous,
Je vous souhaite une très beau WE 🙂

J'aimerais pouvoir "masquer la barre de titre" de mon InputBox.

J'ai fait des recherches mais je n'ai rien trouvé à l'instant et ce n'est peut-être pas possible !

Mais avec nos Supers Ténors, tout ou presque est possible, alors je pose la question.

Je joins un fichier test et je continue mes recherches.
Merci à toutes et à tous,
Amicalement,
lionel,
 

Pièces jointes

Solution
re,

je l'ai intégré en lieu et place de l'inputbox, trois lignes de code, je te laisse modifier l'userform à ton goût !

[édition : code modifié pour remise à zéro de la valeur de recherche en recherches successives ]

Bien cordialement, @+
Trier par date Trier par votes
re,

je ne pense pas que ce soit possible avec l'inputbox qui est une boite de dialogue prédéfinie, il faut utiliser un formulaire
je t'ai fait un exemple vide mais fonctionnel, bouton test

Bien cordialement, @+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
re-Bonjour Yeahou,

Merci pour ton travail et le fichier,
J'ai testé mais trop compliqué pour moi de mettre la recherche dans l'UserForm,
Je laisse tomber le sujet.
Ce que j'ai est déjà bien avec une super recherche 🙂
lionel,
 
Vote positif 0 Vote négatif
re,

je l'ai intégré en lieu et place de l'inputbox, trois lignes de code, je te laisse modifier l'userform à ton goût !

[édition : code modifié pour remise à zéro de la valeur de recherche en recherches successives ]

Bien cordialement, @+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Bonjour mes InputBoys préférés,
J'en profite pour partager un InputBoxPerso sur UserForm développé il y a quelques années qui permet de faire ça parmi beaucoup (trop ?) d'autres choses.

Fichier modifié le 05/07/2021 à 07h17 pour petites corrections diverses
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Dudu,

Merci pour ta perspicacité et ta gentillesse 🙂
J'ai ouvert ton fichier ajouté dans les codes "ptrsafe" (je suis sous office 365) et l'affichage semble effectivement super sympa.

Mais ça beug là :
VB: 
Sub RemoveUserFormCaption()
    Dim BitMask As Long
#If VBA7 Then
    Dim Hwnd As LongPtr
    Dim WindowStyle As LongPtr
#Else
    Dim Hwnd As Long
    Dim WindowStyle As Long
#End If

    Hwnd = GetForegroundWindow
    WindowStyle = GetWindowLong(Hwnd, GWL_STYLE)

    BitMask = WindowStyle And (Not WS_CAPTION) <ICI

    Call SetWindowLong(Hwnd, GWL_STYLE, BitMask)
    Call DrawMenuBar(Hwnd)
End Sub
BitMask = WindowStyle And (Not WS_CAPTION)

lionel 🙂
 
Vote positif 0 Vote négatif
@Usine à gaz ,la modification à faire est celle là, il faut déclarer BitMask pour les deux systèmes

Bien cordialement, @+
VB: 
Sub RemoveUserFormCaption()
#If VBA7 Then
    Dim BitMask As LongPtr
    Dim Hwnd As LongPtr
    Dim WindowStyle As LongPtr
#Else
    Dim BitMask As Long
    Dim Hwnd As Long
    Dim WindowStyle As Long
#End If

    Hwnd = GetForegroundWindow
    WindowStyle = GetWindowLong(Hwnd, GWL_STYLE)

    BitMask = WindowStyle And (Not WS_CAPTION)

    Call SetWindowLong(Hwnd, GWL_STYLE, BitMask)
    Call DrawMenuBar(Hwnd)
End Sub
 
Vote positif 0 Vote négatif
Bonsoir Yeahou, Lionel,

as-tu remarqué que depuis quelques temps, tu as un nouveau collègue ? 😜​

Etoto (salut) est passé Accro ; il a maint'nant 1 062 posts ! il est plutôt drôlement rapide, le p'tit suisse ! 😄 j'ai vu que toi tu as 1 961 posts ➯ dans 39 posts, tu vas passer Barbatruc ; mais ne traîne pas trop en cours de route, sinon, le p'tit suisse pourrait bien passer Barbatruc avant toi ! 😅 😂 🤣 comme dans la fable de La Fontaine "Le lièvre et la tortue" : « Rien ne sert de courir ; il faut partir à point ! » ; quoique dans le cas présent, il s'agirait plutôt d'un p'tit suisse galopant à toute allure ! 🤣 🤣 🤣

allez, un encouragement pour Etoto : hue ! 🐎 alors au tiercé, je parie Etoto gagnant ! va-t-il franchir la ligne d'arrivée des Barbatrucs avant Yeahou ? le reporter Tintin s'approche de Yeahou pour l'interroger avec son micro ; réponse de Yeahou : « miaou ! » ... ??? mais que fait donc un chat sur le champ d'courses de notre bel hippodrome de Longchamp ? remboursez les paris ! 😄 😜 🤪​

soan
 
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

  • Question Question
Autres afficher la barre d'outils accès rapide
Réponses
3
Affichages
99
Usine à gaz
  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
203
CISCO
E
  • Résolu(e)
XL 2016 Verrouillage cellules remplies après enregistrement fichier
Réponses
7
Affichages
304
job75
Z
  • Question Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
431
zedude
Z
  • Résolu(e)
XL 2016 Quoi de moins simple que de déterminer le RECT de la barre des tâches en multi-moniteurs ? Fichier pour test...
2
Réponses
23
Affichages
481
Dudu2
  • Question Question
Microsoft 365 combobox afficher la liste dés la changement de la valeur
Réponses
2
Affichages
88
pascal21
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
3 K
Dudu2
F
  • Question Question
Microsoft 365 Course à pied : entrer catégorie selon date de naissance des participants ?
Réponses
5
Affichages
168
francoismougeot
F
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
854
ThomAnalyses
T
  • Question Question
XL 2021 Barre de progression dans une listview - Tableau structuré avec barre de donnée dans la listview
Réponses
2
Affichages
577
AHK
  • Résolu(e)
Microsoft 365 récupérer la dernière ligne de chaque anomalie déclarée
Réponses
3
Affichages
83
natorp
  • Résolu(e)
XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"
Réponses
12
Affichages
546
Usine à gaz
  • Résolu(e)
XL 2021 Est-il possible d'activer ou désactiver un gif en vba ?
2 3
Réponses
39
Affichages
2 K
Dranreb
B
  • Résolu(e)
XL 2016 suivi de projet
Réponses
2
Affichages
667
BRUNO GILL
B
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
3 K
Dudu2
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
492
iruri
I
L
  • Résolu(e)
XL 2021 Mise en forme conditionnelle avec barre de données
Réponses
4
Affichages
521
Liowat
L
C
  • Question Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
557
ChTi160
L
  • Question Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
530
l.et.lilou
L
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
668
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…