Discussion :

[Biboozz]

Bonjour, je ne pense pas que le titre soit très explicié donc voila mon problème :

J'ai une variable du type :

Code :

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

1
2
dim Cellul as Range
Cellule = Range("A1")

Je voudrais maintenant que ma cellule réfère non plus à "A1" mais à

Code :

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

Cellule.Offset(1,0)

sans changer le contenu de "A1"

J'ai beau chercher je ne trouve pas réponses.

Merci de votre aide

[Slooby]

Bonjour

Déjà, pour les variables de type Range, ce sont des objets. Il faut faire:

Code :

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

1
2
Dim maPlage as Range
Set maPlage = Range("A1")

Ensuite, si tu veux que ta variable change de range, tu lui dit simplement de changer de range.

Code :

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

Set maPlage = Range("D4") 'par exemple

Slooby

[casefayere]

Bonjour,
dans quel but ?, déjà on écrit

Code :

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

1
2
Dim Cellule as Range
Set Cellule = Range("A1")

et

Code :

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

Cellule.Offset(1,0)

, c'est

Code :

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

Set Cellule = Range("A2")

ça manque d'explication

EDIT : pas vu ta réponse Slooby

[Biboozz]

Bon, j'ai trouvé une solution mas elle est un peut dégueue je trouve :

Code :

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

1
2
3
4
5
6
 
With NextIndex
    Set .Name = .Name.Parent.Range(.Name.Offset(1, 0).Address)
    Set .Surname = .Surname.Parent.Range(.Surname.Offset(1, 0).Address)
    Set .Value = .Value.Parent.Range(.Value.Offset(1, 0).Address)
End With

voila...

EDIT: Je comprend vos réponse, le truc c'est que j'ai simplifié le code pour le forum. Je voudrais déplacer mes variables realtivement à leur position précédente.
EDIT2: J'ai mis le parent etant donné que je travail sur deux workbooks différents