Discussion :

[theshark85]

Bonjour,

Celà fait un moment que je n'ais pas utilisé le vba, du coup j'ai du mal a retrouver certaines petite chose, je demande donc votre aide. Malgré mes recherches sur google, je ne trouve pas ce que je veux.

Je souhaite créer un tableau de taille fixe, et initialisé par moi même avec une syntaxe de ce genre là:

Code :

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

monTableau(10) = {A,B,..}

Je n'arrive pas à trouver la bonne syntaxe, du coup ça me met des erreurs.

De plus comment déclare ton un tableau à plusieurs dimensions (trois dimensions), est ceci monTableau(3,3,3).

Merci

[philben]

bonjour,

il faut voir en autres les fonctions et instructions :

• Array()
• Redim
• Split()

cordialement,

philippe

[theshark85]

Alors, j'ai trouvé une partie de ma solution, mais je n'arrive pas a mettre tout ceci en variable globale. Quand tout ets dans une fonction, pas de probleme mais en globale erreur.

Code :

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

1
2
3
4
5
6
7
8
 
Dim A As Variant
Dim B As Variant
Dim C As Variant
 
A= VBA.Array("1", "1", "1")
B= VBA.Array("1", "1", "1") 
C= VBA.Array("1", "1", "1")

Erreur: instruction incorrect à l'exterieure d'une procédure

[philben]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Const X As Long = 5
Private Const Y As Boolean = True
 
Public A As Variant  'Portée : globale
Private B As Integer 'Portée : Projet
Dim C As Double      'Portée : module
 
Public Sub InitVars()
   A = VBA.Array("2", "3")
   B = 1
   C = 1.5
End Sub

Initialisation des variables seulement dans une méthode contrairement aux constantes (mais limitée à des valeurs simples, voir aide d'Access).

cordialement,

Philippe

[theshark85]

Arff, je ne veux pas que tout ceci se retrouve dans une méthode aussi.

Je sais qu'il y a une possibilité, d'initialisé un tableau pas forcement en array.

Avez-vous une idée?

[philben]

re bonjour,

pour déclarer un tableau, on peut :

Code :

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

1
2
 
Dim x(0 to 5, 11, 8 to 9) As Long

mais lui affecter des valeurs (hors 0 ou ""), je sais pas.

cordialement,

philippe