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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 15 Août 2020

• #31

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Août 2020

• #32

Tu racontes n'importe quoi Lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 15 Août 2020

• #33

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 15 Août 2020

• #34

"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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Août 2020

• #35

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 15 Août 2020

• #36

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
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Août 2020

• #37

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 15 Août 2020

• #38

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: 15 Août 2020

Vote positif 0 Vote négatif