Discussion :

[ldubs]

Bonjour à tous,

J'ai une question qui me semble toute simple, mais je n'arrive pas à solutionner.

Je dispose de 3 variables nommées Test1, Test2 et Test3

Je dois leur donner une valeur, et plutôt que d'écrire 3 lignes, j'aurais aimé écrire quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to 3
    "Test" & i = MsgBox("Ca marche?", vbYesNoCancel, "Essai")
next i

Ce code ne fonctionne pas. Savez-vous pour quelle raison? Merci par avance!

PS: ceci est un exemple, le programme codé est un peu plus complexe.

[Marc-L]

Bonjour,

Utiliser les variables tableaux en VBA Excel …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[ldubs]

Pourquoi est-ce impossible?

Si je tape le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Test1 as Integer
 
Test1 = MsgBox("Ca marche?", vbYesNoCancel, "Essai")

-> je réponds par oui / non / cancel, et en fonction de la réponse, Test1 prend la valeur 6, 7 ou 2.

La méthode n'est-elle pas correcte?

Il s'agit néanmoins d'un hors sujet.

Ce que je souhaite, c'est pouvoir donner une valeur à mes variables Test1, Test2, Test3, sans avoir à écrire 3 lignes différentes.

En gros, si je veux que Test1/2/3 prennent les valeurs 2 / 4 / 6 de façon dynamique Plutôt que d'écrire :
Test1 = 2
Test2 = 4
Test3 = 6

J'aimerais écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to 3
   "Test" & i = 2 * i
next i

Le problème, c'est pour créer une variable dynamique, c'est ce "Test" & i.

[Marc-L]

Comme une variable ne peut pas être dynamique via du texte ! Cf l'aide VBA interne …

Soit utiliser une variable tableau (cf tutoriel de mon précédent message) soit utiliser des cellules d'une feuille de calculs.

[casefayere]

bonjour,
je te conseillerais de n'utiliser qu'une variable(tableau)

exemple à adapter (je n'ai pas fait gaffe à tes réponses Marc)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub essai()
Dim test(3), i As Integer
For i = 0 To UBound(test) - 1
  test(i) = "toto" & i
Next i
End Sub

[ldubs]

Merci beaucoup !
Je vais pencher vers la solution de la variable tableau, espérons que je m'en sorte. Ca a l'air faisable

Bonne journée !

[Marc-L]

En respectant le B-A-BA d'Excel pour une matrice : Test = [{2,4,6}] … (Test variable tableau Variant)