comment faire passer un nom de variable à un module afin d'utiliser ensuite les valeurs de cette variable

 J'aimerais mutualiser une fonction d'affichage dans une textbox pour plusieurs tableaux contenant du texte.

Du genre :

dim variable() as string

public affichage (varible as string)

for i=1to n
tetxbox.text= tetxbox.text+ variable(i)
next i

end sub


Sachant, que variable doit pouvoir correspondre à plusieurs tableaux.

Zifnig
http://zifnig.free.fr

salut,
Ta procédure doit deja comprendre un "SUB"
Dans ta procédure, "Varible" correspond à quoi, et doit être intégré ou ?
Dans ta procédure, "n correspond à quoi, et comment la récupères tu ?
Dans tout ça, je ne vois qu'un seul tableau : dim variable() as string, ou sont les autres ?

Bonne prog, liquide_vaisselle_76@hotmail.fr
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

Salut,

Si tu prog en vb6, tu peux essayer ça :

Private Sub Form_Load()
Dim variable(1) As String
  variable(1) = "coucou"
  Affichage variable
End Sub

Sub Affichage(ByVal v As Variant)
  MsgBox v(1)
End Sub

Le non-type variant n'est pas trop recommandé mais dans ce cas on ne peux faire autrement en vb6.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Je vois que je n'ai pas été assez clair :

mettons que je crée 3 tableaux : tab1(), tab2(), tab3() ayant cahacun 1000 enregistrements.

Je voudrais pouvoir, dans ma fonction affichage, afficher soit les enregistrements de tab1, de tab2 ou tab3 en passant comme paramètre le tableau à afficher, sans avoir à recopier 3 fois le même code (à la vaiable tabx près) conditionnés par des IF.

Sub Affichage(ByVal nom_tableau As Variant)
 for i = 1 to 1000
  textbox.text = textbox.text + nom_tableau(i)
'nom_tableau prenant les valeurs tab1, tab2 ou tab3
End Sub

Merci, déjà pour ces premières réponses.

Zifnig
http://zifnig.free.fr

eh, il y a une erreur dans le passage de paramètre

dim variable() as string

public sub affichage (variable() as string)

for i=0 to ubound(variable)
tetxbox.text= tetxbox.text+ variable(i)
next i

end sub

-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

Non, c'est pas comme ça qu'il faut le voir, je voudrais quelque chose du genre :

Sub Affichage(ByVal nom_tableau As Variant)
 for i = 1 to 1000
  textbox.text = textbox.text + cstr(nom_tableau)(i) 
'ceci donne une erreur de syntaxe, mais j'aimeais que cette ligne se transforme en textbox.text = textbox.text + tab1(i), car dans cet exemple nom_tableau serait égal à "tab1"
end sub

Aurait-on la possibilité de passer le pointeur du tableau choisi en variable? autre idée?

Zifnig
http://zifnig.free.fr

Qui ce conçoit clairement s'ennonce aisement....Hum
c'est pas encore clair

Un tableau c'est quoi ?... un pointeur non ?
Donc tu as besoin en fait de connaître l'adresse et non le nom !!!

Déclarer
Dim Montab1() as integer revient à créer une structure d'entier dont l'adresse est le premier élément

Ecrire "Montab"&1 ne revient pas à ça
L'adresse de la chaine ne te donnera pas l'adresse de ton tableau Montab1... donc marche pas.

A toi de gérer l'alimentation de ton text box et en fonction des cas, de passer soit  le tab1, soit le 2 ou le 3
A+
madbob

Merci canislupus, je ne pensait pas que cela était si simple...honte à moi!


Zifnig
http://zifnig.free.fr

Dragon, tu as raison si les tableaux passés en paramètre sont tous de type string, sinon, je crains que le variant soit inévitable.

Zfnig, je ne comprend toujours pas car nom_tableau représentera le tableau que tu passes en paramètre à Affichage.

Si tu codes ,dans un bouton par exemple :
Affichage tab1
nom_tableau de ta sub sera tab1.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?