Discussion :

[galopin01]

Bonjour,
Pardonnez moi ce titre sous une forme humoristique pour une question triviale :
Est-il possible de déclarer une même classe pour les 20 TextBox de 2 UserForm quasi identiques et de les instancier de la même manière.
Si les 2 UserForm sont ouverts en même temps n'y aura-t-il pas de conflit de nommage ?
Ou dois-je leurs donner des indices (voire des radicaux) différents ?
Ou faut-il carrément déclarer 2 classes différentes ?
Merci

[illight]

Hello,


Je sais pas si je comprend bien ta question, mais oui tu peux très bien avoir une textbox nommée TextBox1 sur 2 formulaires distincts.
Cela m'arrive souvent d'avoir des textbox nommées TxtNom dans 2 formulaires distincts, et je n'ai pas de problème particulier.

Il fut juste faire attention quand en sélectionne une de bien mettre la textbox de quel formulaire c'est, et donc mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.textbox1

devant si c'est le formulaire actif, et situ veux d'un autre formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

forms("Form1").textbox1

[galopin01]

Désolé si l'exposé manquait de clarté :
La question porte sur l'utilisation des Modules de Classes : Je vais être amené à traiter simultanément plusieurs Userforms comportant un nombre variable de TextBox
Appelons les usf1, usf2, usf3 et usf4
Ils comporteront tous plus ou moins une quinzaine de TextBox qui seront tous nommés tb1 à tb15 et plus si nécessaire...
Puis-je déclarer un module de classe ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public TBoxes(0 To 20) As ClasseTB

puis pour chaque usf ouvert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   For k = 0 To 15
       Set TBoxes(k) = New ClasseTB
       Set TBoxes(k).TBox = usf1.Controls("tb" & k)
   Next k

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   For k = 0 To 18
       Set TBoxes(k) = New ClasseTB
       Set TBoxes(k).TBox = usf2.Controls("tb" & k)
   Next k

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   For k = 0 To 20
       Set TBoxes(k) = New ClasseTB
       Set TBoxes(k).TBox = usf3.Controls("tb" & k)
   Next k

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   For k = 0 To 12
       Set TBoxes(k) = New ClasseTB
       Set TBoxes(k).TBox = usf4.Controls("tb" & k)
   Next k

Sachant que potentiellement l'un ou l'autre des userform auront vocation à être ouverts simultanément...
La classe saura-t-elle gérer l'homonymie malgré que les usf.parents soient distincts ?

Merci de t'être dévoué pour déblayer le terrain !

A+

[illight]

Hello,


Désolé, le week-end, je répond pas au forum, pas trop le temps

Mais pour te répondre : oui, si tes textbox ont le même nom, mais pas sur le même formulaire, ça posera pas de souci

[galopin01]

Très bien. Merci.

A+