Discussion :

[elisemax]

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 :

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

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

[SfJ5Rpw8]

Bonsoir,


et qu'est censé faire ton code ?

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

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

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

Attention aux noms de variables avec accent...

[elisemax]

Merci pour les premieres pistes.

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

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