Microsoft 365 UserForm : est-il possible de ne pas l'afficher - mais uniquement le ComboBox ?

[Usine à gaz]

Bonsoir à toutes et à tous,

En voilà une comme je les aime lol

Je ne parle pas de la croix de l'UserForm.
Mais afficher uniquement le ComboBox
J'ai des recherches mais je n'ai pas trouvé
Peut-être impossible mais ...
Je pose quand même la question car ce serait super bien
Je joins un ch'ti fichier test,
Avec mes remerciements,
lionel,

 

[job75]

Bonsoir Lionel,

On a déjà mis la hauteur de la ComboBox à 1...

Mets la hauteur de l'UserForm à 1 et masque la barre des titres avec des APIs Windows.

Fais une recherche sur le web pour les avoir.

Bonne nuit.

 

[Usine à gaz]

Bonsoir Gérard,
Merci pour les pistes, je vais regarder demain
Bonne nuit,
lionel,

 

[bof]

bonjour,
Mais si tu n'as besoin que du combo et pas de UserForm, c'est également possible y compris avec un utilisation avancée : Dans le fichier joint le combo varie suivant la ligne cliquée (pour ne pas fournir de doublon.

 

[Usine à gaz]

Bonjour bof, le forum,
Merci pour ton fichier, ça me semble très bien
Je testerai ce soir avec mon fichier de travail et je te dirai
lionel,

 

[job75]

Bonjour Lionel, bof, le forum,

Il est sûr qu'il vaut mieux ne pas avoir d'UserForm et utiliser une ListBox dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal r As Range)
ListBox1.Visible = False
If Not Intersect(ActiveCell, [AD9:AD16]) Is Nothing Then Afficher "AD10:AD12"
If Not Intersect(ActiveCell, [AE9:AE16]) Is Nothing Then Afficher "AE10:AE13"
If Not Intersect(ActiveCell, [AF9:AF16]) Is Nothing Then Afficher "AF10:AF12"
If Not Intersect(ActiveCell, [AG9:AG16]) Is Nothing Then Afficher "AG10:AG12"
End Sub

Private Sub ListBox1_Change()
ActiveCell = ListBox1
[A1].Select
End Sub

Sub Afficher(adresse$)
With ListBox1
    .ListFillRange = adresse
    .Height = Range(adresse).Height 'àdapter éventuellement
    .Top = ActiveCell(2).Top
    .Left = ActiveCell.Left + (ActiveCell.Width - .Width) / 2
    .Visible = True
End With
End Sub

Bonne journée.

 

[job75]

Il n'existe pas de solution simple pour adapter la hauteur d'une ListBox à sa liste.

J'en ai proposé une sur ce fil :

https://www.excel-downloads.com/threads/ajustement-automatique-hauteur-listbox.20016017/

Mais je pense qu'ici il vaut mieux adapter la hauteur au cas par cas avec un 2ème argument :

Private Sub Worksheet_SelectionChange(ByVal r As Range)
ListBox1.Visible = False
If Not Intersect(ActiveCell, [AD9:AD16]) Is Nothing Then Afficher "AD10:AD12", 44 'hauteur à adapter au besoin
If Not Intersect(ActiveCell, [AE9:AE16]) Is Nothing Then Afficher "AE10:AE13", 58
If Not Intersect(ActiveCell, [AF9:AF16]) Is Nothing Then Afficher "AF10:AF12", 44
If Not Intersect(ActiveCell, [AG9:AG16]) Is Nothing Then Afficher "AG10:AG12", 44
End Sub

Private Sub ListBox1_Change()
ActiveCell = ListBox1
[A1].Select
End Sub

Sub Afficher(adresse$, h#)
With ListBox1
    .ListFillRange = adresse
    .IntegralHeight = False
    .Height = h
    .Top = ActiveCell(2).Top
    .Left = ActiveCell.Left + (ActiveCell.Width - .Width) / 2
    .Visible = True
End With
End Sub

 

[Usine à gaz]

Bonjour Gérard,
Je n'avais pas trouvé comment faire.
Merci pour ces codes.
Je teste dès que j'ai un moment et je te dirai
lionel,

 

[job75]

Dans le code précédent j'ai ajouté .IntegralHeight = False

C'est indispensable si l'on donne à la feuille un zoom <> 100%.

 

[Usine à gaz]

Merci vraiment Gérard
Nous avons encore eu des ralentissements à cause des UserForms.
Je vais tous les remplacer !
lionel,

 

[Usine à gaz]

Re-Gérard,
En plus, très facile à paramétrer ... je prends
Encore merci à toi
lionel,

 

[bof]

Mon modèle contenait une formule qui permet de régler la hauteur du combo en fonction du nombre d'éléments.
Dans le modèle la formule n'a pas été modifié donc c'est un peu trop long mais en changeant avec cette formule :

ActiveSheet.Shapes("ListBox1").Height = (18 - 1 / 4 * k) * k

on obtient une dimension optimale.
Après le problème est que cette formule est sensible à des tas de paramètres dont à minima la police et la taille de la police.
Dans le cas de ma démo la formule ci-dessus semble correcte avec du Calibri 12 (sous W10 + Exc 2016)
C'est d'autant plus important que dans le cas de cette démo le combo se décrémente ou s'incrémente à chaque ouverture.
Si vous basculez en Arial 14 ça va pas le faire, il faudra tatonner ! (la plupart du temps j'obtiens un réglage suffisant simplement en changeant le premier nombre...)
A+

 

[Usine à gaz]

Merci bof pour ton messages. Bien que les fichier de Job75 sont bien plus faciles d'utilisation, je testerai ta proposition
lionel,

 

[Usine à gaz]

Re-Gérard,

ça fonctionne super bien
J'ai une question :
If Not Intersect(ActiveCell, [AD9:AD16]) Is Nothing Then Afficher "AD5:AD8"

Est-il possible de remplacer :
- "Afficher "AD5:AD8"" par "Afficher "oui","non" etc... ?

 

[job75]

A priori aucun intérêt, ce qu'il faut renvoyer c'est la référence de la plage.