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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

En voilà une comme je les aime lol
Sans titre.jpg

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é :mad:
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,
 

Pièces jointes

  • infos_com.xlsm
    48.1 KB · Affichages: 53

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
"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
 

Usine à gaz

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

VB:
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 :
Code:
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 :oops:
lionel,
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo