Discussion :

[ericdev67]

Bonjour,

Dans le temps...j'utilisais notre bon vieux GWbasic pour faire des programmes....(et oui, pas tout jeune..!!!).

Il y avait une fonction qui permettait de générer et garder en mémoire des variables, ça faisait :

Code :

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

1
2
3
4
5
6
7
10 cls
20 dim a(10,10,10)
30 for i=1 to 10
40 for j=1 to 10
50 for k=1 to 10
60 a(i,j,k)=1
70 nextk: next j: next i

ça permettait de donner la valeur 1 (c'est un exemple) à a(1,1,1), a(1,1,2), etc....
Je souhaitais savoir si on pouvait avoir la même chose en VBA. C'est clair que le for/next existe, mais je n'ai pas retrouvé mon dim a(x,x,x), ni la possibilité d'affecter un a(1,1,1),a(1,1,2),....
Une petite aide ?

Merci
A+

[JackOuYA]

Bonsoir,

Cela n'as pas trop changé ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 
Dim a(10, 10, 10) As Integer
 For i = 1 To 10
    For j = 1 To 10
        For k = 1 To 10
            a(i, j, k) = 1
        Next
    Next
 Next
 
End Sub

j'ai rajouté le type : Integer (si tu le met pas les variable sont des variant)

par défaut les tableaux prennent pour base 0 donc tu as aussi a(0,0,0) comme varaible.
tu peu soit rajouter en haut de ton code la ligne :

Code :

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

option base 1

ainsi tous les tableaux de ta feuille de code débuterons à 1
ou rajouter à la déclaration de ton tableau l'index mini :

Code :

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

Dim a(1 To 10, 1 To 10, 1 To 10) As Integer

[ericdev67]

Merci JackOuYA,

Finalement, je vois avec plaisir que ce bon vieux GWBASIC est encore là...
Dernière petite question :
Toujours dans GWbasic, on avait le "PRINT" pour afficher les variables....tu vois venir ma question : comment afficher dans la colonne A (par exemple) les variables ? : A1 la valeur a(1,1,1), A2 la valeur a(1,1,2), etc....

Merci,
A+

[JackOuYA]

euu je crois que si tu fais pas l'effort de lire quelques tutoriels de ce site tu vas vite te faire tirer les oreilles

Code :

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

1
2
3
4
 ThisWorkbook.sheets("feuil1").range("A1")=a(1,1,1)
Dim i as integer 
i = 2 ' Ligne 2 ..
 ThisWorkbook.sheets("feuil1").Cells(i,1) =a(1,1,i)

[ericdev67]

JackOuYA,

t'es un chef, c'est tout bête, c'est vrai....mais les vieux....c'est clair qu'il faut adapter le langage basic à VBA et sa structure....merci pour ton aide.

A+
Ericdev

JackOuYA,
Juste un dernier petit truc :
je cherche à lister les différentes combinaisons, j'ai le code : mais il bloque au niveau du "If i = j Then Next". J'avais l'habitude des numéros de lignes, donc je faisais : if i=j then "renvoi à la ligne du next k", mais avec VBA, je n'ai pas de numéro de ligne, donc comment "sauter" lorsque i=j ou i=k ou j=k ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
 
Dim a(10, 10, 10) As Integer
Dim q As Integer
 For i = 1 To 10
    For j = 1 To 10
        For k = 1 To 10
    Let q = q + 1
If i = j Then Next
 
 ThisWorkbook.Sheets("feuil1").Cells(q, 1) = i
ThisWorkbook.Sheets("feuil1").Cells(q, 2) = j
ThisWorkbook.Sheets("feuil1").Cells(q, 3) = k
            a(i, j, k) = 1
 
        Next k
    Next j
 Next i
 
End Sub

Merci
A+

[JackOuYA]

la structure conditionnelle if c'est :

if <condition> then

end if

Code :

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

1
2
3
4
5
6
7
8
9
10
...
       For k = 1 To 10
            Let q = q + 1
            If Not (i = j Or i = k Or j = k) Then
                ThisWorkbook.Sheets("feuil1").Cells(q, 1) = i
                ThisWorkbook.Sheets("feuil1").Cells(q, 2) = j
                ThisWorkbook.Sheets("feuil1").Cells(q, 3) = k
                a(i, j, k) = 1
            End If
        Next...

de plus en VBA le Let n'est pas obligatoire tu peu écrire

Code :

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

q=q+1