[XL-2010] Définir une Range dans une Range.

Définir une Range dans une Range.

Bonjour à tous et merci de votre aide et de votre temps.

J'ai un truc que je n'arrive pas à faire et je ne comprend pas où est mon erreur.

Dans une feuille j'ai une zone nommée SourceDirectoryListdont l'adresse est B8:C11.
J'aimerai accéder aux cellules B9:B11 (donc les n lignes moins la 1ère ligne la 1ère colonne) sans évidement préciser les adresses en dur.
J'essaye donc de définir une range par rapport à ma range.

Mon code actuel est :
Code:

1 2 3 4 5 Dim area As Range Set area = Me.Range("SourceDirectoryList").Range( _ Me.Range("SourceDirectoryList").Cells(2, 1), _ Me.Range("SourceDirectoryList").Cells(Me.Range("SourceDirectoryList").Rows.Count, 1))
et il me donne comme zone C16:C18.

J'ai fait une recherche sur Google et je ne trouve que des exemples de range se référant à une feuille.

Si je fais
Code:

1 2 3 Set area = Me.Range( _ Me.Range("SourceDirectoryList").Cells(2, 1), _ Me.Range("SourceDirectoryList").Cells(Me.Range("SourceDirectoryList").Rows.Count, 1))
Cela me donne la zone que je veux mais je ne comprend pas pourquoi je ne peux pas définir une range dans une range en précisant les cellules en haut à gauche et en bas à droite.

Quelqu'un sait-il ?

A+

Bonjour
sur la base de ton exemple (et donc en exemple) :
Code:

1 2 3 4 Dim rangetout As Range, rangedans As Range Set rangetout = Range("B8:C11") Set rangedans = rangetout.Offset(1).Resize(rangetout.Rows.Count - 1, rangetout.Columns.Count - 1) rangedans.Select
EDIT : et il y aurait du plus rigolo à faire avec appication.intersect. ;)

Bonjour,

Je limite le code écrit par paresse :P

Code:

1
2
3
4
5
    Dim area As Range
    With Me.Range("SourceDirectoryList")
        Set area = .Cells(2, 1).Resize(.Rows.Count - 1, 1)
        area.Select
    End With

Bonjour marot_r, unparia,

Me.Range("SourceDirectoryList").Cells(2, 1) à pour adresse B9
Me.Range("SourceDirectoryList").Cells(Me.Range("SourceDirectoryList").Rows.Count, 1)) a pour adresse B11

Un range de ces deux range . select va sélectionner la plage B9:B11 (normal, c'est ce qu'on attend)

Mais... , appliqué à Me.Range("SourceDirectoryList") on aura toujours cette plage B9:B11 mais non plus par rapport à la feuille, mais par rapport à la zone nommée SourceDirectoryList. donc avec un décalage de 1 colonne et 9 lignes.

Bonne soirée

EDIT : bonsoir anasecu

Il est également possible de garder l'idée de départ de Marot. En en corrigeant toutefois l'écriture, selon ce principe/exemple :
Code:

1 2 3 Dim rangetout As Range, rangedans As Range Set rangetout = Range("B8:C11") MsgBox Range(rangetout(2, 1), rangetout(rangetout.Rows.Count, 1)).Address

Salut Jacques,

tu es passé avant par 2 fois sur les exemples que je voulais donner :( ;)
Bon exemples :plusser:, ma préférences allant sur le 2è ex.
je l'avais écrit ainsi :
Code:

1 2 3 4 5 6 7 8 Sub Exemple() Dim MyNewRange As Range With Range("SourceDirectoryList") Set MyNewRange = Range(.Cells(2, 1), .Cells(.Rows.Count, 1)) End With MyNewRange.Select MsgBox MyNewRange.Address End Sub

Bonsoir à tous

Code:

1
2
3
With Me.Range("SourceDirectoryList")
    .Range("A2").Resize(.Rows.Count - 1).Select
End With

re

Code:

1
2
3
4
5
Dim plage As Range
    With Me.Range("SourceDirectoryList")
       Set plage = Range(.Cells(1).Offset(1), .Cells(.Cells.Count).Offset(, -1))
        plage.Select
    End With

rien n'est en dur ;)

Bonjour à tous,

il me semble que le .Offset(, -1) est en trop Patrick.
Si tu as plusieurs colonnes tu ôtes la dernière.
eric

Bonjour
Variations autour de « Vous avez dit « Range » ?

Code:

1
2
3
4
Sub où()
  Dim plage As Range: Set plage = [B8:C11]
  MsgBox Range(plage.Cells(2, 1), plage.Cells(2, 1).Offset(plage.Rows.Count - 2)).Address
End Sub

Code:

1
2
3
4
Sub ici()
  Dim plage As Range: Set plage = [B8:C11]
   MsgBox plage.Cells(2, 1).Resize(plage.Rows.Count - 1).Address
End Sub

Code:

1
2
3
4
Sub là()
  Dim plage As Range:  Set plage = [B8:C11]
  MsgBox plage(2, 1).Resize(plage.Rows.Count - 1).Address
End Sub

Citation:

Envoyé par eriiic

Bonjour à tous,

il me semble que le .Offset(, -1) est en trop Patrick.
Si tu as plusieurs colonnes tu ôtes la dernière.
eric

bonjour eric

non le -1 c'est pour revenir a "B"

