Déclaration de Constantes

[ChTi'160]

Bonjour le "FORUM"
je bidouille par ce beau temps et je tente d'allèger le code d'une procèdure en remplacant des répétitions par des With imbriqués si possible
[
qu'elles sont les limites ,les interdits
exemple de ce que j'aimerai faire (si possible)
CONST MLb1 As ???????="Me.ListBox1.Column" par exemple
??????? remplacé par Variant,String ne marche pas
Celà me donnerait ----->=MLb1(0,x) pour =Me.ListBox1.Column(0,x)
donc est ce possible? si oui comment ? et où?
Merci D'avance
A+++
Jean Marie

 

[Robert]

Salut Jean Marie, salut le forum,

Je crois que Const LLb1 as Control ne fonctionne pas. En tout cas je n'y arrive pas. Mais tu peux renommer la ListBox1 par sa propriété Name et lui attribuer un nom plus court Lb1 par exemple. Ça te permettra de dire Lb1.Column(0,x).
De plus, si tu utilises le code ailleurs que dans l'UserForm dont il dépend, le Me ne convient pas il te faut spécifier UserForm1.ListBox1 et d'ailleurs, si tu l'utilises dans l'UserForm il est inutile car ListBox1 suffit pour parler de la ListBox1.

J'espère que ça t'aidera un peu.

À plus,

Robert

 

[ChTi'160]

Salut"Robert"
oui effectivement la proprièté Name permet de diminuer la longueur
j'ai tenté ce système
en voulant remplacer des expressions du genre
WorkBooks.("Tata").Worksheets("ToTo").range("A1")="tutu"
remplacer WorkBooks.("Tata").Worksheets("ToTo") par WwT par exemple
bon je te remercie
A+++
Jean Marie