Discussion :

[Grevious88]

bonjour à tous,
je viens vers vous pour un problème tous con je pense alors voila
j'ai dans ma macro plusieurs variable SP_01, SP_02 ..... SP_200 et des OPT_01, OPT_02 ect ect

j'aimerai dans une boucle parcourir toutes ces variables
j'ai codé ceci pour l'instant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
max = 200
i = 0
SP_01 = 1
j = SP_01
SP_11 = 12
SP_12 = 13
 
for i = 0 to Max step -1
j = j + "1"
next

le soucis c'est que j prendra la valeur SP_011 du coup je sais pas trop comment faire pour incrémenter le nombre 01 pour avoir SP_02 et non pas SP_011
merci à vous pour votre aide

[cerede2000]

Heu ça serais pas plus simple avec un tableau ????

[Grevious88]

peut etre mais je saurais pas comment faire
le truc c'est que mes variables sont déjà créer et j'ai pas le droit de les modifier je dois juste lire les informations

[MacKay77]

Bonjour,

Il suffit de stocker les valeurs des différentes variables dans un tableau.

Bonne journée

[Grevious88]

comment faire pour les stoker ?? je ne sais pas utiliser les tableaux :/
merci pour vos réponses

[MacKay77]

Tout d'abord tu déclares le tableau

Si c'est un tableau de 10 chaines de caractères que tu veux nommer "tab" :

Code :

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

Dim tab(9) as string

(9 car par défaut un tableau commence à l'index 0)

Ensuite, il suffit de remplir le tableau

Code :

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

1
2
tab(0) = SP_01
tab(1) = SP_02

...

Code :

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

1
2
tab(8) = OPT_01
tab(9) = OPT_02

[Grevious88]

merci et il y a pas un moyen pour placer toutes les valeurs directement dans le tableau sans taper à la main ?? parce que en tous j'ai 325 variable à mettre dedans

[MacKay77]

325 variables? oO'
Si les valeurs des variables ont un lien entre elles (par exemple, si pour parcourir les valeurs des variables il suffit d'ajouter 2 à chaque fois ou de multiplier par deux, c'est possible, sinon je ne vois pas trop comment faire, c'est d'ailleurs le problème que tu as posé dans ton premier message.

[Philippe Tulliez]

Bonjour,

comment faire pour les stoker ?? je ne sais pas utiliser les tableaux :/
merci pour vos réponses

Je te conseille la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel

[DeathZarakai]

325 variables? oO'
Si les valeurs des variables ont un lien entre elles (par exemple, si pour parcourir les valeurs des variables il suffit d'ajouter 2 à chaque fois ou de multiplier par deux, c'est possible, sinon je ne vois pas trop comment faire, c'est d'ailleurs le problème que tu as posé dans ton premier message.

Explication synthétique mais très explicite.

Pour vous répondre à vous deux, s'il existe ces 325 variables c'est quelles ont l'ont fait manuellement, donc il devra en faire surement autant.

Un petit manque au VBA d'ailleurs, je sais que dans un UserForm on peut dans le code parcourir différentes combobox nommé combo1, combo2 etc. Mais il n'est pas possible de le faire autre part (enfin c'est ce que l'ont m'avait répondu sur ce forum)

[Grevious88]

alors les seules choses que les variables ont en commun c'est leur nom SP_01 SP_02 SP_03 ect ect
merci en tous cas pour vos réponses

[halaster08]

Bonjour,

Pour éviter de déclarer à la main tes 325 variables tu peux t'aider d'une boucle pour écrire a ta place.
Par exemple pour les variables SP_01 à SP_09 et OPT_01 à OPT_09

Code :

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

1
2
3
4
5
6
7
8
Sub laflemmedetoutecrire()
For i = 1 To 9
Cells(i, 1) = "tab(" & i & ")= SP_0" & i
Next i
For i = 1 To 9
Cells(i + 9, 1) = "tab(" & i + 9 & ")= OPT_0" & i '+9 a cause des 9 valeurs précédentes
Next i
End Sub

Qui donne:

Ensuite tu recopie dans ton code toutes les déclarations ainsi obtenues

[Grevious88]

merci à vous tous

[DeathZarakai]

tu peux même remplacer les

Code :

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

Cells(i, 1) =

par

Code :

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

Debug.Print

DeathZarakai

[joe.levrai]

Bonjour,

étant donné qu'on ne peut pas manipuler une variable comme ça

Code :

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

1
2
3
For i = 1 to 10
    OPT_ & i = i
Next i

tu peux éventuellement passer par une variable tableau, en option Base 1, comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Base 1
Sub Toto()
Dim OPT()
Dim i as Integer
dim Max as Integer
Max = 200
Redim OPT(max)
 
For i = 1 to max
    OPT(i) = i
    Debug.Print OPT(i)  ' là tu peux facilement jouer sur les indices de tes variables
Next i

ainsi, tu as un tableau par type de variable (OPT_ , SP_) et tu peux très facilement naviguer dedans

il est même possible de regrouper ensuite tes tableaux, dans un seul tableau ! Et ainsi pouvoir parcourir chaque groupe de variables à ta convenance

et à noter qu'avec une collection, c'est aussi possible

[Grevious88]

merci beaucoup solution vraiment géniale
le problème est résolu même si maintenant d'autre viennent en masse XD