Discussion :

[benramin31]

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 :

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
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

[jfontaine]

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 :

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

Public Col(10) as integer

et utilisera comme cela

Code :

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

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

[benramin31]

Bonjour, et merci jfontaine pour ta réponse!

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

Code :

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

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

[jfontaine]

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 :

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

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 :

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

Dim col(1 To 10) As Integer

Soit spécifier que le tableau est de base 1

Code :

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

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

[benramin31]

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 :

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

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!!

[jfontaine]

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

Code :

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

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

[benramin31]

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!!