Un peu de rangement (dans mon Userform)

[bpangel]

Bonjour à tous,
J'ai créé un USF avec près de 600 textboxes et autres boutons, actuellement, tous les 'changes' apparaissent dans la meme fenetre de programmation. J'aimerai pouvoir les classer (par genre par exemple) dans le cas ou je doive intervenir plus tard pour faire des modifications. Mais je ne sais pas ou je peux copier mes formules pour qu'elles fonctionnent encore dnas mon USF.

J'ai essayé de les mettre dans une feuille module, mais ca n'a pas marché...

Merci

Bruno

 

[tonton]

salut

Petite question quand tu as copier tes formules dans le module as tu speciafié l'userform??

exemple si dans une procedure de l'userform1 tu fais
textbox1='dédé'

dans le module faudra faire
userform1.textbox1='dédé'

@+

 

[bpangel]

Merci tonton
Ca veut dire que je dois tout reprendre? et a chaque fois ajouter 'userform' devant chaque textbox? devant mes 600 textboxes? Je crois que si c est la seule solution ca va rester en état...

En tout cas merci.

 

[bpangel]

Faut il appler le module d'une facon ou d'une autre? Car j ai mis les userform1 partout (c est le bon nom de USF et ca marche pas quand meme... merci

 

[Shinichi]

Bonjour à tous,
Je suis preneur de l'info, j'ai un peu le meme probleme avec mon formulaire

 

[TonTon]

Re

Pour repondre a votre question en faites tu n'es evidemant pas obligé de taper

userform1.textbox1='dédé' 600 fois lol

tu ajoutes simplement au debut :

with userform1

.textbox1='dédé'
.textbox2='ggggg'
etc

end with
si tu souhaites faire une boucle pour vider par exemple les textbox 1 a 100 tu tape :

For i = 1 To 20
Controls('Textbox' & i).value = ''
Next i

voila ya d'autres facon de faire une boucle sur un controle pour evité de taper 600 fois la meme chose mais au faites qu'es que tu fais avec 600 textbox lol ????

@ +

 

[tonton]

petite rectif

For i = 1 To 100
Controls('textbox' & i).value = ''
Next i

sinon tu n'aurais vider que les 20 premieres

 

[_Thierry]

Bonjour ce Fil, le Forum

En ayant pas d'expérience avec les UserForms, je trouve moi aussi très impressionnant d'avoir 600 TextBox (je n'aimerais pas être l'utilisateur final !!! lol)

Pour compléter on peut aussi utiliser des 'Sous Sub' avec passage d'Argument, ce qui évite de faire beaucoup de lignes de codes répétitives pour exactement le même traitement....

Une 'Usine à Gaz' ici avec ce genre de truc ...

Ce lien n'existe plus

Bonne Journée
[ol]@+Thierry[/ol]


J - 2 = U 2

 

[Dan]

Bonjour à tous,

Je fais une incursion ici juste pour saluer mon ami Thierry. Et oui, ce fil mémorable des élections et quelle USF !!!! comme d'hab.

Allez bonne journée

 

[tkx]

.