Pourquoi ce n'est reconnu comme variable ?

[carlos]

Bonjour

Dim NomJ1 as string
Dim NomJ2 as string

NomJ1 = Pierre
NomJ2 = Alain
etc...

for i = 1 to 10
msgbox "NomJ" & num
next i

Comme resultat , j'ai "NomJ1" en texte alors que je veux Pierre , etc ????

Merci Carlos

 

[carlos]

Re : Pourquoi ce n'est reconnu comme variable ?

Re

Petit correctif car c'est du texte.

Bonjour

Ceci ne marche pas non plus.

Dim NomJ1 as string
Dim NomJ2 as string

NomJ1 = "Pierre"
NomJ2 = "Alain"
etc...

for i = 1 to 10
msgbox "NomJ" & num
next i

Comme resultat , j'ai "NomJ1" en texte alors que je veux Pierre , etc ????

Merci Carlos

 

[tototiti2008]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour carlos,

je te conseilles d'utiliser un tableau

Dim NomJ(1 to 2) as String
 
NomJ(1)="Pierre"
NomJ(2)="Alain"
 
For i = 1 to 2
Msgbox NomJ(i)
next i

 

[carlos]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonsoir Tototiti2008

tu es Excelleron .

Merci beaucoup

Carlos

 

[Gael]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour Carlos, Bonjour Tototiti,

La solution du tableau est bien sûr la meilleure, cependant j'aimerais bien savoir s'il y a moyen de faire référence à une variable avec une formule de type "Nom" & i.

Si par exemple on souhaite déclarer cet ensemble de prénoms sous forme de constantes, comme on ne peut pas, à ma connaissance, déclarer un tableau de constantes on va créer une variable pour chaque prénom et l'idéal serait de pouvoir les appeler avec une numérotation variable.

Y-a-t-il une solution en ce sens?

@+

Gael

 

[wilfried_42]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour à tous

Gael 🙂, voici peut être une solution, un peu lourde je l'avoue mais elle fonctionne

 

[pierrejean]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour carlos
Bonjour tototiti 🙂
Bonjour Gael 🙂
Bonjour Wilfried 🙂

Dans le genre tableau

Public tablo()
Sub test()
tablo = Array("Pierre", "Paul", "Jacques", "Marcel")
For n = LBound(tablo) To UBound(tablo)
 MsgBox ("tablo" & n & " = " & tablo(n))
Next n
End Sub

 

[tototiti2008]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour à tous,

Wilfried, je suis impressionné... pas simple mais je n'aurais jamais pensé aller aussi loin 🙂

 

[tototiti2008]

Re : Pourquoi ce n'est reconnu comme variable ?

Re,

sinon si on souhaite vraiment faire référence à une valeur à partir d'un texte, peut-être par l'objet Dictionary ?

 

[pierrejean]

Re : Pourquoi ce n'est reconnu comme variable ?

Re

si on reprend l'expression de Gael:
declarer un tableau de constantes
la solution est bien tableau=Array("","","")
qui s'exploite en tableau(n)
Quel serait l'interet d'un "tableau" & n ??

 

[Gael]

Re : Pourquoi ce n'est reconnu comme variable ?

Bonjour à tous,

Merci de ta réponse PierreJean. J'étais resté bloqué sur le fait que l'instruction "Const" ne permet pas de déclarer une donnée de type Tableau.

La solution est effectivement simple en passant par Array au début d'une macro, la variable pouvant être déclarée en "Public".

Certains langages comme Javascript permettent de récupérer le contenu d'une variable avec une instruction de type Eval("Nom" & i) ce que VBA ne permet pas de faire.

@+

Gael