Vba - set + sub

[Nenesandco]

Bonjour à tous,


Est-il possible d'inscrire une procédure SET en dehors d'une procédure SUB ?

Je m'explique : j'ai une variable que je souhaite reprendre dans tous mes modules. Cette variable représente une plage de cellules. J'ai inscrit Public devant la variable.

Enfin j'ai voulu attribuer une plage à cette dite variable en inscrivant Set :

'Feuille REF:
'Table Lieux de la feuille REF
Public Lieux As Range
    Set Lieux = Sheets(5).Range("A1:H141")

Sub

End Sub

Seulement, quand je lance ma macro, on m'indique "Instruction incorrecte à l'extérieure d'une procédure".

Comment puis-je faire ?

Cela veut-il dire qu'il faudra que je redéfinisse à chaque fois ma plage alors que la variable reste la même ?

Merci pour vos lumières !

 

[camarchepas]

Re : Vba - set + sub

Bonjour ,

non , l'affectation des variables n'est pas nécessairement au même endroit que la déclaration,

il suffit juste de trouver une macro ou l'on passe systématiquement ,

Au pire sur le workbook_open du thisworkbook

 

[Dranreb]

Re : Vba - set + sub

Bonjour.
Non, ça signifie qu'une instruction exécutable n'est valide qu'à l'intérieur d'une procédure, qui peut s'exécuter.
Peut être que ce qui irait bien, c'est un nom dans le classeur se référant à cette plage. Il suffirait de le spécifier entre [] dans le code.

 

[mromain]

Re : Vba - set + sub

Bonjour à tous,

Une solution serait de rajouter une propriété (en lecture seule) au classeur en rajoutant ce code dans le module ThisWorkbook :

Public Property Get Lieux() As Range:
    Set Lieux = ThisWorkbook.Sheets(5).Range("A1:H141")
End Property

Ainsi, on peut accéder à la Range depuis partout avec ce code :

ThisWorkbook.Lieux

A+

 

[ctiquoi]

Re : Vba - set + sub

Bonjour,

Est-il possible d'inscrire une procédure SET en dehors d'une procédure SUB

'======= Module standard 1

Private m_Lieux As Range

Public Property Set Lieux(argRange As Range)

    Set m_Lieux = argRange

End Property

Public Property Get Lieux() As Range

    Set Lieux = m_Lieux

End Property

'======= Module standard 2

Public Sub MaPlage()

    Dim x As Range

    Set x = ActiveSheet.Range("A1:A1")

    Set Lieux() = x

    Set x = Lieux()

    Debug.Print x.Value

End Sub

C'est ça ?

 

[Staple1600]

Re : Vba - set + sub

Bonsoir à tous


Je suis l'avis de Dranreb
Mettre cette ligne dans WorkBook_Open
Sheets(5).Range("A1:H141").Name = "Lieux"

On peut alors utiliser Lieux partout dans le code

Sub b()
MsgBox [Lieux].Address
End Sub

Sub C()
MsgBox [Lieux].Count
End Sub

 

[MJ13]

Re : Vba - set + sub

Bonjour à tous

En général, je nomme ma zone sur la feuille zone par exemple puis j'écris dans la macro Range("zone").

A tester .

De plus, il suffit de taper F5 pour voir et aller vers les zones nommées.

 

[Nenesandco]

Re : Vba - set + sub

Bonjour à tous,


Pardon pour cette réponse tardive. Je vous remercie pour vos éclaircissements.
Je vais me pencher sur toutes vos suggestions.

Bonne journée à tous !