Discussion :

[papimcha]

Bonjour tlm,

J'aimerais pouvoir incrémenter la fin du nom d'une variable.
Je m'explique, j'ai une variable rSource, et j'aimerais la dupliqué (selon mes données) en rSource_1, rSource_2 et ainsi de suite.
j'ai essayé

Code :

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

1
2
3
for i = 1 to nb_donnee
set rSource_i = 'nawak
next i

mais évidemment sa ne marche pas.
j'ai essayé plusieurs autres possibilités mais aucune ne marche.
Je m'en remet donc à vos solutions,
Merci,
papimcha

[gwinyam]

T'as essayé en utilisant les tableaux?


Un tutoriel à ce sujet :
http://silkyroad.developpez.com/vba/tableaux/

[zandru]

Bonjour,

Pour contourner ton problème pourquoi ne pas utiliser une plage de cellule ?

Code :

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

1
2
3
for i = 1 to nb_donnee
rSource.Cells(i,1) = 'nawak
next i

avec rSource comme nom d'une feuille Excel.

Qu'en pense-tu ?

[papimcha]

bonjour,
Alors déjà merci de vos réponses si rapide,

@zandru > Le problème c'est que mon rSource est un range (oui je l'ai mal exprimé dans mon premier post ) qui me servira à faire des graphiques plus tard. Donc le fait de m'en servir comme feuille n'est pas possible.

@gwinyam > Merci, je regarde mais j'aimerais éviter les tableaux si possible. (et est-ce que c'est compatible avec un range ?)
Je te tiens au courant de mon évolution.

Entre-temps, si une personne a une autre solution je suis preneur.
Cordialement,
papimcha

[gwinyam]

Pourquoi ne serait-t'il pas compatible?

[zandru]

Je n'ai peut être pas compris ce que tu veux faire mais pour moi utiliser une plage de cellule serait idéal pour faire un graphique ensuite, non ??

[gwinyam]

J'avoue que pour faire un graphisme, je dirais que c'est même plutôt franchement recommandable

[fring]

Bonjour tlm,

Un tableau dynamique me semble également une bonne solution.
Teste le petit bout de code ci-dessous cela t'inspirera peut-être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
    Dim rsource() As String
    Dim Nb As Integer, j As Integer
 
    Nb = 5
    ReDim rsource(Nb)
 
 
    'Alimente rsource
    For j = 0 To UBound(rsource)
        rsource(j) = Range(Cells(j + 1, 1), Cells(j + 1, 10)).Address
    Next j
 
 
    'récupère les valeurs de chaque rsource
    For j = 0 To UBound(rsource) - 1
        MsgBox rsource(j)
    Next j
 
    'récupère la valeur du 3ème rsource
    MsgBox rsource(2)
End Sub

[papimcha]

oulala,
Sa voudrait dire qu'il ne faudrait pas utiliser un tableau, je suis dessus depuis tout à l'heure pour essayer d'arriver à quelquechose.

En fait j'ai plusieurs tableaux de données(une dizaine), et je voudrais à l'aide d'un indicateur sur ce tableau les différentes périodes.
Par exemple sur ces 10 tableaux, j'ai 3 périodes, et je voudrais 3 graphiques (1 pour chaque période).
J'y arrive lorsque j'ai un graphique pour l'ensemble en utilisant

Code :

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

set rSource = union(rsource, 'nawak)

mais je voudrais du coup, selon les périodes, avoir rSource_1 pour la première période (ou un autre nom), et ainsi de suite pour mes périodes et ainsi pouvoir faire mes graphiques avec comme données mes rSource.
C'est pour sa que je voulais faire une boucle selon le nombre de périodes.
Suis-je clair ?

Dans tout les cas, je vais tester les deux cas et après je verrais bien.
Cordialement,
papimcha

EDIT : ok, fring, je teste et je vous tiens au courant.

[mayekeul]

bonjour,

j'ai du mal a comprendre pour tu veux absolument avoir un nom par source et non un tableau????

[papimcha]

Non, non, c'est bon,
je vais surement faire un tableau (c'est juste que j'ai du mal avec).
Vu qu'il parait que c'est la meilleure solution, j'y travaille