Erreur sur code column - VBA

[Antho35]

Bonjour, j'ai un petit probléme sur une listBox. Je peux bien affichier jusqu'a 9 colognes, mais pas au déla. Alors que dans les propriétés de ma listbox j'en ai définit 14 (le nombre que je souhaite avoir). Qui à une petite solution.

Private Sub UserForm_Initialize()
Dim x As Integer
For x = 2 To Sheets("SYNTHESE_TRANSPORTPATIENT").Range("C65536").End(xlUp).Row
With Me.ListBox1
.AddItem Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 2)
.Column(1, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 3)
.Column(2, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 4)
.Column(3, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 5)
.Column(4, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 6)
.Column(5, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 7)
.Column(6, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 8)
.Column(7, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 9)
.Column(8, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 10)
.Column(9, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 11)
[COLOR="Red"].Column(10, .ListCount - 1) = Sheets("SYNTHESE_TRANSPORTPATIENT").Cells(x, 12)[/COLOR]
End With
Next x
End Sub

Merci

 

[ROGER2327]

Re : Erreur sur code column - VBA

Bonjour Antho35

Si ça ne fonctionne pas, essayez donc autre chose :

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
  With Sheets("SYNTHESE_TRANSPORTPATIENT")
    Me.ListBox1.List = .Range("B2:L" & .Range("C65536").End(xlUp).Row).Value
  End With
End Sub[/B][/COLOR]

Ça devrait faire l'affaire.​

ROGER2327
#4178

Lundi 16 Absolu 138 (Saint Ibicrate le Géomètre, pataphysicien, SQ)
2 Vendémiaire An CCXIX
2010-W38-4T09:59:06Z

 

[Antho35]

Re : Erreur sur code column - VBA

Cela semble être parfait. Par contre, une fois les élements dans ma listeBox, je dois les repatrie dans mon usferform, pour qu'il puissenet etre modifie. Ce code ne pas t-il pas poser probléme pour la suite des opération.

Aures question, dans mon tableau j'ai un format heure qui devient dans ma liste box du décimal. Que faire ???

 

[ROGER2327]

Re : Erreur sur code column - VBA

Re...

Cela semble être parfait. Par contre, une fois les élements dans ma listeBox, je dois les repatrie dans mon usferform, pour qu'il puissenet etre modifie. Ce code ne pas t-il pas poser probléme pour la suite des opération.

Aures question, dans mon tableau j'ai un format heure qui devient dans ma liste box du décimal. Que faire ???

Je ne peux donner suite pour l'instant :

C'est l'heure de se mettre en route pour la manif.​

Mais les spécialistes de la ListBox (je n'en suis pas...) vous donneront un coup de main.

Bon courage,​

ROGER2327
#4179

Lundi 16 Absolu 138 (Saint Ibicrate le Géomètre, pataphysicien, SQ)
2 Vendémiaire An CCXIX
2010-W38-4T10:56:38Z

 

[Antho35]

Re : Erreur sur code column - VBA

Bonne Manif Roger et les autres

Pour ma je suis en réuion avec ma chef, donc je me voit pas arriver dans ce bureau avec banderolles et tout le toutime.

Donc j'appelle les non-grévistes à m'aider. Les grévistes j'attend votre retour

 

[tbft]

Re : Erreur sur code column - VBA

bonjour tout le monde

peut être une réponse hors sujet
as tu essayé de mettre en forme avec FORMAT et travailler avec des chaines plutôt
avec des chiffres (si cela et possible)?

Désolé si je suis à coté de la plaque...

 

[Antho35]

Re : Erreur sur code column - VBA

Je ne sais pas si tu es as coté de la plaquette, mais en tout cas je le suis, je ne vois pas de quoi tu veux parler.

Peux tu m'en dire plus ?

Merci