Introduire une variable dans une variable

Bonjour à tous et toutes,

Ma question peut paraitre bizare, mais je vous explique:

Je souhaiterais qu'une constante (par exemple a) soit rattachée à une variable (1 ou 2 ou 3...) et ceci égal à une plage de données variables:

Je vous joins ci dessous la partie de mon programme que je n'arrive pas à programmer, ce sera plus facile à comprendre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub extract_OTC()     For j = Worksheets.Count To 1 Step -1     With ActiveSheet   If Cells(1, 1) = "OTC Derivatives Report - Equity Swap" Then       "col"&j& = Cells(15, 100).End(xlToLeft).Column   'C'est ici que ca ne marche pas, je voudrais en fait que le résultat ' de ""Cells(15, 100).End(xlToLeft).Column"" soit col10 par exemple 'et donc à la fin je supprime cet sheet et je voudrais que donc mon compteur 'soit de 9 et donc que les données obtenues soient col9...     "ligne"&j& = Cells(150, 1).End(xlUp).Row   "plagededonnees"& j& = Range(Cells(15, 1), Cells(("ligne" & j&), "col" & j&))   .Delete end if end with   next j     end sub

---

Merci d'avance pour vos réponses! :)


Benjamin

Bonjour,

Ce que tu veux faire n'est pas faisable (du moins à ma connaissance)
Ce que tu peux faire c'est utiliser une variable tableau que tu déclarera en Public dans un module

Code:

---

Public Col(10) as integer

---

et utilisera comme cela

Code:

---

Col(j) = Cells(15, 100).End(xlToLeft).Column

---

Bonjour, et merci jfontaine pour ta réponse!

J'ai essayé donc j'ai créé un nouveau module avec mes declarations publiques:

Code:

---

1 2 3 4 5 6 7

Public Col(10) As Integer Public Col(9) As Integer Public Col(8) As Integer Public Col(7) As Integer Public Col(6) As Integer Public Col(5) As Integer ............

---

et donc dans mon module modifié les "col"&j& par col(j)

cependant il me met toujours un message d'erreur:
Ambiguous name detected : col

Que faire?? :s

La déclaration de la variable comme stipulé plus haut fait qu'elle à déja 1 dimension de 11 "cases" (une variable tableau étant par défaut de base 0 et commence à 0)

Code:

---

1 2 3 4 5

Dim col(10) As Integer   Col(0) = 10 Col(1) = 20 ...

---

On ne peut pas avoir 2 variables avec le même nom

A noter que si tu veux que 10 cases de 1 à 10 tu peux soit déclarer comme ceci

Code:

---

Dim col(1 To 10) As Integer

---

Soit spécifier que le tableau est de base 1

Code:

---

1 2	Option Base 1 Dim col(10) As Integer

---

Alors deja un grand merci car tout le debut est bon, il ne me reste plus qu'une ligne à comprendre et c'est le paradis^^

L'erreur que m'indique VBA est object required (error 424)

Code:

---

plagededonnees(j) = Range(Cells(1, 2), Cells(ligne(j), col(j))).Value

---

j'ai bien dimensionné plagededonnees(1 to 15) as range
les lignes et col as integer

Voila, si jfontaine ou quelqu'un d'autre me trouve la solution je serais le pllus heureux des programmeurs en herbe :)

Bonne aprem!!

Si tu souhaite mettre dans une variable une plage de donnée, alors fais comme suit

Code:

---

1 2	Dim MaPlage as Range Set MaPlage = Range(Cells(1, 2), Cells(ligne(j), col(j)))

---

A noter q'une variable tableau ne peut recevoir q'une valeur ou objet dans chaque index. Dans ton exemple tu essais de mettre x valeur la ou n'y a de la place que pour une

Le truc c'est que je souhaiterais donner à Maplage le meme numéro qu'aux ligne et colonnes
donc Maplage (j), mais avec cet exemple, ce n'est pas possible si? :s

Merci de ton aide!!

Quelle est la finalité? pour le moment, je ne vois pas ou tu veux aller

Bonjour,

Le but est en fait de trouver la derniere ligne puis la derniere colonne d'une plage de données.
Je veux ensuite que cette plage de données correspondent à un range allant de la cellule(1,2) par exemple et allant jusqu'a la derniere ligne et derniere colonne (selectionné ci avant)

Cependant j'ai plus de 15 onglets de données.
Donc dans chaque worksheet je veux extraire ces données et plutot que de definir (ce que je sais faire mais tres fastidieu pour 15 worksheets) chaque plage de données à la suite du genre ligne1=... plagededonnée1= ... et de faire copier coller et de changer 1 par 2.... Donc ce que je veux faire c'est une boucle pour que automatiquement le num de ligne, colonnne et de la plagededonnées selectionnée change au fur et à mesure des onglet. La solution que j'ai trouvé c'est de compter le nombre d'onglets du workbook et de faire un step -1 jusqu'a 1 et ainsi nommer mes plages de données avec le numéro du worksheet en gros (si il reste 4 worksheet alors la plage de données de l'onglet selectionné sera 4)


La finalité de tout ca c'est que je dois selectionner au hasard dans l'ensemble des données 5 lignes. (je sais tout ca pour ca^^)

Donc la solution que j'avais trouvée c'était de tout recoller à la suite dans un nouveau workbook et apres de faire un random 5 fois sur la plage de donnée complete. (je sais que ce n'est pas necessaire de tout recoller, donc ici egalement si tu as une solution je suis preneur^^)

J'espere que tu y vois plus clair dans mon projet de projet^^
Pour le résumer c'est un compilateur de données.

Ok c'est bon j'ai réussi comme ca:

Merci beaucoup à toi jfontaine pour ton aide!!

Bonne journée à tous!
Code concerné ci dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

For j = Worksheets.Count To 1 Step -1       Workbooks(n).Activate         col(j) = Cells(15, 100).End(xlToLeft).Column     ligne(j) = Cells(150, 1).End(xlUp).Row a = 1 ReDim selectiondudoc(1 To ligne(j), 1 To col(j)) As Variant For aa = 1 To col(j) For a = 1 To ligne(j) selectiondudoc(a, aa) = Cells(14 + a, aa) Next Next aa

---

Bonjour,

Citation:

---

A noter q'une variable tableau ne peut recevoir q'une valeur ou objet dans chaque index. Dans ton exemple tu essais de mettre x valeur la ou n'y a de la place que pour une

---

Il est tout à fait possible de stocker plusieurs valeurs dans chaque dimension d'un tableau (des tableaux dans un tableau en fait) bien évidemment, l'accès devient un petit peu plus compliqué :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Tbl(1 To 3) As Range   Set Tbl(1) = Range("A1:B10") Set Tbl(2) = Range("C1:D10") Set Tbl(3) = Range("E1:F10")   'retourne la valeur de la cinquième cellule du range '(en partant de gauche à droite et de haut en bas) de 'la dimension 2 du tableau MsgBox Tbl(2)(5)

---

Hervé.