Discussion :

[deubelte]

Bonjour
J'aimerais creer une nouvelle propriete de la classe "Range" qui permette de renvoyer les cellules contigues a une cellule.
Appelons Voisinage cette propriete, on aurait:

Code :

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

1
2
3
4
5
6
7
Sub exemple
 
Set R=Range("C10")
Set Region=R.Voisinage
Region.Select
 
end sub

Ce code aurait pour effet de selectionner les cellules contigues a C10.
Le pb est que je ne sais pas comment on fait ca.
Alors j'ai cree un nouvel objet dont la classe est "clRegion"

le code de la classe est:

Code :

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

1
2
3
Public Property Get Region(nsheet As Range)
 Set Region = Range(nsheet.Offset(-1, -1), nsheet.Offset(1, 1))
End Property

et la fonction de selection est:

Code :

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

1
2
3
4
5
6
Sub exemple()
Dim R As New clRegion
Set Rf = R.Region(Range("C10"))
Rf.Select
 
End Sub

Le pb est que ca doit creer un nouvel objet, ce qui n'est pas necessaire.

Alors comment puis-je faire ce qu eje voulais faire au debut?
merci