Déclaration publique de tableau interdite en Userform

Version imprimable

Bonjour,

Je développe depuis quelque temps en VBA et je me trouve aujourd'hui face à quelque chose qui me déplait ...

Version courte :
VBA m'interdit de déclarer un tableau publique dans le code de mon userform. Quelle solution s'offre à moi, autre que déclarer une variable publique dans le Sub appelant le userform ? (qui me semble être une solution "moche")

Version longue :
Grossomodo, j'ai un Sub ("DeleteColonne") qui doit appeler un userform ("UF_ColonneDelete").
Le userform a besoin (entre autre) d'une variable tableau de dimension 1 en paramètre pour pouvoir se construire et alimenter une listview.

Ce code date d'il y a quelque temps, il fonctionne parfaitement car j'utilise des variables publiques dans mon Sub (DeleteColonne)
Mais le soucis c'est que :
- C'est moche, j'ai la variable de mon Sub appelant qui se balade partout dans mon projet
- Mon userform n'est pas autonome, je lui dis "ha au fait, faut que tu récupères aussi une variable d'une autre module pour pouvoir fonctionner, vas y , va la chercher toi même"
- Si je veux modifier le nom de ma variable publique, je dois balayer tout mon projet pour ne pas oublier d'occurence

J'aimerai donc l'améliorer et effectuer un code propre en rendant le code de mon userform autonome.

J'ai donc opter pour la méthode suivante

Code de mon main :
Code:

1 2 3 4 5 6 7 8 9 10 public sub DeleteColonne() dim paramètre1 as string dim Parametre2() as string ' set de mes 2 variables Call UF_ColonnDelete.UF_Show(Paramètre1, Paramètre2) '... End sub
Code de mon userform :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 public Parametre1 as string Public Parametre2() as string Public Sub UF_Show(Param1 as string, Param2() as string) parametre2 = param2 UF_ColonneDelete.show Param1=parametre1 End sub public sub userform_initialize() ' code qui se lance lorsque UF_ColonneDelete.show est executé ' construction du userform en fonction de parametre2 ' l'utilisateur va rentrer parametre1, puis à la fermeture l'idée est de renvoyer parametre1 en sortie ' ... End sub
Cette solution est jolie, mais VBA refuse un tableau comme variable publique d'un userform ....
Une solution "élégante" existe-t-elle ? Si oui laquelle ?
J’espère avoir été clair ... Merci de vos réponses !

Bonjour ArthG, bonjour le forum,

je ne comprends pas ton soucis. Si ta variable est déclarée publique dans un module standard, rien ne t'empêche de l'initialiser via l'initialisation de ta UserForm.

• Module 1

Code:

Public Tbl() As Variant

• UserForm1
Code:

1 2 3 4 Private Sub UserForm_Initialize() Tbl = Worksheets("Feuil1").Range("A1:A7") '{lundi, Mardi,..., Dimanche}, disponible désormais dans tout le projet VBA Me.ComboBox1.List = Application.Transpose(Tbl) End Sub

21/11/2019, 19h34
Patrice740

Bonjour,

Un post sur les variables publiques : https://www.developpez.net/forums/d2.../#post11121548 à lire !
21/11/2019, 21h44
anasecu

Bonjour,

Citation:

Envoyé par ArthG

J'aimerai donc l'améliorer et effectuer un code propre en rendant le code de mon userform autonome.

Alors dans ce cas pourquoi tu utilises

Code:

public sub userform_initialize()

reste en

Code:

Private Sub UserForm_Initialize()

et défini tes variables en tête du module UserForm il sera autonome et transportable.

Bonjour,

Code:

1
2
3
4
5
6
7
Sub test()
Dim Parametre1(10) As String, Parametre2() As String
Dim UsF As New UserForm1
 UsF.Parametre2 = Parametre1
 Parametre2 = UsF.Parametre2
UsF.Show
End Sub

Code:

1
2
3
4
5
6
7
Private Parametre2_() As String
Public Property Let Parametre2(Value As Variant)
Parametre2_ = Value
End Property
Public Property Get Parametre2() As Variant
Parametre2 = Parametre2_
End Property

Citation:
Envoyé par Thautheme
Bonjour ArthG, bonjour le forum,

je ne comprends pas ton soucis. Si ta variable est déclarée publique dans un module standard, rien ne t'empêche de l'initialiser via l'initialisation de ta UserForm.

• Module 1

Code:

Public Tbl() As Variant

• UserForm1
Code:

