Est-il possible en VBA de construire dynamiquement le nom de ses variables ?
Je m'explique en PHP je ferai : $nom = "toto"; $tablo[$nom] = "valeur";
En VBA ?
nom = "toto" tablo(nom) = "valeur"
... il semblerait que ça ne marche pas ... :-(
JB
Bonjour,
Noms de champs indicés dynamiques On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{1.2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
JB http://boisgontierjacques.free.fr/
On 7 mai, 09:26, Shewy_FR_34 wrote:
Bonjour.
Est-il possible en VBA de construire dynamiquement le nom de ses variable s ?
Je m'explique en PHP je ferai : $nom = "toto"; $tablo[$nom] = "valeur";
En VBA ?
nom = "toto" tablo(nom) = "valeur"
... il semblerait que ça ne marche pas ... :-(
Bonjour,
Noms de champs indicés dynamiques
On ne peut pas créer de noms de variable indicés dynamiquement:
En revanche, on peut créer dynamiquement des noms indicés qui vont
contenir des valeurs.{1.2.3.4..}
Sub CreeNomsDynamiques()
For i = 1 To 4
ActiveWorkbook.Names.Add Name:= _
"tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i,
255).End(xlToLeft)).Value
Next i
End Sub
Sub essai()
i = 2
x = "tableau" & i
a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a()
MsgBox a(1)
End Sub
JB
http://boisgontierjacques.free.fr/
On 7 mai, 09:26, Shewy_FR_34 <shew...@gmail.com> wrote:
Bonjour.
Est-il possible en VBA de construire dynamiquement le nom de ses variable s ?
Je m'explique en PHP je ferai :
$nom = "toto";
$tablo[$nom] = "valeur";
Noms de champs indicés dynamiques On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{1.2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
JB http://boisgontierjacques.free.fr/
On 7 mai, 09:26, Shewy_FR_34 wrote:
Bonjour.
Est-il possible en VBA de construire dynamiquement le nom de ses variable s ?
Je m'explique en PHP je ferai : $nom = "toto"; $tablo[$nom] = "valeur";