[VBA] agrandir la surface du ListBox
Le
twinley
Bonsoir à tous,
Je pars d'un classeur de gestion de petite BD, venant d'un site.
Je l'adapte à mes besoins.
Le UserForm ne contient que 30 champs. J'en ajoute 20 de plus.
L'UF contient des onglets.
Dans le premier onglet j'ai agrandi la frame, ce qui me permet d'avoir
la totalité des 50 champs.
Dans le deuxième onglet, il y a un ListBox qui reçoit le résultat d'un tri.
Comme j'ai agrandi l'UF, je souhaite agrandir la surface du ListBox.
Je l'ai agrandi dans le graphique de création du UF.
Mais, cette augmentation de surface n'est pas transmise en mode
utilisation. Le listbox garde la surface initiale et ajoute un ascenseur.
Le champ Height passe bien de 195 à 365, mais n'est pas répercuté à l'usage.
Dommage.
Comment puis-je agrandir cette surface ?
Merci pour l'aide
--
à+twinley
Je pars d'un classeur de gestion de petite BD, venant d'un site.
Je l'adapte à mes besoins.
Le UserForm ne contient que 30 champs. J'en ajoute 20 de plus.
L'UF contient des onglets.
Dans le premier onglet j'ai agrandi la frame, ce qui me permet d'avoir
la totalité des 50 champs.
Dans le deuxième onglet, il y a un ListBox qui reçoit le résultat d'un tri.
Comme j'ai agrandi l'UF, je souhaite agrandir la surface du ListBox.
Je l'ai agrandi dans le graphique de création du UF.
Mais, cette augmentation de surface n'est pas transmise en mode
utilisation. Le listbox garde la surface initiale et ajoute un ascenseur.
Le champ Height passe bien de 195 à 365, mais n'est pas répercuté à l'usage.
Dommage.
Comment puis-je agrandir cette surface ?
Merci pour l'aide
--
à+twinley
Poser une question
?? Etonnant
tu l'inscrit en dûr dans la fenêtre propriété du listbox ou
dans le UF initialize
.height .width
lSteph
"twinley" e%
Les valeurs sont correctes dans les propriétes. Je les ai rerentré
manuellement, histoire de le décoincer.
Le graphique de construction est correct, mais pas en mode application.
J'ai la vieille valeur que l'auteur a utilisé.
Je ne vois pas de code qui paramètre ce listbox pour les dimensions.
J'ai vu dans la doc que :
Si vous spécifiez une valeur pour la propriété Left ou Top inférieure à
zéro, cette valeur sera utilisée pour calculer la hauteur ou largeur du
contrôle, mais une partie du contrôle ne sera pas visible sur la feuille.
J'ai :
left = 6 et top = 146
height = 360 et width = 525
Y a peut être une option qui le vérouille mais c'et pas général car dans
l'onglet N°1 j'ai retaillé comme je voulais.
je suis en XL2003.
à+twinley
...alors comme cela je ne vois pas trop
mais;;
promets rien mais ...
puis d'autres meilleurs pourront voir!
a+
lSteph
"twinley" %23067nb%
une solution à tester sur une copie du classeur,
supprime le listbox et recrée le en le renommant du même nom.
isabelle
J'ai ajouté une ligne dans la sub et l'affichage est bon maintenant.
Sub RechercheTable_Change()
On Error Resume Next
Me.RechercheTable.Height = "360"
Cells(RechercheTable.List(RechercheTable.ListIndex, 0), 1).Activate
Curseur = ActiveCell.Row
End Sub
J'ai ajouté Me.RechercheTable.Height = "360"
La propriété doit être bloquée par une option à la godille car il y a
bien 360 à la ligne Height. Ou bien un bug ?
Bon, en attendant mieux, je laisse cette ligne.
à+twinley