Discussion :

[Patscaph]

Bonjour,
J'ai trouvé un fichier excel sur http://boisgontierjacques.free.fr/ à l'item Formulaire "Formulaire liste multi-colonnes" FormIntuitifMultiColonnes ou le ficheir porte le nom de formulintuitive42.xls. Et bien je souhaite l'utiliser avec excel 2007 et ce dernier affiche un message d'erreur (Impossible de définir la propriété columwidths. Le type ne correspond pas.) Que dois-je modifier pour permettre à ce programme de fonctionner correctement? Je vous avoue que je suis très dépassé par ce type de problème et je souhaite que quelqu'un puisse m'aider. Merci à l'avance. Je met le fichier en question pour vous permettre de tester la problématique : recherchemulticolonne.xls
Au plaisir de vous lire à ce sujet...

[Menhir]

Pourquoi ne poses-tu pas la question au créateur du code ?

[Docmarti]

Bonjour Patscaph.

Quelle est la valeur qui est attribuée à .ColumnWidths ?
Est-ce une valeur de type STRING ?

[Patscaph]

Bonjour Docmarti,

Je présume que la valeur de columnwidth est fonction de la largeur que le programme identifie aux cellules du tableau excel. Pour vous permettre de mieux comprendre quelque chose que je risque de trop mal expliquer, je vous suggère d'accéder au fichier joint initialement et de faire un déroulement pas à pas si ce n'est pas trop demandé. merci pour votre aide.

Pour répondre à Menhir,
Le site en question de JacquesBoisGontier ne m'indique pas comment joindre la personne en question et il y présente une multitude de code VBA et conseil très utile. Sans doute qu'il très connu de votre côté de l'atlantique alors peut être avez vous une adresse pour moi. merci à l'avance.

Au plaisir de voir lire.....

[Patscaph]

Bonjour,
J'ai du développement pour ceux qui veulent bien m'aider. Et bien j'ai mis en commentaire la ligne de code problématique et maintenant le code passe. Toutefois, j'ai quand même besoin de l'inclure au code pour que la considération de la largeur des colonnes soit tenue en compte pour positionner les 'label' dans mon formulaire. Je pense que la solution est très simple et a trait à la syntaxe de 2003 qui ne serait pas compatible avec 2007. Voici la ligne provenant du userform:
'Me.ListBox1.ColumnWidths = temp
Que dois-je modifier pour cette ligne soit bien prise en compte?

Le code complet est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  nbcol = f.[A1].CurrentRegion.Columns.Count
  Me.ListBox1.ColumnCount = nbcol
  Set plage = f.[A1].CurrentRegion
  Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1)
  Me.ListBox1.List = plage.Value
  i = 1
  x = 15
  For i = 1 To nbcol
    retour = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
    Me("label" & i).Caption = f.Cells(1, i)
    Me("label" & i).Top = 45
    Me("label" & i).Left = x
    x = x + f.Columns(i).Width * 1.1
    temp = temp & f.Columns(i).Width * 1.1 & ";"
  Next
 
  'Me.ListBox1.ColumnWidths = temp      <---Code mit en commentaire
 
  For b = 1 To nbcol: Set Lbl(b).GrLabel = Me("Label" & b): Next b
End Sub

Pour plus de détail svp vous référer au fichier mit en pièce jointe au post initial.

[Menhir]

Est-ce que tu as essayé, juste avant la ligne qui ne marche pas, de regarder le contenu de ta variable temp et de Me.ListBox1.ColumnWidths ?
Essaye de mettre avant cette ligne simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Debug.Print Me.ListBox1.ColumnWidths
Debug.Print temp