Conversion plage cellule à partir d'index

Version imprimable

Bonjour à tous

J'ai un code qui me recupére des index de cellules et j'ai des difficultés à convertir mes données en adresse notamment pour les range (plage de cellule)

par exemple
Code:

1 2 3 4 5 6 7 8 9 nbrligne=10 nbrcolonne=4 indexcolonne=3 'plageglobale("A1:D10") plageglobale=Wb.ws.range(cells(1,1),cells(10,4)) 'colonnesansentête("C2:C10") colonnesansentête=Wb.ws.range(cells(2,3),cells(10,3))
Je me cherche sur l'écriture:
-utilisation d'address
-utilisation split
-type de donnée (string,range...)
-définition de range
- type pour chaque donnée
-gestion en string ""&""

C'est un problème que je rencontre de nombreuses fois et je n'ai pas trouvé d'explication claire sur la manière de procéder

D'avance,merci

05/10/2012, 21h36
SfJ5Rpw8

Bonsoir,

et qu'est censé faire ton code ?
06/10/2012, 13h15
AlainTech

Bonjour,

Un Range est un objet, il faut donc un Set.
De plus, si ws est défini, inutile de le préfixer de Wb.

Code:

Set plageglobale = ws.Range(Cells(1, 1),Cells(10, 4))

Attention aux noms de variables avec accent...

mise à jour avec set: ça ne fonctionne pas

Merci pour les premieres pistes.

Un extrait de mon code ( tri de plages qui sont susceptibles de changer de dimensions)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim plageentetecolonne As range
Dim plageentete As range
Dim plageglobale As range
Dim nbr... As integer
 
Set plageentetecolonne = WB_B2B.Sheets(4).Range(Cells(1, 2), Cells(1, nbrcolonnesimu1 + nbrcolonnecode1 - 1)).Columns
Set plageentete = WB_B2B.Sheets(4).Range(Cells(1, 2), Cells(1, nbrcolonnesimu1 + nbrcolonnecode1 - 1))
Set plageglobale = WB_B2B.Sheets(4).Range(Cells(1, 2), Cells(nbrminlignecomparaison, nbrcolonnesimu1 + nbrcolonnecode1 - 1))
 
WB_B2B.Sheets(4).plageentetecolonne.Select
WB_B2B.Sheets(4).Sort.SortFields.Clear
WB_B2B.Sheets(4).Sort.SortFields.Add Key:=plageentete, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With WB_B2B.Sheets(4).Sort
        .SetRange plageglobale
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With