Problème avec une constante "Public"

[Magic_Doctor]

Bonjour,

J'ai une cellule ("celtri") localisée sur la feuille comme suit :

celtri = [ListeItems2].Columns(1).Offset(-2).Resize(1)

Cette cellule est reprise par plusieurs macros.
Plutôt qu'à chaque fois la définir dans chaque macro où elle figure par :

Dim celtri as Range
set celtri = [ListeItems2].Columns(1).Offset(-2).Resize(1)

puisque c'est une constante, j'ai tenté de la déclarer comme "Public" :

Public Const celtri = [ListeItems2].Columns(1).Offset(-2).Resize(1)

Ça ne marche pas du tout.
Il y aurait-il un moyen pour y remédier ?

Merci d'avance pour tout conseil.

 

[pierrejean]

Re : Problème avec une constante "Public"

Bonjour Magic_Doctor

A mon humble avis il ne s'agit pas d'une constante au sens Vba (Pi=3.14 en serait l'exemple)
Tu devrais tester:

Public celtri =[ListeItems2].Columns(1).Offset(-2).Resize(1)

 

[Magic_Doctor]

Re : Problème avec une constante "Public"

Bonjour pierrejean,

J'avais au départ essayé comme tu me le proposes, instantanément toute la ligne devient rouge. Refus catégorique de cette sentence !

 

[pierrejean]

Re : Problème avec une constante "Public"

Re

Es-tu sur de cette écriture :

set celtri =[ListeItems2].Columns(1).Offset(-2).Resize(1)

Comment définirais-tu celtri dans la langue de Molière ?

 

[Magic_Doctor]

Re : Problème avec une constante "Public"

"celtri" est une cellule qui se trouve exactement 2 lignes au-dessus d'un tableau nommé "ListeItems2".
Quand je clique sur cette cellule, le tableau "ListeItems2" est trié. Voilà pourquoi j'ai appelé cette "constante" "celtri". Mais j'aurais tout aussi bien pu l'appeler "macellule".

 

[mécano41]

Re : Problème avec une constante "Public"

Bonjour à tous,

Regarde ceci : déclaration dans module 1, init. dans ThisWorbook ; ensuite, tu peux appeler depuis n'importe quel module.

Cordialement

 

[Robert]

Re : Problème avec une constante "Public"

Bonjour le fil, bonjour le forum,

J'aurais plutôt écrit :

Public celtri As Range

En tête d'un module pour la déclarer... Puis la définir dans une procédure:

Sub Macro1()
Set celtri=
[ListeItems2].Columns(1).Offset(-2).Resize(1)
End Sub

 

[mécano41]

Re : Problème avec une constante "Public"

au message #6 j'ai ajouté le même en .xls...

 

[pierrejean]

Re : Problème avec une constante "Public"

Re

OK avec Robert
Pas du tout familier avec cette écriture le test que j'avais fait debugait parce que la zone ListeItems était placée trop haut
Toutes mes excuses pour l'intervention inapropriée

 

[Magic_Doctor]

Re : Problème avec une constante "Public"

Bonsoir mécano41, Robert,

En effet, mécano41, je n'y avais pas pensé ; il suffisait de localiser la cellule "celtri" lors de l'ouverture du classeur. "celtri" étant déclarée comme "Public" est ensuite récupérée par les macros qui l'utilisent.

Merci à tous pour votre aide.