XL 2016 Long code dans userform vers un module

G

gbinforme

XLDnaute Impliqué

• 21 Mai 2023

• #2

Bonjour,
Pour ce genre de procédure il me semble que le plus fonctionnel est d'utiliser un module de classe.

https://excel-downloads.com/threads/exemple-dutilisation-des-modules-de-classe.64515/

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 21 Mai 2023

• #3

et comment fait on ?

car quand j'insert un module de classe et copie mon code puis y fait appel dans l'userform
il me dit erreur sub ou function non défini...

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 21 Mai 2023

• #4

je viens d'explorer ton lien... et je ne pense pas que ce soit un module de classe qu'il me faut utiliser...ou alors je comprend pas bien....

en gros je veux juste faire appel à du code depuis un module a partir d'un formulaire... mais ça bug quand ca fait référence a des éléments du formulaire ...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Mai 2023

• #5

Bonjour
32 optionbutton, je suppose donc que l'action a faire est très similaire
et pour peu qu'il soit du même groupe un seul suffit puisque quand tu coche l'un le précédent coché est décoché
il est donc pour moi inutile d'aller chercher midi 14 heures
une simple macro avec une boucle sur tes optionbuttons et faire une action selon celui qui est coché
si c’était des checkbox se serait différent

alors oui pour l'event change ou click (ou autre) de tes optionbuttons en effet ca t'oblige a avoir 32 event click(ou autres)
mais en fait non tu peux très bien classer tes optionbutton dans le userform et n'avoir qu'un seul event a gérer renvoyant sur ta macro(ou fonction dans un module)

un exemple simplissime
dans cet userform tu a 5 optionbuttons
je les subclasse intra userform et j'utilise un event unique
dans cet event unique j'appelle une macro dans un module(avec argument)
argument1 =loptionbutton clické
argument2 l'userform parent

dans la macro du module j'écris quel optionbutton est clické dans le textbox("vue") dans le userform

 

Pièces jointes

• exemple simple de subclassing intra userform des optionbutton.xlsm

  21.1 KB · Affichages: 2

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2023

• #6

Bonjour le fil

[moue dubitative du jour]

le demandeur à dit:

je ne maîtrise pas bien l'environnement vba

Cliquez pour agrandir...

qui trés raccord avec

je les subclasse intra userform et j'utilise un event unique

Cliquez pour agrandir...

[/moue dubitative du jour]

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Mai 2023

• #7

re
Bonjour @Staple1600
en même temps si il veut réduire ses codes et généraliser une sub ,ben il a pas le choix il devra apprendre
l'exemple donné est très simple
si il est vraiment intéressé , il posera des questions aux quelles j'y repondrais avec un discours à porté de débutant

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2023

• #8

Re

@patricktoulon
La première chose à faire, si je peux me permettre, serait de relire la charte du forum
(je parle du demandeur)
Pour s'apercevoir que joindre un fichier exemple dès le premier message permettrait aux répondeurs d'attaquer directement dans le dur
Si je me permettais encore, avant de titiller le VBA, appréhender l'utilisation des fonctionnalités et formules natives d'Excel serait moins "douloureux" (*)
(je parle toujours du demandeur)

(*) C'est les 32 OptionButton qui me font écrire cela.

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 21 Mai 2023

• #9

re bonjour le forum

mea culpa... c'est pas des optionbutton...mais des checkbox...desolé dans ma précipitation j'ai fourché...
donc 32 checkbox qui varie selon 8 horaires différents et selon 2 à 4 services de soins ...c'est long ( et surement mal écrit...mais je suis novice)

je vous joint mon fichier pour mieux comprendre...

il faut appuyer sur le rond bleu du premier feuillet pour demarer
et generer des étiquettes.
puis remplir le formulaire avec une nouvelle identité ou choisir une existante .
arrivé au nombre de biberons cela fait varier les checkboxs...en fonction du service.
bref le code fonctionne, mais pollu mon code d'userform ... donc je voulais le transferer dans un module et y faire appel.

le long code est dans Sub Nombre de biberons_change()

ps : rien a voir, mais j'ai un bug lorsque l'on choisi le premier nom de la liste filtré dans chaque service...exemple FAUVERGUE en Pédiatrie.

 

Pièces jointes

• les eti en neo 2 avec Bruno jumeau.xls

  874 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Mai 2023

• #10

re
@Staple1600 je te l'accorde très souvent les débutants ont tendance a mettre un paquet de controls pour faire une action similaire avec une nuance

et oui c'est vrai on devrait commencer par ça
après je ne vais pas critiquer une méthode d'apprentissage ou une autre

moi je suis sorti de VB6 et VBSCRIPT pour arriver en vba et j'ai commencé d’abords par les apis apres les macros , les fonctions, les classes ,les fonctions natives excel en dernier

alors je ne suis pas le mieux placé pour dire faire avant ceci ou cela

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2023

• #11

Re,

@Sirberthoult
Merci pour l'ajout du fichier exemple
Que j'ai ouvert
Si j'étais moi, je crois que j'envisagerai de tester une solution Publipostage Word+Excel pour générer les étiquettes.
Ton userfom2 (à mon sens) est peu ergonomique
Je cède mon tour pour cette fois-ci

@patricktoulon
Ca ne coute rien de donner tel ou conseil
Après le demandeur(*) fait ce qu'il veut
(Le seul à plaindre, c'est Excel qui se demande à quoi cela sert qu'il offre plein de fonctionnalités pour qu'elles ne soient pas utilisées)

(*) ici le demandeur = tous utilisateurs qui débutent avec Excel.

 

Dernière édition: 21 Mai 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Mai 2023

• #12

re

[moue dubitative du jour]

Si j'étais, je crois que j'envisagerai de tester une solution Publipostage Word+Excel pour générer les étiquettes.

Cliquez pour agrandir...

[/moue dubitative du jour]

LOL

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2023

• #13

Re,

[Précisions]
@patricktoulon
J'ai évoqué le publipostage après avoir ouvert le fichier exemple.
Tu l'as ouvert ?

Comme je l'ai dit, je laisse ma place.
Prends alors le relais et va doucement titiller tous ces controls sur l'userform2 dans ton VBE.

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 21 Mai 2023

• #14

staple1600
je savais que mon fichier allez faire peur...

mon userform2 n'est peut etre pas parfait je te l'accorde...mais necessaire pour avoir tout en visuel avant d'imprimer...les gouts, les couleurs...

ceci dit , ma demande n'est pas énorme... je veux juste transferer un bout de code de "Sub Nombre de biberons_change() " dans un module et y faire reference pour alléger la longeur du code de mon userform...
ce doit etre une chose de facile pour quelqu'un d'expérimenté je pense...enfin je crois...

je ne cherche pas particulierement à réecrire, ce code complexe qui fonctionne.

merci tout de même.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2023

• #15

Re

@Sirberthoult
Sur XLD, parfois je ponds de la formule, du code VBA, du conseil ou de l'opinion personnelle, sans oublier quelques blagounettes.
Dans tous les cas, les XDLnautes qui les lisent en font ce qu'ils veulent

Si j'étais encore moi, et que je laisserai naitre en moi l'envie d'utiliser un Userform, je serai d'accord avec @gbinforme pour titiller du module de classe qui facilite grandement les choses.

Mais présentement, je laisse mes petits camarades jeu du forum prendre le relais.

 

Vote positif 0 Vote négatif