Problème avec une constante "Public"

pierrejean

XLDnaute Barbatruc

• 18 Mars 2013

• #2

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:

Code:

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2013

• #3

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 !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Mars 2013

• #4

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 ?

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2013

• #5

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".

 

Dernière édition: 18 Mars 2013

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 18 Mars 2013

• #6

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

 

Pièces jointes

• essai1.xlsm

  14.8 KB · Affichages: 32
• essai1.xlsm

  14.8 KB · Affichages: 33
• essai1.xlsm

  14.8 KB · Affichages: 30
• essai1.xls

  35.5 KB · Affichages: 29
• essai1.xls

  35.5 KB · Affichages: 31
• essai1.xls

  35.5 KB · Affichages: 31

Dernière édition: 18 Mars 2013

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Mars 2013

• #7

Re : Problème avec une constante "Public"

Bonjour le fil, bonjour le forum,

J'aurais plutôt écrit :

Code:

Public celtri As Range

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

Code:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 18 Mars 2013

• #8

Re : Problème avec une constante "Public"

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Mars 2013

• #9

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2013

• #10

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.

 

Vote positif 0 Vote négatif