Equivalent ListBox wordwrap

Version imprimable

02/05/2016, 15h40
jeanmidudu

Equivalent ListBox wordwrap

Bonjour à tous,

Voilà, je suis confronté à un problème. J'ai actuellement un classeur avec une centaine de lignes. Ces lignes doivent être affichées dans une ListBox (ou son équivalent, d'où le sujet).
Cependant, la plupart des lignes dépassent largement la largeur de la ListBox :(, et le wordwrapping n'étant pas disponible pour les ListBox :calim2:, je me demandais s'il n'y a pas moyen d'avoir un rendu équivalent, car les lignes doivent être totalement lisibles, et on doit pouvoir cliquer dessus (donc diviser une ligne en plusieurs n'est pas possible).

Voilà, si quelqu'un à une idée pour implémenter un équivalent de listBox avec wordwrap, je suis preneur (je ne demande pas forcément du code, mais juste un ligne directrice).

Merci d'avance!
02/05/2016, 16h28
unparia

Bonjour

C'est à toi qu'il appartient de définir les largeurs de colonnes de ta listbox, tout simplement.
02/05/2016, 16h31
jeanmidudu

Le fait est que certaines lignes font 2 à 3 fois la taille de l'écran (qui est un 15 pouces). On peut même parler de paragraphes si tu préfères. Et bien sûr il est possible d'utiliser une scrollbar horizontale, mais ma demande consiste justement à en éviter l'utilisation, en utilisant un équivalent de wordwrapping.

Je reformule donc ma demande :

J'ai besoin de créer l'équivalent d'un listBox avec wordwrapping pour empêcher l'utilisation du défilement horizontal.

Merci d'avance pour vos réponses.
02/05/2016, 16h54
unparia

Le contrôle Listbox n'est pas construit pour permettre ce que tu veux faire. Il ne peut même pas traduire par un saut de ligne l'ajout de la constante VBCrlf.
La seule solution serait donc construire de A à Z ton propre Ocx. Démesuré !

Mais j'y pense : une MSFlexgrid est plus souple et te permet de faire cela.
A utiliser, donc, à la place de ta listbox.
02/05/2016, 18h01
jeanmidudu

Citation:

Envoyé par unparia

Mais j'y pense : une MSFlexgrid est plus souple et te permet de faire cela.
A utiliser, donc, à la place de ta listbox.

Ca me semble une bonne idée, mais en cherchant, je n'ai pas pu trouver d'explication concernant son utilisation dans un usf, à part en utilisant le VB6 (auquel je n'ai pas accès)
02/05/2016, 18h45
unparia

Euh ...
A toi de te montrer un peu "débrouillard", si tu la veux, cette grille .
Je ne sais pas trop si c'est ou non totalement "légal", mais tu l'auras, si tu fais ceci :
1) télécharger cet ocx (on le trouve un peu partout sur la toile)
2) l'enregistrer (utilisation de regsvr32)
3) si tu lo'insères sur un userform, tu auras un vilain petit message disant qu'il n'est pas utilisable
4) il ne l'est pas car un drapeau a été mis dans la base de registre, à la clé :
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{6262D3A0-531B-11CF-91F6-C2863C385E30}]
"Compatibility Flags"=dword:00000400
Mets-y 0 à la place de 400 et ... constate ensuite ...
Je n'en dirai pas plus à ce sujet. A toi (et toi seul) d'y jouer, si tu la veux, cette grille.
02/05/2016, 18h50
cerede2000

Oui enfin si ton fichier Excel est à destination d'utilisateurs finaux, il te faudra faire la manip sur chaque PC !
Autrement dit c'est relativement galère à déployer ensuite....
On se passe déjà du contrôle Calendar MS parce qu'il pose soucis.
Alors sur un OCX à inscrire + modif registre....

Enfin à toi de voir !
02/05/2016, 19h10
unparia

Bonjour cerede2000
Tout-à-fait.
Et c'est l'une des raisons de la "formulation" de mon message précédent.
02/05/2016, 19h17
cerede2000

Tu peux plutôt imaginer de créé une pseudo gridview avec l'ajout de contrôle dynamique dans ton USF.
J'ai déjà réalisé quelque chose de similaire avec pour chaque ligne, des textbox, des label et des combobox et en conteneur une frame.

Par contre ça demande beaucoup de dextérité avec VBA !
02/05/2016, 20h08
clementmarcotte

