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

[ericdev67]

JackOuYA,



Trop top, merci pour ton aide, c'est bon j'ai compris...temps d'adaptation....

Tu as vu que je m'amusais avec des calcul de combinaisons....avec GWbasic, j'étais limité avec le dim...(nombre de variable (a(20,20,20,20,20)) ne pouvait pas fonctionner "à l'époque") mais maintenant, j'ai vu qu'avec VBA, c'est possible. Je vais pouvoir transformer mes anciens programmes...je te remercie pour ton aide et ....patience !!!

Merci,
à la prochaine,
A+