XL 2016 Lancement du formulaire

[Scorpio]

Bonjour à tous,
J'ai trouvé sur le net ce classeur, est, j'aimerais bien l'utiliser,
je ne suis pas un champion avec les codes, pour modifier quelques choses.
J'aimerais juste pouvoir utiliser ce formulaire qui ne veux pas s'ouvrir.
Est-ce que je pourrais demander à l'un (e), d'entre vous, de me donner un petit coup de main, sympa, merci.
A+++++

 

[Dranreb]

Bonsoir.
Avez vous essayé de garnir manuellement la propriété ColumnWidth de la ListBox dans la fenêtre de propriété ?
Chez nous il faut des largeurs de colonnes avec "," comme séparateur décimal séparées par des ";".
En Amérique ce sont sûrement des valeurs à "." décimal séparées par des ",".
MSForms complète par des "pt" derrière chaque valeur, mais on n'est pas obligé de les spécifier.
Que donne un MsgBox ListBox1.ColumnWidth ?
Mettez peut être aussi un MsgBox de l'expression que vous essayez de lui affecter, on ne sait jamais. Peut être qu'il attend bien une notation française mais qu'il y a de l'anglais dans votre conversion de nombre en texte, la produisant avec un point décimal au lieu d'une virgule ?

 

[Scorpio]

Bonjour Dranreb,
Merci de prendre un peut de temps pour te préoccuper de mon soucis.
J'ai essayé ça:
dans ColumnCount; 5
dans ColumnWidths: 30pt;30pt;30pt;30pt;30pt
Même chose, même message que poste #8
C'est pas que faire
A bientôt et merci.

 

[Chris24]

Bonjour le fil,le forum

Suite aux remarques de Staple1600 et Dranred, j'ai essayé de reproduire ton erreur en modifiant le séparateur ";" par ","
Bingo j'ai la même erreur🙂

Je te suggère de modifier ces deux lignes dans la procédure "EnteteListBox1()"

tempcol = tempcol & [Tableau1].Columns(c).Width * 1# & ";"🙁
tempcol = tempcol & [Tableau1].Columns(c).Width * 1# & ","🙂 (peut-être)

tempcol = tempcol & 0 & ";"🙁
tempcol = tempcol & 0 & ";"🙂 (peut-être)


Edit: pas vu ta réponse

Cdt

 

[Scorpio]

Salut Chris24,
J'ai fais la modif, alors non, pas de changement.

 

[Scorpio]

RE,
J'ai essayé ceci:
Modifier:
Private Sub Userform_Initialize() sans le 1 = Impossible de définir la propriété de ColomnWidths
et
Private Sub Userform1_Initialize() avec le 1 = ouvre le formulaire dans la feuille ,mais vide

 

[Chris24]

RE

En me relisant il y a une erreur dans mon post 19

tempcol = tempcol & 0 & ";"
tempcol = tempcol & 0 & ","

 

[Scorpio]

RE,
Idem, pas de changement.

 

[Chris24]

dans ColumnWidths: 30pt;30pt;30pt;30pt;30pt

Question as-tu dans le même temps mis en commentaire l'appel à la procédure "EnteteListBox1" dans la procédure UserForm_Initialize

 

[Scorpio]

oui,

 

[Dranreb]

Bonjour.
Et en le mettant manuellement, 30pt;30pt;30pt;30pt;30pt, est-ce refusé ?

 

[Scorpio]

Salut Dranreb,
A oui, j'ai pas de chance, j'ai aussi fais manuellement et c'est refusé.
A bon Dieu, que faut-il faire. 😉😉😉

 

[Dranreb]

Et 30pt,30pt,30pt,30pt,30pt, manuellement, est ce accepté ?

 

[Chris24]

Et si tu crées dans un nouveau classeur un formulaire avec une zone de liste à plusieurs colonnes

 

[Scorpio]

RE,
Ha,Ha, ta proposition commence à donner un fruit,
J'ai créer un autre classeur, et HO miracle, il semblerais que cela marche.

 

[Scorpio]

RE,
Ca marche, le voici.....
Il affiche les 7 colonnes, et j'aimerais afficher seulement les colonnes: 1-2-3-5-7