Nom de variable

Bonjour, cela fait plusieurs heures que j'essaye de créer une boucle mais je n'y arrive décidément pas. L'objectif c'est de réaliser une première itération où "ma_variable" se nommera "hier" à la fin de cette première itération je recommence mais cette fois "ma_variable" se nommera "Demain".

Comment je peux m’y prendre ?

Dim ma_variable As String

ma_variable = "Hier"
ma_variable = "Demain"
ma_variable = "Lendemain"

Call ma_fonction(ma_variable)

Merci

Bonjour,

La solution me parait trop simple pour etre la bonne mais à tout hasard, voici ce que je mettrais en place dans ton cas :

Call ma_fonction ("Hier")
Call ma_fonction ("Demain")
Call ma_fonction ("Lendemain")

Mizar31 a écrit :

Bonjour,

La solution me parait trop simple pour etre la bonne mais à tout hasard, voici ce que je mettrais en place dans ton cas :

Call ma_fonction ("Hier")
Call ma_fonction ("Demain")
Call ma_fonction ("Lendemain")

Non en fait ce n'est pas ça le problème, j'ai déjà une fonction et là je veux juste faire une itération sur le nom de ma_variable.

Merci quand même

Bonjour,

Avec un tableau et ici un exemple vraiment tout bête :

Sub Test()

    Dim Ma_Variable(1 To 3) As String
    Dim I As Integer

    Ma_Variable(1) = "Hier"
    Ma_Variable(2) = "Demain"
    Ma_Variable(3) = "Lendemain"

    For I = 1 To UBound(Ma_Variable())

        MsgBox Ma_Fonction(Ma_Variable(I))

    Next I

End Sub

Function Ma_Fonction(Chaine As String)

    Ma_Fonction = "L'argument est '" & Chaine & "' et voici du texte rajouté à cet l'argument !"

End Function

Theze a écrit :

Bonjour,

Avec un tableau et ici un exemple vraiment tout bête :

Sub Test()

    Dim Ma_Variable(1 To 3) As String
    Dim I As Integer

    Ma_Variable(1) = "Hier"
    Ma_Variable(2) = "Demain"
    Ma_Variable(3) = "Lendemain"

    For I = 1 To UBound(Ma_Variable())

        MsgBox Ma_Fonction(Ma_Variable(I))

    Next I

End Sub

Function Ma_Fonction(Chaine As String)

    Ma_Fonction = "L'argument est '" & Chaine & "' et voici du texte rajouté à cet l'argument !"

End Function

Merci à toi par contre je bloque au moment où tu appelle la fonction avec "chaine"

Moi j'ai ma_variable en paramètre de la fonction et quand je lance ça me donne un problème de compatibilité.

Bonsoir,

Et un truc comme ça :

Function MaFonction$(i%)
   Dim a$
   a = "Hier Aujourd'hui Demain"
   MaFonction = Split(a)(i - 1)
End Function

Sub test()
Dim MaVariable%
   For MaVariable = 1 To 3
      MsgBox MaFonction(MaVariable)
   Next
End Sub

??

A+

galopin01 a écrit :

Bonsoir,

Et un truc comme ça :

Function MaFonction$(i%)
   Dim a$
   a = "Hier Aujourd'hui Demain"
   MaFonction = Split(a)(i - 1)
End Function

Sub test()
Dim MaVariable%
   For MaVariable = 1 To 3
      MsgBox MaFonction(MaVariable)
   Next
End Sub

??

A+

C'est bon j'ai réussi à faire ce que je voulais.

Merci à vous.