XL 2016 vba constante avec un range dedans

[fred19732]

Bonjour,

Je voudrais déclarer et utiliser une constante qui contient un renge dedans.

je m'explique.

je voudrais avoir la constante Sphere qui contient a2:a10
j'ai donc déclaré :

const maRange = "a2:a10".
mes questions.

de quel type est cette constante (as range ne fonctionne pas sous excel 2016)

comme je dois l'utiliser.
si dans une methode je veus appeler ce range, lorsque j'écris

worksheets"mafeuille").range(maRange)
ou
worksheets("mafeuille").range (""" & maRange & """)
cela ne marche pas.

merci de votre aide.

 

[Hasco]

Bonjour,

votre constante est une constante de Type String puisqu'elle contient une chaîne de caractères.

Et normalement: WorkSheets("Feuil1").Range(maRange) devrait renvoyé l'objet range idoine.

Const maRange = "a1:a10"
Sub truc()
' il faut d'abord afficher la fenêtre d'exécution CTRL+G
Debug.Print Worksheets("Feuil1").Range(maRange).Address
End Sub

cordialement

 

[Dranreb]

Bonjour.

si dans une methode …

Cette programmation serait-elle donc dans un module objet, pour que vous puissiez y appeler "méthode" une procédure Public ?
Personnellement je préfèrerais déclarer une Private MaRange As Range et faire Set MaRange = Worksheets("mafeuille").Range("A1:A10") dans la procédure d'initialisation, ou, à défaut, d'activation de l'objet.

 

[Staple1600]

Bonsoir le fil,

Une autre possibilité

Sub test()
ActiveSheet.Range("A1:A10").Name = "Sphere"
MsgBox [Sphere].Address(0, 0)
[Sphere].Select
MsgBox Selection.Address(0, 0)
MsgBox [Sphere].Offset(10, 10).Address
End Sub