Cela confirme l'évidence. Excel n'est pas fait, n'a jamais été fait et ne sera jamais fait pour gérer des données.
02/05/2016, 20h27
clementmarcotte

Bonjour,

Citation:

Envoyé par unparia

Euh ...
Je ne sais pas trop si c'est ou non totalement "légal", mais tu l'auras, si tu fais ceci :

Non. Le CLUF de VB6 est formel. La plupart de contrôles VB6 ne peuvent être redistribués qu'à l'intérieur d'applications compilées

Et puis, il n'est pas compatible avec les Office à 64 bits. Dès qu'il va tomber sur un Office à 64 bits, il va revenir brailler que son Flexgrid ne fonctionne pas.

~~Et puis, 3 lignes sur un écran de 15 pouces mises bout à bout, c'est 45 pouces environ. Et, 1 mètre français, c'est 39,37 pouces.~~

Le patron qui veut que ses employés lisent plusieurs suites de caractères de plus d'un mètre de long avant de choisir la bonne est soit, soit un maudit imbécile, soit un attardé mental ou un tortionnaire de la pire espèce.

Édition:

Je me suis planté avec mon 45 pouces. Puisque c'est 15 pouces en diagonale, la longueur n'atteint pas 45 pouces, mais le fond de la démonstration ne change pas...
02/05/2016, 20h36
unparia

Bonjour clementmarcotte
Ce que tu exprimes est la sagesse même. J'approuve à 100%.
Il en va d'ailleurs de même en ce qui concerne beaucoup d'autres "choses" que je lis ici et là et qui sont souvent (en plus) totalement dépendantes de changement de version de ce qui est utilisé.
Je te mets donc un pouce vert et regrette de ne pas pouvoir en mettre plus.
02/05/2016, 23h56
jeanmidudu

Merci pour toutes vos réponses,

Je vais clarifier la situation dans laquelle je me trouve :

Il s'agit d'un projet d'entreprise à destination de 200 personnes, et qui s'il apparaît convenable sera porté pour plusieurs centaines d'autres (je travaille chez Renault).
S'agissant d'un réseau d'entreprise, toutes les solutions qui nécessitent des installations de produits extérieurs sont non autorisés, de même que la modification du registre avec regEdit.

