XL 2010 Résolu par Pierre-Jean et Roland : Affichage UserForm (toute la liste)

Usine à gaz · 3 Janvier 2017

Bonjour à toutes et à tous,

Toujours dans mon fichier de travail, j'ai une "petite cerise sur le gâteau" à vous soumettre.

Les tâches sont très répétitives et chaque temps gagné, si minime soit-il, est important.
C'est aussi pour le fun car celle-là me semble coriace, même pour les ténors VBA mais je sais que votre technicité risque fort de me démentir. J'ai pu le constater à maintes reprises.
(LOL, il faut bien que je vous titilles un peu ), mais j'avoue que ce serait génial comme toutes les réponses que vous m'avez apporté et qui m'ont tellement été bénéfiques dans mon boulot.

Je pose ma question
dans le fichier joint :
Quand on clique dans la colonne P de ligne 7 à 20, un UserForm s'ouvre
Mais, l'affichage est limité (liste tronquée)
1 - Est-il possible d'avoir l'affichage complet de la liste ?
2 - si OUI, est-il possible que l'affichage s'adapte à la hauteur de l'écran s'il est trop long (en fonction de sa hauteur (nombre de lignes dans la liste)) ?
(Bon, on peut toujours rêver )

C'est peut-être "pas tout bien clair LOL"
J'espère qu'avec le fichier (feuille protégée sans mot de passe) ce sera plus compréhensible.
De grands remerciements pour déjà avoir pu me comprendre
Amicalement,
Lionel,

pierrejean · 3 Janvier 2017

Bonjour Lionel

Teste:

Code:

Private Sub UserForm_Initialize()
Me.ComboBox1.ListRows = Range("Base").Rows.Count
Me.Top = 0
End Sub

Usine à gaz · 3 Janvier 2017

Bonjour Pierre Jean,
Très bonne année à vous
Donc, ce serait possible ?
Je vais tester,
Merci de m'avoir répondu.
Amicalement,
Lionel,

Usine à gaz · 3 Janvier 2017

Re Pierre-Jean,
ça marche et ça reste magique pour moi.
Vraiment Merci pour cette solution.
Je me demandais si c'était possible et tout ou presque possible en vba avec excel.
On peut faire des boudins aussi ?
Amicalement,
Lionel,

Roland_M · 3 Janvier 2017

Bonjour tout le monde,

Salut à toi pierrejean !

Lionel, attention tout de même, car là tu n'auras plus l'ascenseur !
un plus petit écran ou une liste plus grande et tu n'auras pas accès à toute ta liste !

fais un essai en agrandissant ta liste et tu comprendras !

Usine à gaz · 3 Janvier 2017

Bonjour Roland,

Merci encore d'être là maman,
OUI j'ai vu que si le nombre de lignes est trop important, il n'y a pas d'ascenseur.
Mais j'y ferai attention.
Par contre l'idéal, serait que l'UserForm puisse s'adapter à la hauteur de l'écran si "ça dépasse" mais là, c'est peut-être un rêve ... quoi que, vous êtes des magiciens

Amicalement,
Lionel,

Roland_M · 3 Janvier 2017

re

ce n'est pas un rêve, c'est simplement du travail !
déjà choisir une police régulière "courier new" d'une taille raisonnable(10 ou 11) et pas en gras pour afficher un max de lignes !
ensuite en déduisant de application.height la hauteur de l'userf le reste diviser par exemple par 15(il faut faire des essais)
nous donnerait le nombre de lignes maximum !

Usine à gaz · 3 Janvier 2017

Re Roland,
Merci pour tes informations, je vais regarder ce soir

Roland_M · 3 Janvier 2017

re

voir pour toi essayer ci-joint

Usine à gaz · 3 Janvier 2017

Ah Roland,
Tu es formidable.
Je te remercie,
Je regarde,
Amicalement,
Lionel,

Usine à gaz · 3 Janvier 2017

Re Roland,
C'est tout bon comme ça merci pour ce complément sécurisant.
Encore une fois Merci
Bonne fin de journée,
LOL, je vais tenter de comprendre (un peu) le code
Amicalement,
Lionel,

XL 2010 Résolu par Pierre-Jean et Roland : Affichage UserForm (toute la liste)

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires