VBA - appeler une variable en concaténant un string et une variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA - appeler une variable en concaténant un string et une variable

galahad

Hello,

Je voudrais rendre le bout le code suivant plus élégant et bute sur la syntaxe à adopter.

Voici un exemple réduit à sa plus simple expression :

1/ L'utilisateur se voit proposé un UserForm
2/ Il remplit des TextBox dont les noms sont var1, var2, ... var50
3/ Je copie ces données dans les cellules A1, A2, ... A50
NB : je n'utilise pas un tableau ; chaque string (ex. : "var1" ) correspond à un TextBox de mon User Form

Ce code rudimentaire fonctionne :

Code :

Range("A1" ).Value = var1
Range("A2" ).Value = var2
...
Range("A50" ).Value = var50

Seulement voilà, ce n'est pas très classieux
Je voudrais donc utiliser une boucle.

J'avais pensé à cela :

Code :

Do While i <= 50
Cells(1, i) = "var" & i
i = i + 1
Loop

Le problème, c'est que A1 = var1 ; A2 = var 2, etc. Je voudrais, vous l'avez compris, A1 = [valeur stockée dans A1], tout simplement !

Quelqu'un peut-il m'éclairer sur la syntaxe s'il vous plaît ?

Question subsidiaire : la solution 2 sera-t-elle plus rapide à être exécutée ? Comment pourrais-je le déterminer par moi-même ?
(cela pourrait me servir pour d'autres pans de mon code)

Merci pour votre aide
Anthony

Publicité

olivthill

Un solution consisterait à avoir un tableau au lieu d'avoir cinquante variables différentes.
Par exemple :

Dim tb_var(1 to 50) as String
' Remplissage d'un tableau de variables à partir d'un fichier
i = 1
Open "FICHTEST" For Input As #1
Do While Not EOF(1)
Get #1, , tb_var(i)
i = i + 1
Loop
Close #1

' Utilisation du tableau
i = 1
Do While i <= 50
Cells(1, i) = tb_var(i)
i = i + 1
Loop

galahad

Hello olivthill,

Merci pour ton aide. Ta solution impliquant de passer par un fichier alors que je récupère mes variables d'un UserForm me pose problème : je zappe l'interface de mon UserForm au profit d'un fichier txt un peu moins convivial.

Tu aurais une alternative qui utiliserait un UserForm s'il te plait ?
Sachant qu'un TextBox ne peut pas s'appeler var(1), var(2), mais seulement var1, var2

Merci,
A.

olivthill

Désolé. Le fichier c'était juste pour un exemple. En fait, je n'avais pas compris que var1, etc. venaient d'un userform.

galahad

Hello !

Un pote m'a mis sur la bonne voie en me conseillant de jeter un œil ici :
http://forum.hardware.fr/hfr/Progr [...] 1690_1.htm

Pour mon code, ça donne donc :

Code :

Do While i <= 50
Cells(1, i) = Controls("var" & i).Value
i = i + 1
Loop

A noter, si mes variables ne venaient pas d'un UserForm, j'aurais utilisé un tableau.
Exemple :

Code :

Private Sub exemple()
Dim i As Integer
Dim var(1 To 3) As String
var(1) = "a"
var(2) = "b"
var(3) = "c"
For i = 1 To 3
Cells(1, i) = var(i)
Next i
End Sub

En espérant que l'un des deux exemples serve à quelqu'un

HTH,
Anthony

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA - appeler une variable en concaténant un string et une variable

Sujets relatifs
Formatter un Long en un String lisible	VBA Excel 2003 vs Excel 2007
VBA sous excel 2003	AS3 : Utilisation de variable et function d'une classe à l'autre (Eten
batch récupére variable dans un texte	utiliser le & dans un jcl comme etant un caractere et non variable
[java] Une string en arraylist ?	Petit problème macros VBA Excel
[Résolu] Comment récupérer une variable asp en jscript	[batch] récupérer le resultat d'une commande dans une variable
Plus de sujets relatifs à : VBA - appeler une variable en concaténant un string et une variable

Page générée en 0.027 secondes