Boucle FOR - création de variable

Version imprimable

06/10/2015, 09h27
thomas93

Boucle FOR - création de variable

Bonjour à tous !

Je suis bloqué sur un problème qui me parait assez simple mais que je n'arrive pas à résoudre :/
J'aimerais écrire une boucle permettant de créer des variables i1, i2, i3, i4, i5.

Je pensais faire une boucle for mais je ne vois pas comment je peux faire pour les appeler i1, i2, i3.. Je n'arrive pas à incrémenter les indices ?
Avez-vous des idées ? stp

Merci beaucoup,

Tom
06/10/2015, 09h31
Marc-L

Bonjour !

:fleche: Utiliser les variables tableaux en VBA Excel …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
06/10/2015, 10h30
thomas93

Merci pour ton retour !
Il n'y a pas d'autre solution pour créer des variables telles que je souhaiterais ?
Passer par un tableau ne me simplifie pas le code pour après. Ca ne m'arrange pas spécialement.
C'est pas possible autrement ? svp
06/10/2015, 11h15
SfJ5Rpw8

Bonjour,

dis nous plutôt ce que tu veux faire ... utiliser des variables avec un nom qui change est un sujet qui passionne les débutants mais dont l'utilité n'est jamais vérifiée..
06/10/2015, 13h05
Igloobel

Citation:

Envoyé par thomas93

... Passer par un tableau ne me simplifie pas le code pour après. Ca ne m'arrange pas spécialement. ...

Et pourquoi cela ne te simplifie pas le code ? Et pourquoi cela ne t'arrange pas ?

Les variables de type tableau sont un don du ciel pour la programmation. :twisted:

depuis que je les utilise mon code s'est trouvé plus simple plus clair plus facile à maintenir

Donc vraiment je voudrais savoir pourquoi cela ne te va pas !

A bientôt

Mon problème est complexe. Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 i1 = -1
        i2 = -1
        i3 = -1
        i4 = -1
        i5 = -1
 
        valable = False
        k1 = 0
        While k1 < (indicelargeur - 1) And valable = False
            a1 = tablarg(k1)
            k2 = 0
            While k2 <= (indicelargeur - 1) And valable = False
                a2 = tablarg(k2)
                k3 = 0
                While k3 <= (indicelargeur - 1) And valable = False
                    a3 = tablarg(k3)
                    k4 = 0
                    While k4 <= (indicelargeur - 1) And valable = False
                        a4 = tablarg(k4)
                        k5 = 0
                        While k5 <= (indicelargeur - 1) And valable = False
                            a5 = tablarg(k5)
                            If largeur >= a1 + a2 + a3 + a4 + a5 - 2 * retraitlarg And largeur <= a1 + a2 + a3 + a4 + a5 + 2 * debordlarg Then
                                i1 = k1
                                i2 = k2
                                i3 = k3
                                i4 = k4
                                i5 = k5
                                valable = True
                            End If
                            k5 = k5 + 1
                        End While
                        k4 = k4 + 1
                    End While
                    k3 = k3 + 1
                End While
                k2 = k2 + 1
            End While
            k1 = k1 + 1
        End While

Le problème aujourd'hui est que le nombre de k1, k2, k3, k4 n'est pas toujours égal à 5, il est en réalité en fonction de indicelargeur.
Je ne vois pas comment modifier mon code afin de garder la même fonctionnalité mais en adaptant le nombre de k en fonction de l'indicelargeur.
Comprenez-vous ?

Merci d'avance,

Tom

06/10/2015, 17h17
Invité

Salut,

C'est du Visual Basic le code ? Parce que End While n'est pas pris en charge par VBA/VB6.

Bonjour,

tout d'abord "While" se termine par un "Wend" en VBA et non un "End While" comme dans 3GL.
Mais While est la boucle la plus lente a donc éviter de plus on est obliger d'utiliser des artifices pour sortir rapidement de la boucle.

Donc il est préférable d'utiliser la boucle Do While (condition) ... Loop et d'utiliser Exit DO qui te permet de sortir rapidement de la boucle

Mais avec le peu d'information que tu donnes voici une approche de code (qui ne fonctionne peut-être pas mais l'idée est là)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 Sub travail_i_a_k() 'déclaration Dim a(1 To 5) As Single Dim i(1 To 5) As Single Dim k(1 To 5) As Single Dim Tot_A As Single Dim Indi_a As Byte ' indice pour se déplacer dans le tableau a Dim Indi_i As Byte ' indice pour se déplacer dans le tableau i Dim Indi_k As Byte ' indice pour se déplacer dans le tableau k ' je ne sais pas a quoi sert toutes ces variables Dim Tablarg(1 To 5) As Single Dim Valable As Boolean Dim IndiceLargeur As Single Dim RetraitLarg As Single Dim Largeur As Single Dim DebordLarg As Single 'initialisation des tableaux For Indi_i = 1 To 5 a(Indi_i) = -1 i(Indi_i) = -1 k(Indi_i) = 0 Next 'Initialisation des variables pour test IndiceLargeur = 3 RetraitLarg = 1.2 Largeur = 9 Valable = False For Indi_k = 1 To 5 If k(Indi_k) < (IndiceLargeur - 1) And Valable = False Then a(Indi_k) = Tablarg(k(Indi_k)) End If Next For Indi_a = 1 To 5 Tot_A = Tot_A + a(Indi_a) Next If Largeur >= Tot_A - 2 * RetraitLarg And Largeur <= Tot_A + 2 * DebordLarg Then For Indi_i = 1 To 5 a(Indi_i) = k(Indi_i) Next End If End Sub
Si tu veux que je l'améliore et le rendre fonctionnel il va falloir être explicite.

1°) A quoi sert toutes tes variables
2°) Comment sont chargées tes variables
3°) Quel est le but du programme
4°) Donnes des exemples que doit résoudre ton programme (un jeu d'essai)

exemple Largeur = xx retraitLarg = xx ........
et les résultats que doivent avoir tes a, i, k, etc...

en attendant toutes ces infos :salive:

bonne journée