Ensuite, je clame mon innocence, je sais qu'Excel n'a, n'est et ne sera jamais un SGBD. Mais je n'ai que la suite office de base pour travailler (Access n'est donc pas inclus, car ça coûte des sous (trop cher car au-dessus de 0€)) et trop peu de personnes au sein de l'entreprise n'en maitrisent les bases.

Enfin, concernant le projet ma demande en soi, considérez ces lignes (je n'ai pas dit des phrases) comme des paragraphes. Car oui ce sont des paragraphes, que l'utilisateur d'une équipe rédige à destination d'une autre. Cela tous les jours, et il faut compter une centaine de lignes (par jour, par équipe). Les paragraphes en question sont TOUJOURS réduits au maximum et sont composés à 90% d'abréviations (et ne peuvent donc être réduits), car l'information doit circuler très pouvoir être lue rapidement.

D'où ma demande, qui est un minimum réfléchie, car je n'ai à priori par d'autres solutions en tête.

En tout cas, merci du temps que vous passez sur le sujet !
03/05/2016, 02h03
clementmarcotte

Bonjour,

Citation:

(je travaille chez Renault)
Access n'est donc pas inclus, car ça coûte des sous.

Maintenant, on sait pourquoi que les Renault qui aboutissaient au Canada étaient rouillées après un hiver.

100 lignes divisés en blocs de 3 lignes, cela fait 33 blocs à lire avant de trouver le bon, en supposant que le bon soit le dernier et que tu n'aies pas oublié le premier rendu au dernier. Dis leur que tu ne peux pas, de venir lire cela, et passe à autre chose.

Tu peux toujours prendre une feuille avec une cellule par baragouinage différent et utiliser worksheet_SelectionChange pour trouver c'est quelle cellule que la victime a choisie et continuer à partir de là.

Ou bien tu prends Word et tu adaptes à partir de là:

https://www.google.com/url?q=http://...ZQt32Tqm6FfBSQ

Mais là ton imbécile va dire que cela coûte trop cher de développer une usine à gaz à partir de Word
03/05/2016, 08h43
jeanmidudu

Citation:

Envoyé par clementmarcotte

Bonjour,
100 lignes divisés en blocs de 3 lignes, cela fait 33 blocs à lire avant de trouver le bon, en supposant que le bon soit le dernier et que tu n'aies pas oublié le premier rendu au dernier.

Je n'ai pas bien compris ce passage là. Mais si j'ai bien saisi, l'utilisateur va voir le paragraphe qui l'intéresse selon toi. Je précise que ce n'est pas le cas. Les utilisateurs doivent lire l'ensemble des paragraphes, et selon divers critères (non définissables informatiquement), il doit pouvoir modifier, répondre ou transférer les paragraphes qui le concernent. Il n'y a donc pas de recherche, mais bien une lecture de la totalité des informations.

Citation:

Tu peux toujours prendre une feuille avec une cellule par baragouinage différent et utiliser worksheet_SelectionChange pour trouver c'est quelle cellule que la victime a choisie et continuer à partir de là.

Archiver autant de feuilles par jour n'est absolument pas viable, la quantité serait beaucoup trop importante, la recherche d'informations sur un évènement datant d'il y a 3 mois (voire plus, il arrive de remonter jusqu'à 1 an et demi, voire 2 ans en arrière) serait très compliqué. S'il faut ouvrir un classeur pour chaque journée, puis chaque feuille pour lire chaque élément.... Bref, ce n'est pas envisageable.

Citation:

Ou bien tu prends Word et tu adaptes à partir de là:

https://www.google.com/url?q=http://...ZQt32Tqm6FfBSQ

Mais là ton imbécile va dire que cela coûte trop cher de développer une usine à gaz à partir de Word

J'aurais pu supprimer la dernière phrase de la citation, car j'ai accès à Word, et bien que ce soit une usine à gaz, je pense que c'est probablement la meilleure solution, que je ne connaissais pas!

Après si vous avez d'autres idées, je suis toujours preneur. Personnellement, j'ai aussi pensé à 2 choses et j'aimerai que vous me disiez si vous trouvez cela viable:
-Dans l' usf, créer une frame avec scrollbar (verticale bien entendu) dans laquelle on créerait dynamiquement des labels et on modifierait la taille de défilement.
-Dans l'usf, créer une frame avec un ensemble de labels (de quoi remplir la frame tout en assurant qu'un paragraphe puisse entrer dans chaque) avec un spin qui ferait changer de paragraphe.

Est-ce que vous pensez que l'une de ces 2 solutions serait envisageable?

1 pièce(s) jointe(s)

Problème résolu. Il existe en fait bel et bien un moyen de produire un équivalent.

En utilisant une scrollbar (ou un spinbutton selon le rendu souhaité, pour mon cas c'est plus intéressant). Avec un ensemble, non pas de labels mais de textbox qui utilisent avec multiligne et wordwrap (en cas de dépassement). Et ainsi il suffit de faire défiler comme s'il s'agissait d'une simple listbox.

Voilà le rendu (c'est du fait très rapidement donc pas très agréable à regarder pour l'instant), avec le code associé:
Pièce jointe 208557

Pour l'usf :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Option Explicit Private Sub SpinButton1_SpinDown() If Module1.ligne < Sheets(1).Range("A1").End(xlDown).Row - 6 Then Module1.ligne = Module1.ligne + 1 Call Module1.remplirTexte(Me) End If End Sub Private Sub SpinButton1_SpinUp() If Module1.ligne > 1 Then Module1.ligne = Module1.ligne - 1 Call Module1.remplirTexte(Me) End If End Sub Private Sub UserForm_Initialize() Module1.ligne = 1 Call Module1.remplirTexte(Me) End Sub
Dans un module (pour simplifier les traitements) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Public ligne As Integer Public Sub remplirTexte(usf As UserForm) usf.TextBox1.Value = Sheets(1).Range("A" & ligne).Value usf.TextBox2.Value = Sheets(1).Range("A" & (ligne + 1)).Value usf.TextBox3.Value = Sheets(1).Range("A" & (ligne + 2)).Value usf.TextBox4.Value = Sheets(1).Range("A" & (ligne + 3)).Value usf.TextBox5.Value = Sheets(1).Range("A" & (ligne + 4)).Value usf.TextBox6.Value = Sheets(1).Range("A" & (ligne + 5)).Value End Sub