je cite le demandeur

Citation:

Dans une feuille j'ai une zone nommée SourceDirectoryListdont l'adresse est B8:C11.
J'aimerai accéder aux cellules B9:B11

des moyen plus ou moins tordus a fin de se flageller l'occipital y en a des tas
entres autres
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test() Dim plage As Range 'With Me.Range("SourceDirectoryList") With Range("B8:C11") 'on veut la b9:b11 'Set plage = .Cells(.Columns.Count + 1).Resize(.Rows.Count - 1, 1) 'Set plage = .Cells(2, 1).Resize(.Rows.Count - 1, 1) 'Set plage = Range(.Cells(2, 1), .Cells(.Rows.Count, 1)) 'Set plage = Range(.Cells(1).Offset(1).Address, .Cells(.Rows.Count, 1)) Set plage = Range(.Cells(2, 1), .Cells(.Cells.Count).Offset(, -1)) 'etc etc .... plage.Select End With End Sub
ah!!.. j'en oubliais une simple

Code:

Set plage = .Columns(1).Resize(.Rows.Count - 1).Offset(1)

:mouarf:

;)

Ah oui effectivement.
Je m'étais arrêté à :

Citation:

...en précisant les cellules en haut à gauche et en bas à droite.

un peu trompeur.
eric

Bonjour.

Sauf erreur de ma part, aucun des exemples fournis ne défini un sous-zone dans la zone initiale.
Ils redéfinissent une nouvelle zone (située dans la zone initiale) dans la feuille elle-même.

Ai-je raté un détail ?

A+

re

re
jeux de mot ramoucho

une zone dans une zone/une souszone?????????? ?
bon puisqu'il faut variablisé
Code:

1 2 3 4 5 6 7 Sub test() Dim zone As Range, sousZone As Range Set zone = Range("SourceDirectoryList") 'Set zone = Range("B8:C11") Set sousZone = zone.Resize(zone.Rows.Count - 1, 1).Offset(1) MsgBox sousZone.Address End Sub
si c'est pour redéfinir sourceDirectoryList" avec la réduction change lui le refertoR1C1 par l'adresse de la souzone et c'et tout

si ca n'est pas cela que tu veux il va falloir t'expliquer

Bonjour,

mais si, tous les exemples.
Et toi aussi tu le faisais.
Quand tu écris :
Code:

1 2 3 Me.Range("SourceDirectoryList").Cells(2, 1) ' ou qui peut s'écrire Me.Range("SourceDirectoryList").range(A2")
tu fais référence à la cellule A2 (2 ligne de la 1ère colonne) de ta plage Range("SourceDirectoryList"), pas de Cells de la feuille.
eric

Re,

un autre exemple avec comme point de départ la 2è cellule en haut à gauche :

Code:

1
2
3
4
5
6
7
8
9
Sub test()
Dim MyNewRange As Range
 
    With Range("SourceDirectoryList")(2, 1)
        Set MyNewRange = .Resize([SourceDirectoryList].Rows.Count - 1)
    End With
    MsgBox MyNewRange.Address
 
End Sub

Re

Avec un Tableau (ListObject) nommé Tb comme source
Code:

1 2 3 4 5 Sub là() Dim Area As Range Set Area = [Tb].Item(2, 1).Resize([Tb].Rows.Count - 1) MsgBox Area.Address End Sub
Nota : la position du tableau dans le classeur importe peu, celle de la procédure dans tout Module sauf un Module de Classe (plus lourd à gérer) aussi.

Bonjour et merci de vos explications.

Mon but est bien de définir un sous-zone dans une zone SANS redimensionner la zone nommée car elle est utilisée avec sa taille actuelle ailleurs.

J'ai

## B C

#8 E1. E2

#9 D1 D2

10 D3 D4

11 D5 D6

Et je cherchait à définir la sous-zone par rapport aux cellules de la zone principale, pas de la feuille en entier.
Soit :

## B C

#8 E1. E2

#9 D1 D2

10 D3 D4

11 D5 D6

Un peu comme si la zone était la feuille elle-même et que je conservais la logique de définition habituelle.

Tous vos exemples semble démontrer que ce n'est simplement pas possible.
Une range ne paraît être défini qu'en fonction de la feuille quoi que pourrait lasser penser la propriété .Range de l'objet .Range.

A+

Bonjour,

j'ai du mal à voir ce qui te bloque. Il faudrait que tu mettes un exemple concret.
Si j'écris :
Code:

1 2 Set pl = [B8:C11] Set pl2 = pl.Range("A2:C3")
pl2 est bien défini par rapport à pl et non par rapport à Feuil1.Cells non ?
Maintenant pl2 est aussi un range de la feuille aussi par définition : B9: D10
eric

re

Code:

Une range ne paraît être défini qu'en fonction de la feuille quoi que pourrait lasser penser la propriété .Range de l'objet .Range.

comme je te l'ai dis tu peux utiliser des variables typées pour faire des range.range.range.etc.......

dans ce genre la
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Type rng Range As Range range2 As Range range3 As Range range4 As Range 'etc..etc... End Type Dim original As rng Sub test() Set original.Range = Range("B8:C11") Set original.range2 = original.Range.Resize(original.Range.Rows.Count - 1, 1).Offset(1) 'etc..etc... MsgBox original.range2.Address End Sub