declarer variable range constante

[Gargol]

Bonjour,

j'ai plusieurs variable a declarer de type range.
J'aimerai les declarer en dehors de mes procedure pour pouvoir recuperer les valeur dans plusieurs procedure de la meme feuille.

Cela fonctionne avec des type Integer mais pas pour Range

Option Explicit
Const Ligne1 As Integer = 175
Const Ligne2 As Integer = 386
Const Ligne3 As Integer = 875

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then MsgBox "ligne1 = " & Ligne1
    If Target.Address = "$C$3" Then Copier
    If Target.Address = "$C$4" Then recuperer
End Sub

J'aimerai faire

Const Range1 as Range = Me.Range("C7:G7")

Mais biensur cela ne fonctionne pas comme cela :x
Vu qu'il y a plusieurs range a declarer un tableau serait utile aussi si une solution existe

Merci

 

[Dranreb]

Re : declarer variable range constante

Bonjour.
Vous ne pouvez pas déclarer des constantes objets (un Range en est un) mais pour un Range vous pouvez vous arranger pour qu'il soit connu une fois pour toutes en lui donnant un nom dans le classeur. Ainsi vous n'auriez qu'à spécifier ce nom entre []