Variables et tableau

Résolu
cs_ElPiojo Messages postés 23 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 22 février 2005 - 30 déc. 2004 à 13:47
cs_ElPiojo Messages postés 23 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 22 février 2005 - 3 janv. 2005 à 16:44
Bonjour,
Je voudrai savoir s'il est possible de renseigner un tableau avec des variables et surtout comment.
J'ai deja essayé ceci :

dim MonTableau
dim Ma1
dim MaV2

MonTableau = array(MaV1, MaV2)
Elpiojo

4 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
30 déc. 2004 à 15:19
J'ai rien compris !!

enfin, si, mais ton explication tiens en une formulation simple :

"Comment faire un tableau dynamique (Dont les dimensions sont variables)"

Dim a() as Integer
puis
Redim a(2 , b ) as Integer
ou
Redim Preserve a(2 , b ) as Integer pour conserver les données du tableau

Amusez-vous ! ;)
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
30 déc. 2004 à 14:04
Dim a(5) as integer
a(0) = 12
a(1) = 31

Dim b(1,2) as String
b(0,2) = "Renfield"

...

Amusez-vous ! ;)
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS
0
cs_ElPiojo Messages postés 23 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 22 février 2005
30 déc. 2004 à 14:23
En fait c'est un petit peu lpus compliqué que ça:
Mes variables MaV1 et MaV2 ne sont pas des constantes mais sont renseignés via une requete sur l'ad (avec ldap) et donc change en fonction du user connecté.
Je te donne une partie de mon code:

VmemberOf est un tableau ou je recupere les groupes dont fait parti mon user

Dim S, G, X

For i=0 To UBound(VMemberOf)
If ucase(VMemberOf(i))="INFODEV" Then
Tgroups=array(S, X, G)
Call Map(Tgroups)
End If
If ucase(VMemberOf(i))="TELECOM" Then
Tgroups=array("S", "G")
Call Map(Tgroups)
End If
Next

Elpiojo
0
cs_ElPiojo Messages postés 23 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 22 février 2005
3 janv. 2005 à 16:44
merci

Elpiojo
0
Rejoignez-nous