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,

 

[Usine à gaz]

Re,
Le souci est qu'au départ il n'y a forcément rien dans les cellules AD9:AG16 et s'il n'y a rien, la ListBox est en blanc ... je ne peux donc affecter aucun commentaires ... tant pis je ne pourrai pas m'en servir.
Mais merci pour m'avoir répondu 🙂
lionel,

 

[job75]

Tu racontes n'importe quoi Lionel 🙄

 

[Usine à gaz]

Mais non ... mais je ne veux pas t'embêter. As-tu testé le fichier joint au post#29 ?

 

[Usine à gaz]

"Tu racontes n'importe quoi Lionel"
C'est vrai que je me demande parfois si je ne perds pas boule lol
Mais je viens de vérifier à nouveau et :
au départ il n'y a forcément rien dans les cellules AD9:AG16 et s'il n'y a rien, la ListBox est en blanc, c'est à dire sans proposition de commentaires à affecter.
lionel : en pleine possession de mes moyens mentaux ... pour l'instant 😉 lol

 

[job75]

Il est évident que les adresses des listes doivent être "AD5:AD7", "AE5:AE7", "AF5:AF7", "AG5:AG7" et leur hauteur 44.

 

[Usine à gaz]

lol, j'ai enfin compris :
dans le fichier du post#27 il y a ce code :

If Not Intersect(ActiveCell, [AD9:AD16]) Is Nothing Then Afficher "AD10:AD12", 100 '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

et il fallait modifier :

If Not Intersect(ActiveCell, [AD9:AD16]) Is Nothing Then Afficher "AD5:AD8", 60 'hauteur à adapter au besoin
If Not Intersect(ActiveCell, [AE9:AE16]) Is Nothing Then Afficher "AE5:AE8", 60
If Not Intersect(ActiveCell, [AF9:AF16]) Is Nothing Then Afficher "AF5:AF8", 60
If Not Intersect(ActiveCell, [AG9:AG16]) Is Nothing Then Afficher "AG5:AG8", 60

C'est bon ça marche 🙂
*Désolé du dérangement 😳
lionel,

 

[job75]

Pourquoi "AD5:AD8", 60 au lieu de "AD5:AD7", 44 ???

 

[Usine à gaz]

Re 🙂
Parce que la listbox affiche les propositions des commentaires de "AD5:AD8"
pour affecter la sélection en "AD9:AD16".
J'ai mis hauteur 60 parce que l'affichage est mieux sur mon écran.

Je cherche en plus à définir les largeurs comme tu l'a fait pour les hauteurs 🙂

Merci Gérard vraiment d'être encore là alors que je suis "dure de la feuille" lol 🙂
lionel,