simplification code

[alf43]

Bonjour au forum,

svp, qq1 pourrait m'aider à regrouper ces codes en un seul si possible ,

J'ai 60 textbox sur un USF et seulement certaines d'entre elle doivent ouvrir un calendrier pour saisie de date.
je ne suis pas arrivé à utiliser une boucle du type for each i in (1, 16, 7, 31 ...) puis le code.
le fait de déclarer le numéro de la textbox dans le private sub me pose pb.
merci à ceux qui pourront prendre le temps de jeter un oeil à mon soucis.

 

[laetitia90]

Re : simplification code

bonjour alf43
il faudrait deja voir ton fichier sans données conf...

apres on verra si on peut adapter une classe pour simplifier

 

[alf43]

Re : simplification code

Bonjour laetitia90,

je mets mon fichier simplifié. l'image code que j'ai mise en préambule de cette discussion est dans le code USF1
cordialement

 

[laetitia90]

Re : simplification code

ok regarderais ce soir si pas de reponse d'ici la

 

[laetitia90]

Re : simplification code

re, j'ai regarde ton fichier ??

a mon avis le plus simple le calendrier je le mets dans l'user mais actif seulement sur certaines box

j'utilise tag.... en clair dans chaque proprietée des box concernées j'ai mis 1... faut ben mettre quelque chose!!!

Dim z
Private Sub UserForm_Initialize()
 Calendar1.Value = Now
End Sub
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 z = IIf(ActiveControl.Tag <> "", ActiveControl.Name, "")
End Sub
Private Sub Calendar1_Click()
 If z <> "" Then Me(z) = Calendar1 Else Exit Sub
End Sub

 

[laetitia90]

Re : simplification code

re

j'ai fais une version classe également toujours avec calendrier dans user
interessant a partir de x textboxs

 

[alf43]

Re : simplification code

Salut Laetitia,
je viens d'intégrer la version 1 dans mon fichier. Pas de soucis;
C'est une façon détournée de résoudre mon problème mais si simple à la fois.
Je vais décortiquer ta dernière mise à jour;
je te remercie pour ton aide.
j'espère te rendre l'appareil un de ces jours ...

 

[alf43]

Re : simplification code

Re Laetitia,
la version 2 est ce que je cherchais à comprendre. Je ne pratique pas assez les modules de classes ce qui me bloquait finalement;
Merci beaucoup pour cette démo;
à bientôt j'espère