Insérer variables dans Boucle For

Version imprimable

22/01/2020, 15h52
Weer77400

Insérer variables dans Boucle For
Bonjour à tous,

J'ai une problématique toute simple :
Code:

1 2 3 4 5 6 7 8 9 10 Name_1 = "xxx" Name_2 = "yyy" Name_3 = "zzz" For I = 1 To Nb_Gest Range("A1").Value = Name_ & I Next End Sub
J'aimerai que, quand I = 1 la value de la cellule A1 soit "xxx", puis quand I = 2 value = yyy etc..
La valeur en A1 est égale à 1 quand I = 1, 2 quand I = 2 et 3 quand I = 3..

Le code ne reconnait pas les variables définit précédemment à la boucle FOR..

Auriez-vous une idée ?

Merci d'avance.

Code:

1
2
3
4
5
6
7
8
Dim Nom(3) As String
Nom(1) = "xxx"
Nom(2) = "yyy"
Nom(3) = "zzz"
 
For I = 1 To UBound(Nom)
    Range("A1").Value = Nom(I)
Next I

22/01/2020, 15h59
mfoxy

Hello,

Je ne vois nulle part la valeur de nb_gest (3)
De plus il est toujours préférable de nommer le range avec comme préfixe la feuille ou le code doit s exécuter.

Feuille. Range. Value

As tu un quelconque message d erreur ?
22/01/2020, 17h13
Weer77400
Merci beaucoup pour vos réponses. Cependant pardon, je me suis mal exprimé, la solution de Menhir fonctionne parfaitement mais en voulant simplifier mon problème pour le post, la réponse ne m'apporte finalement pas la solution.

Je recommence donc en m’efforçant d'être plus clair :

Avec le code :
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim Gest_(3) As String Gest_(1) = "aaa" Gest_(2) = "xxx" Gest_(3) = "yyy" For I = 1 To UBound(Gest_) Sheets("Liste").Range("A1").Value = Gest_(I) Next I End Sub
Le problème c'est que je ne classe pas mes "Gest_(x)" dans la macro mais sur un autre module (le module 1) via des "public Const" :
Code:

1 2 3 Public Const Gest_1 As String = "aaa" Public Const Gest_2 As String = "xxx" Public Const Gest_3 As String = "yyy"
Je dois laisser ce module avec ces "public const" qui permette à des personne ne connaissant pas VBA de modifier facilement les noms des "Gest_x".

Il faut donc que je puisse faire le programme ci dessous, ou quand I = 1, Range("A1") = "aaa" car la "public const" de "Gest_1" est "aaa".
Code:

1 2 3 4 5 6 Sub test() Dim Gest_(3) As String For I = 1 To UBound(Gest_) Sheets("Liste").Range("A1").Value = Gest_(I) Next I End Sub
Pour le moment aucune valeur n'est prise en A1.

Merci encore pour votre aide.

Paul.
22/01/2020, 18h07
Menhir
Citation:
Envoyé par Weer77400

Le problème c'est que je ne classe pas mes "Gest_(x)" dans la macro mais sur un autre module (le module 1) via des "public Const" :

Code:

1 2 3 Public Const Gest_1 As String = "aaa" Public Const Gest_2 As String = "xxx" Public Const Gest_3 As String = "yyy"
A ma connaissance, les constantes ne peuvent pas être indicées et les variables ne peuvent pas être renseignées dans leur déclaration.

Donc, il faudrait mettre hors module Public Gest_(3) As String pour les déclarer en tant que variable.
Et dans le début de ta procédure (Sub) racine, l'initialisation des valeurs.
Code:

1 2 3 Gest_(1) = "aaa" Gest_(2) = "xxx" Gest_(3) = "yyy"
Citation:

Il faut donc que je puisse faire le programme ci dessous, ou quand I = 1, Range("A1") = "aaa" car la "public const" de "Gest_1" est "aaa".

VBA ne gère pas les macro-variables (variable dont le nom est construit dans le code) comme peut le faire certains C ou autres langages spécifiques comme Clipper Nantucket.
Donc il faudra soit passer par une solution avec des constantes indicées comme je le préconise, soit changer de langage.

Cela dit, si des utilisateurs lambda sont susceptibles de modifier ces valeur, perso j'utiliserai une autre solution.
Au lieu d'écrire ça en dur dans le code, je créerais une feuille de paramètres dans Excel et en début de code, je transfèrerais les valeurs des cellules dans des variables indicées.
Ce serait plus propre et plus ergonomique.
Sans compter que dans une feuille Excel, on peut mettre des éléments plus explicatifs que "Gest_1" pour que l'utilisateur comprenne de quoi il s'agit exactement.
23/01/2020, 09h47
Weer77400

Bien noté

Bonjour Menhir,

Merci pour toutes ces informations, je vais effectivement trouver un autre moyen d'arriver a mes fins.

Je mets le poste en résolu.

Bonjour,

J'arrive peut-être trop tard...

Une solution de contournement serait de passer par une Property :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Dans le module "public" :
Public Property Get Gest_(Index As Long) As String
    Select Case Index
        Case 1: Gest_ = "aaa"
        Case 2: Gest_ = "bbb"
        Case 3: Gest_ = "ccc"
    End Select
End Property
 
'ailleurs dans le code d'un autre module :
Sub Essai()
Dim G As String
    G = Gest_(2)
    Debug.Print G
End Sub

1 pièce(s) jointe(s)

Bonjour…
Autres exemples
Dans un Module standard, 'variables réutilisables dans d'autres modules standards

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public Const C1 As String = "aaa"
Public Const C2 As String = "bbb"
Public Const C3 As String = "ccc"
Sub Là()
    'boucle pour chacun des cas
    i = i + 1
    With Feuil1
        .[A1] = ""
        If i = 5 Then i = 1
        Select Case i
            Case 1: .[A1] = C1
            Case 2: .[A1] = C2
            Case 3: .[A1] = C3
        End Select
    End With
End Sub

ou avec passage de variable (plus court)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'réutilisables dans d'autres modules standards (voir Feuil2)
Option Explicit
Public Const C1 As String = "aaa"
Public Const C2 As String = "bbb"
Public Const C3 As String = "ccc"
Dim i As Byte
Sub Là()
    test i
    i = i + 1: If i = 4 Then i = 0
End Sub
Sub test(n As Byte)
    Feuil1.[A1] = Array(C1, C2, C3, "")(n)
End Sub

Remarque : avec Option Base 1 en tête de fenêtre (Feuil2), premier index des tableaux à 1 et non 0,

Code:

1
2
3
4
5
6
Option Explicit
Option Base 1
Private Sub Là_Click()
    Dim i As Byte
    For i = 1 To 3: MsgBox Array(C1, C2, C3)(i): Next
End Sub

23/01/2020, 12h46
Menhir
Plus simple en utilisant la fonction Choose
Code:

1 2 3 For I = 1 To 3 Sheets("Liste").Range("A1").Value = Choose(I, Gest_1, Gest_2, Gest_3) Next I
Choose est une fonction à laquelle on pense rarement car elle a été rendue quasiment caduque par l'utilisation des variables indicées.