problème de code VBA

[JC de Lorient]

bonsoir le forum

ne manipulant pas trop VBA j'ai réussi a construire ce code avec l'aide de certains içi merci encore a eux !

Public Sub initlistbox()
Dim c As Range
Dim x As Byte
Dim a As Integer

ListBox1.clear

Sheets('Récap').Activate
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = '50;50;55;50;50;50;60;50;50;50'
x = 0
For Each c In Range('r2:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem cells(a, 1)
ListBox1.List(x, 0) = cells(a, 1).Text
ListBox1.List(x, 1) = cells(a, 2).Text
ListBox1.List(x, 2) = cells(a, 3).Text
ListBox1.List(x, 3) = cells(a, 10).Text
ListBox1.List(x, 4) = cells(a, 11).Text
ListBox1.List(x, 5) = cells(a, 13).Text
ListBox1.List(x, 6) = cells(a, 14).Text
ListBox1.List(x, 7) = cells(a, 15).Text
ListBox1.List(x, 8) = cells(a, 16).Text
ListBox1.List(x, 9) = a
*** 'ListBox1.List(x, 10) = cells(a, 19).Text ***
x = x + 1
End If
Next c

End Sub

je voudrais rajouter la lgne entre les * et là j'ai un message d'erreur erreur 380 : impossibilité de définir la propriété List Valeur de propriété non valide

après de multiple test je m'en remets a vous
l'erreur se met sur la dernière ligne ( en faisant F8)
peut etre le problème vient de plus haut mé peut etre decouvrirez vous le blème içi

par avance merci
JC

 

[Robert]

Bonsoir JC, Bonsoir le forum,

Ton problème vient, je crois, de ListBox1.ColumnCount = 10.
Pour rajouter ta ligne il te faudrait : ListBox1.ColumnCount = 11.

 

[Luki]

Bonsoir le fil,Jc

Argh! Doublé par Robert!

Je n'aurais pas dit autre chose§

A+

 

[JC de Lorient]

Salut Robert re le forum

non ce n'est pas ça !
ça je l'ai fait mais sans résultat

JC

 

[Hervé]

bonsoir tout le monde

Je pense que le problème vient du fait qu'une listbox n'accepte pas plus de 10 colonnes, mais je peux me tromper.

Salut

 

[Minick]

Salut,

Juste pour confirmer les dire d'Hervé, on est limité à 10 colonnes

@+ Minick

 

[JC de Lorient]

Re tout le monde

Merci Hervé et Mimick qui a confirmé !

se prendre la tête comme j'ai fé alors qu'il aurait fallu démarré par le début

en tout cas c solutionné et merci encore

JC