Discussion :

[marot_r]

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 :

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

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 :

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

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+

[unparia]

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

Code :

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

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.

[anasecu]

Bonjour,

Je limite le code écrit par paresse

Code :

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

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

[Algoplus]

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

[unparia]

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 :

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

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

[RyuAutodidacte]

Salut Jacques,

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

Code :

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

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

[mercatog]

Bonsoir à tous

Code :

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

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

[patricktoulon]

re

Code :

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

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

[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

[OrDonc]

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

Code :

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

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 :

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

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 :

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

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

[patricktoulon]

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

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 :

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

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 :

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

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

[eriiic]

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

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

un peu trompeur.
eric

[marot_r]

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+

[patricktoulon]

re
jeux de mot ramoucho

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

Code :

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

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

[eriiic]

Bonjour,

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

Code :

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

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

[RyuAutodidacte]

Re,

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

Code :

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

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

[OrDonc]

Re

Avec un Tableau (ListObject) nommé Tb comme source

Code :

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

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.

[marot_r]

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+

[eriiic]

Bonjour,

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

Code :

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

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

[patricktoulon]

Code :

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

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 :

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

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