Discussion :

[Zimzimut]

Bonjour,

voilà, je voudrais pourvoir "stocker" une Listbox entière dans une variable, pour pouvoir ensuite l'appeler plus tard dans une procédure. Est-ce possible ? (la listbox contient 2 colonnes).

Est-il ossible de faire ceci ou alors faut-il "mémoriser" chaque entrée de la listbox pour pouvoir la recontruire ?

[Phifi]

Bonjour,

je dirais "Why not" dans un anglais impeccable : utilse un tableau à deux dimensions à mon avis

[Zimzimut]

MmmmMmouiuiii ?

Concrètement, puis-je stocker la List Box dans une variable et y faire appel ensuite ? du genre Listbox1 = Variable1 et ensuite l'appeler ? il faut pas spécifier qui est quoi ? parceque là, ca plante

En gros j'ai une procédure qui génère une Listbox à la fin, avec 1 certain ordre dans les lignes. Cette procédure doit débuter par la lecture de la Listbox générée juste avant (en gros la Listbox 2 et générée en partant de la Listbox 1).

je voudrais stocker cette Listbox dans une sorte de "variable"

[Delbeke]

Phase enregistrement

Code :

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

1
2
3
4
5
6
Dim strTemp as string
Dim iPnt as Integer
strTemp=""
For iPnt=0 to List1.ListCount-1
  strTemp= stTemp & List1.List(iPnt) & VbCrLf
Next

Phase Reconstitution

Code :

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

1
2
3
4
5
6
Dim Tble as Variant
Tble=Split(strTemp,VbCrLf)
List1.Clear
For iPnt=0 to Ubound(Tble)-1
 List1.Additem Tble(ipnt)
Next

[Zimzimut]

merci pour cette réponse Delbeke, mais pourrais tu me l'expliquer rapidement ? J'avoue être débutant en progra et j'ai beaucoup de mal (belle métaphore...) à comprendre ce que fait ta procédure.

Merci encore pour ta patience

[La Praline]

(belle métaphore...)

Pléonasme plutôt ?
___________________________________________
Bonjour,

Tu pourrais aussi(comme toujours j'ai des idées "non communes"... mais bon "un clavier Azerty en vaut deux" ... ) stocker les élements de ta listbox dans une table access par exemple et de ce fait tu pourrais y acceder facilement...

Cordialement

[zazaraignée]

Pourquoi donc! Il suffit de la 'pousser' directement en paramètre de ta procédure. Si tu veux en envoyer une copie plutôt que la procédure modifie ta listbox, tu spécifie 'ByVal' dans la définition de ta procédure. Exemple:

Code :

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

1
2
3
Private Sub maProcédure(ByVal maListe As ListBox)
    ' le code de ma procédure
End Sub

Parcontre, si tu veux que ta ListBox soit modifiée via ta procédure, soit tu ne mets rien devant le nom de ton paramètre, soit tu mets 'ByRef' qui a le mérite d'être clair. Exemple:

Code :

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

1
2
3
Private Sub maProcédure(maListe As ListBox)
    ' le code de ma procédure
End Sub

ou encore

Code :

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

1
2
3
Private Sub maProcédure(ByRef maListe As ListBox)
    ' le code de ma procédure
End Sub

[avigeilpro]

Tout à fais zazaraignée, c'est ce qu'on appel le passage de paramètre "par valeur" et le passage "par adresse".
Petite explication pour Zimzimut :
En gros lorsque ta liste s'appel ListBox1, ceci est une variable (ou plutot un pointeur qui pointe sur une zone mémoire). Donc tu peux créer un autre pointeur et lui demander de pointer au même endroit (passage par adresse = ByRef ou rien du tout). Le passage par valeur (ByVal) signifie que l'on ne fait passer que la valeur de la variable, on en fait donc une copie (nouvelle zone memoire avec un nouveau pointeur, il sagit donc d'une variable diférente), et lorsque l'on modifie la copie, l'originale ne bouge pas.
J'espère avoir été clair dans mes explications