1 2 3 4 Private Sub UserForm_Initialize() Tbl = Worksheets("Feuil1").Range("A1:A7") '{lundi, Mardi,..., Dimanche}, disponible désormais dans tout le projet VBA Me.ComboBox1.List = Application.Transpose(Tbl) End Sub
@ Thautheme
Merci de ta réponse. En fait je n'ai pas de problème technique, mon programme fonctionne. Mais je ne souhaite pas utiliser de variable publique dans mon module standard. J'aimerai tout filer en paramètre

Citation:

Envoyé par Patrice740

Bonjour,

Un post sur les variables publiques : https://www.developpez.net/forums/d2.../#post11121548 à lire !

@ Patrice
Merci infiniment pour ce post ! Comme toi j'enregistre le lien pour me le rappeler ^^. Pierre Fauconnier met à l'écrit ce que je ressentais. Je suis content de voir que je ne suis pas le seul à trouver les variables publiques "moches".
Mais je crains que lorsqu'il dit "Je pense qu'on peut s'en passer dans tous les cas (ou presque)", il n’émette l'idée que dans certains cas il n'est pas possible de faire autrement ... Peut être suis je dans ce cas.

Citation:

Envoyé par anasecu

Bonjour,

Alors dans ce cas pourquoi tu utilises

Code:

public sub userform_initialize()

reste en

Code:

Private Sub UserForm_Initialize()

et défini tes variables en tête du module UserForm il sera autonome et transportable.

@ Anasecu
En effet ... Merci pour le public/Private, je modifie.
En revanche, les variables Tableau sont interdites en tant que Variable publique dans un module de UserForm, c'est de là que vient ma gêne.
D'ailleurs pour être propre, ll faut utiliser envenimement activate et non pas Initialize. L'evenement activate est appelé lorsque le userform est affiché, envenement initialize est appelé lorsque le module du userfrom est activé.

Merci pour vos réponses !
Je n'ai toujours pas la réponse à ma question, mais je pense comprendre qu'il n'y a pas de solution propre pour ce cas particulier .... Vraiment dommage ... C'est la première fois que je suis confronté à une telle situation :(

Citation:
Envoyé par Thumb down
Bonjour,
Code:

1 2 3 4 5 6 7 Sub test() Dim Parametre1(10) As String, Parametre2() As String Dim UsF As New UserForm1 UsF.Parametre2 = Parametre1 Parametre2 = UsF.Parametre2 UsF.Show End Sub
Code:

1 2 3 4 5 6 7 Private Parametre2_() As String Public Property Let Parametre2(Value As Variant) Parametre2_ = Value End Property Public Property Get Parametre2() As Variant Parametre2 = Parametre2_ End Property
Mec, Merci !!!!!!!!
En fait, j'ai pas fait exactement comme tu dis.
J'ai déclaré le tableau en private dans le module UserForm, je n'ai pas utilisé les property. J'ai filé mon tableau en paramètre de mon sub, et c'est dans le paramètre que j'écris dans la variable private (comme elle est private, elle est utilisable dans tout le module, du coup pas besoin de gérer les property).
Je suis refait de ouf !! Vraiment, merci beaucoup !!!
Je me rend compte que je n'ai pas assez de connaissance sur la portée des variables.

En gros la solution est de ne pas déclarer mon tableau en public dans mon module de UserForm (car c'est interdit par VBA), mais de le déclarer en Private car je n'ai pas besoin qu'il soit défini en Public.

Sujet résolu !! Merci à tous !!
Excel et VBA sont une belle machine :)

Voilà la solution donc :

Code:

1
2
3
4
5
6
7
8
9
' code du module standard appelant le userform
Public sub ColonneDelete
 Dim Tableau1() as string
 Dim ReponseTableau as string
 
 call UF_ColonneDelete.UF_Show (Tableau1,ReponseTableau)
 
 ' ... utilisation de ReponseTebleau dans la suite de mon code
End sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Code du module de mon userform
Private Reponse as string
Private Tableau() as string
 
Public UF_Show(ParamTableau() as string, ParamReponse as string)
 Tableau = ParamTableau
 UF_ColonneDelete.show
 ParamReponse = Reponse
end sub
 
private UF_ColonneDelete_activate()
 'utilisation de Tableau pour générer mon UserForm
end sub
 
'... reste du code

pour info!

Code:

1
2
3
4
5
6
Public UF_Show(ParamTableau() as string, ParamReponse as string)
 ...
 Me.show
 ...
end sub