Discussion :

[thomas93]

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

[Marc-L]

Bonjour !

Utiliser les variables tableaux en VBA Excel …



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[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

[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..

[Igloobel]

... 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.

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

[thomas93]

Mon problème est complexe. Voici le code :

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
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

[Invité]

Salut,

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

[Igloobel]

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 :

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
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


bonne journée