Metre les données d'un listbox dans une variableRésolu

Question

Bonjour, 

J'ai un petit probleme, je ne trouve pas comment faire pour metre toutes les donn&#233;es d'une liste box dans une variable. Vous ne savez pas?

Merci d'avance

Gobillot · Accepted Answer

Dim i   As Integer

    Dim Str As String

    

    For i = 0 To List1.ListCount - 1

        Str = Str & List1.List(i) & vbCrLf

        Next

    MsgBox Str


Daniel

cs_CanisLupus · Answer

Salut,

Ta question n'est pas tr&#232;s claire, "TOUTES les donn&#233;es d'une listbox dans UNE variable" ?

Sans plus de pr&#233;cisions, je pencherais pour un tableau :

dim tableau() as string
dim i as integer

for i=0 to list1.listcount -1
   redim preserve tableau(i)
   tableau(i) = list1.list(i)
next

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

ScSami · Answer

Lupus, sans vouloir te corriger, je
me dois de pr&#233;ciser que le redimensionnement des tableaux avec Preserve
est plutot lent... donc, il vaut mieux le faire avant de le remplir !!!




Dim tableau() As String
Dim i As Integer

ReDim Preserve tableau(list1.listcount -1)

For i=0 To list1.listcount -1
   tableau(i) = list1.list(i)
Next i



D'ailleurs, je me demande m&#234;me s'il ne serait pas plus propre de faire &#231;a avec un For..Each !!!



Enjoy



(Si une r&#233;ponse vous convient, cliquez sur le bouton "Accepter la r&#233;ponse"...)

ScSami · Answer

Encore que... le "Preserve" du "Redim Preserve tableau(list1.listcount - 1)" est de trop!!!



Je dis une connerie ???

comtention · Answer

Merci beaucoups a vous et d&#233;sol&#233; si je n'ai pas &#233;t&#233; complet...

cs_CanisLupus · Answer

Tu as raison ScSami

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Metre les données d'un listbox dans une variable

6 réponses

Discussions similaires