Discussion :

[apdf1]

Bonjour

J'ai un petit souci avec un formulaire que j'ai trouvé sur un site et j'aimerai lui apporter une modification.
J'ai rajouter au code 4 textbox et j'ai toujours un message d'erreur.

"Impossible de définir la propriété List.

Valeur de propriété non valide"
Si quelqu'un pourrai me donner la solution sa serai sympa;

Je vous remercie d'avance

Cordialement

Max

[parmi]

Le problème vient du fait que tu utilises plus de colonnes qu'une Listbox peut prendre. Le maximum est 10 (Index 0 à 9)

Tu pourrais toujours regarder du côté du contrôle ListView, mais ça se travaille différemment...

[apdf1]

Bonjour Parmi

Je te remercie de ton invention
Y a t-il pas une solution sans passer par le contrôle ListView.

Je te remercie et te souhaite une bonne après midi

@+
Max

[casefayere]

Suite à l'observation de parmi, tu peux (peut-être) rassembler des cellules, quitte à revoir ton traitement après avec un split (au cas où)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
        With Me.ListBox1
            .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(nl, 2)
            .List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(nl, 3)
            .List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(nl, 4)
            .List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(nl, 5) & " " & Sheets("Feuil1").Cells(nl, 6)
            .List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(nl, 7) & " " & Sheets("Feuil1").Cells(nl, 8)
            .List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(nl, 9) & " " & Sheets("Feuil1").Cells(nl, 10)
            .List(.ListCount - 1, 7) = Sheets("Feuil1").Cells(nl, 11) & " " & Sheets("Feuil1").Cells(nl, 12)
            .List(.ListCount - 1, 8) = Sheets("Feuil1").Cells(nl, 13)
            .List(.ListCount - 1, 9) = nl
        End With
...

PS : penses à remettre le bon nombre de colonnes dans ta listbox

[parmi]

Ou encore utiliser 2 listbox, côte-à-côte, mais ce n'est pas simple à gérer...

[apdf1]

Bonjour casefayere,

Je te remercie mais j'ai toujours un petit problème de message.

Impossible de lire la propriété Column. Argument non valide

Je te remercie

@+

Max

[parmi]

As-tu ajusté le ColumnsCount dans ton code ou dans les propriétés de la Listbox ?

[apdf1]

Re,

Oui

Code :

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

1
2
3
4
For x = 0 To 11
 
    Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex)
Next x

@+
Max