XL 2021 numérotation CheckBox

nano33320 · 15 Mars 2024

Bonjour à toutes et tous

Le sujet qui me perturbe aujourd'hui est un soucis de numérotation de CheckBox dans un UserForm.
J'utilise 3 UserForm quasi identique dans un outil de gestion des membres d'une asso.
"Nouvel Adhérent" / "Mise à Jour Adhérent" / "Information Adhérent"
Leurs CheckBox sont numérotés de 1 à 14 (activités).
Sauf que pour l'UserForm ci-dessous 8 CheckBox sur les 14 ont leur numéro qui a été changé dans Excel (ceux marqués), pour quelle raison ? Excel a ses raisons...???
Quand je veux réattribuer les numéros conformes au programme, j'ai un refus de VBA... ???

Pour les 2 autres UserForm identiques à la finalité et couleur près R.A.S. tout est Ok.
Dans le même UserForm le même problème se produit aussi pour le TextBox13 que j'ai dû renommer TextBox013

J'ai déjà rencontré ce problème une fois avec ce même UserForm,
je l'avais résolu en supprimant l'UserForm et en le recréant (j'avais conservé le code) mais c'est plutôt lourd...
Problème déjà rencontré 2 fois, pourquoi pas 3 ???
😵‍💫
Les macros fonctionnent, puis je constate un dysfonctionnement à l'affichage => n° changé... Pas Cool...
😣
Si vous avez une idée de l'origine de ce problème, et m'aider à le corriger
vous m'enlèveriez une belle épine du pied...

Merci de votre aide
Nano

Dranreb · 15 Mars 2024

Ben oui, l'UserForm défini et un exemplaire affiché sont deux choses différentes. Un module UserForm n'est rien d'autre qu'un module de classe avec interface à MSForms et bénéficiant d'une déclaration implicite Public UserForm1 As New UserForm1 à supposer que son nom de type est UserForm1.
Pour assurer des traitements spécifiques, je prévoirais une variable Private Mode et ferais des Select Case Mode avec tous les cas de traitements nécessaires.
Info: Mon objet ControlsAssociés, et plus précisément sa méthode Add, supporte les CheckBox correspondant chacune à une colonne de la base à mettre à jour.

nano33320 · 15 Mars 2024

Qu'est-ce qu'un multipage de UserForm ?
Le même UserForm, effectivement je pense pouvoir l'adapter à l'initialisation en Nom et couleur de fond...
Situer sur un serveur cloud, l'outil à vocation à être utilisé par plusieurs personnes qui ne connaissent strictement rien en Excel ou autre progiciel.
J'ai prévu d'afficher une page (toujours la même verrouillée) avec des UserForm en fonction des besoins le même UserForm (x3) prend des couleurs différentes pour fixer l'étape.
Le choix d'avoir 14 CheckBox est pour visualisation graphique immédiate des activités de la personne.

Je suis preneur de toutes les simplifications possibles, mais je pense à l'exploitation qui va en être faite en fonction du profil des dites personnes...

nano33320 · 15 Mars 2024

Dranreb à dit:
Ben oui, l'UserForm défini et un exemplaire affiché sont deux choses différentes. Un module UserForm n'est rien d'autre qu'un module de classe avec interface à MSForms et bénéficiant d'une déclaration implicite Public UserForm1 As New UserForm1 à supposer que son nom de type est UserForm1.
Pour assurer des traitements spécifiques, je prévoirais une variable Private Mode et ferais des Select Case Mode avec tous les cas de traitements nécessaires.
Info: Mon objet ControlsAssociés, et plus précisément sa méthode Add, supporte les CheckBox correspondant chacune à une colonne de la base à mettre à jour.

🤔
Module de classe... je n'ai pas encore eu le temps de regarder ce que c'est (j'ai découvert ça dans notre échange).
Select case mode ??? Même recherche que pour module de classe
😣🫡
Il va falloir que je creuse, super, je reviens à l'école
😊😊

Dranreb · 15 Mars 2024

Un MultiPage est un cadre à plusieurs onglets. Il serait adapté à la mise à jour de différents groupes de colonnes par des personnes différentes si la base comportait vraiment un grand nombre de colonnes.
Sinon ils apporte en général une complication inutile et peu ergonomiqiue à mon avis.
Un module de classe est un module dont toutes les variables globales sont adressées par rapport à l'adresse d'une structure de donnée qu'on appelle un exemplaire (instance en anglais). C'est le concept même de la notion d'objet VBA. Un objet peut avoir des propriétés, des méthodes et des évènements.

jcf6464 · 15 Mars 2024

RE Nano, Danreb et le forum

il peut faire avec le classeur suivant de (Danreb) tout dépend du nombre de colonnes,

bonne continuation jcf

nano33320 · 20 Mars 2024

Bonjour Danreb et jcf6464

J'ai dû mettre le "dossier" en "veilleuse" quelques jours.
Me voilà de retour, profil bas 😣 à l'écoute de vos propositions.
Comme suggéré, j'ai créé un dossier anonymisé pour essayer d'avancer et que vous puissiez concrètement voir l'étendu du problème.
Cahin-caha le fichier tournait à peu près jusqu'à ce que je veuille mettre un peu plus d'ergonomie sur la saisie de l'orthographe des noms.
Cette approche fonctionne (ce n'est pas moi qui l'ai développée, pas assez compétent pour çà, je l'ai trouvé sur internet).
Ce qui a tout planté c'est le souhait de présenter le choix de la validation de l'orthographe...
La version anonyme a plus de bug que l'original...
Mais quelle est la taille max d'un fichier que l'on peut joindre ?
à 1MO (fortement allégé) ça coince.
😣
Merci
Nano

nano33320 · 22 Mars 2024

patricktoulon à dit:
re
ben pour l’alléger
déjà on pourrait faire qu'un userform avec un multipage
tes checkbox les events on peut simplifier
et je parle même pas du code qu'il peut en découler de cette organisation bien mal pensé (sans vouloir offenser)

par exemple pour tes checkbox (sport) je suppose qu'a la validation tu envoie dans les colonnes de sport adéquat
et dans ce cas là tes checkbox n'ont pas besoins de la gestion d'event
tout ces codes events sautent

Bonjour Patrick
Enfin mon fichier tourne (reste 1 ou 2 petit truc à corriger).
MAIS il "pèse" plus de 6 MO... pas cool
😣
Surtout qu'il tourne à partir d'un cloud, et les quelques personnes qui vont l'utiliser n'ont pas des PC foudroyant...
Mes compétences en programmation sont très limités.
Mon fichier a 27 feuilles dont 14 TCD pour les listes de participants à chaque activité (nécessité d'impression pour les animateurs).
Je suis ouvert à toutes les options pour l'alléger (faut-il que je comprenne car s'est moi qui vais assurer la maintenance/évolutions nécessaires)...
La gestion d'event, je ne sais pas ce que c'est ou des Modules de Classe j'ai une vague idée mais je n'ai pas eu le temps de creuser...
J'utilise une macro pour "nettoyer" les feuilles en général et les TCD en particulier :

VB:

Sub Alléger_EPTs()
    Application.ScreenUpdating = False      '----> Figer l'écran
    Sheets("Menu").Select
    Rows("38:38").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("X:X").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Liste de Noms").Select
    Rows("301:301").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("AF:AF").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Stat_Asso").Select
    Rows("375:375").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Columns("AD:AD").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Support-Macros").Select
    Rows("33:33").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("S:S").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Menu").Select
    Range("A1").Select
' -- TCD ----
    For i = 4 To 21
    Sheets(i).Select
    Range("B1").Select
    Selection.End(xlDown).Select
    R = ActiveCell.Row + 1
    Cells(R, R).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("N:N").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Next i
    Sheets(27).Select
    R = InstanceRL + 1
    Cells(R, R).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("W:W").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    For i = 1 To f
    Sheets(i).Select
    Range("A1").Select
    Next i
    Sheets("Menu").Select
    Range("A1").Select
End Sub

ça a fonctionné au début du développement mais c'est nettement insuffisant.
Merci pour les conseils...
Nano

patricktoulon · 22 Mars 2024

re
Bonsoir
que dire ?
moi si je n'ai pas de fichier je fait rien
ensuite
au regard du post 22 je me rends compte que tu utilise l'enregistreur de macro
alors c'est bien mais il faut apprendre ce que les lignes crées veulent dire afin de réduire le code à l'essentiel
si en effet tout ton fichier est construit comme ça ça m’étonne pas qu'il fasse 6 MO

je n'ai rien contre les autodidactes j'en suis un moi même
mais avant de se lancer dans la construction d'un applicatif avec excel
on apprends les bases

nano33320 · 23 Mars 2024

Bonsoir Patrick
Merci de ce retour de très bon conseil.
Tu as raison, je me définirai comme une "imposteur" de VBA.
😉
Je développe quelques outils en fonctions de besoins liés à mes activités/loisirs (je suis en grande vacances).
N'ayant aucune base, j'utilise l'enregistreur de macro...
Macros que j'agrémente de solutions glanées sur le net. Solutions que je customise dans la mesure où je les comprend. Ce n'est pas très esthétique pour le rendu de programmation, mais globalement ça fonctionne.
C'est le premier "gros" (pour moi) outil que je développe.

Je veux bien "nettoyer" le fichier pour l'anonymiser et l'alléger au maximum pour le mettre à disposition mais quelle est la taille maxi sur le site ? à 1 MO c'est trop gros.

Au plaisir de continuer l'échange
Nano

jcf6464 · 23 Mars 2024

Bnojour Nano, Danreb et le forum

Pour la dépose du fichier, pourquoi ne pas passer par (https://www.cjoint.com/)

bonne continuation jcf
bonne journée

patricktoulon · 23 Mars 2024

re
non il n'y a pas d'imposteur ici
seulement des personnes qui ont tendance à sauter des étapes 🤣 🤣

anonymise ton fichier(eventuels nom prénom ou adresses ,tel etc....
post ton fichier sur cjoint.com par exemple
et met le lien ici

on pourra peut être être plusieurs à nettoyer tout ça

je te donne un exemple
ton post 22 je vois ça

VB:

Sub Alléger_EPTs()
    Application.ScreenUpdating = False      '----> Figer l'écran
    Sheets("Menu").Select
    Rows("38:38").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("X:X").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Sheets("Liste de Noms").Select
    Rows("301:301").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Columns("AF:AF").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft

d'ailleurs on vois bien que même si on garde ce genre de code tu n'a même pas pris la peine de netoyer les lignes en double

par contre moi je ferais ceci
des blocs with intelligibles

VB:

Sub Alléger_EPTs_V2()
    With Sheets("Menu")
        .Rows("38:38").Resize(.UsedRange.Rows.Count).Delete Shift:=xlUp:
        .Columns("X:X").Resize(, .UsedRange.Columns.Count).Selection.Delete Shift:=xlToLeft
    End With

    With Sheets("Liste de Noms")
        .Rows("301:301").Resize(.UsedRange.Rows.Count).Delete Shift:=xlUp
        .Columns("AF:AF").Resize(, .UsedRange.Columns.Count).Delete Shift:=xlToLeft
    End With

pas de select donc on accélère la chose

TooFatBoy · 23 Mars 2024

Bonjour,

patricktoulon à dit:

Enrichi (BBcode):

With Sheets("Menu")
.Rows("38:38").Resize(.UsedRange.Rows.Count).Delete Shift:=xlUp:
.Columns("X:X").Resize(,.UsedRange.Columns.Count).Selection.Delete Shift:=xlToLeft
End With

patricktoulon à dit:
pas de select donc on accélère la chose

🤔

nano33320 · 23 Mars 2024

Merci de vos propositions
le fichier est téléchargeable à cette adresse :

EPTs-Ano.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

---> {je découvre ce site}
Il est possible que quelques macros aient souffert de l’anonymisation... celles que j'ai lancées ont l'air de fonctionner.
Vous y reconnaîtrez peut-être quelques contributions que l'un ou l'autre d'entre vous a fourni à la communauté.
Grand merci à eux.

J'ai eu une surprise :
Le fichier une fois anonymisé pesait environ 1 MO.
J'ai introduit une image pour remplacer celle du club => poids supérieur à 2 MO.
J'ai testé : mettre enlever remettre l'image => le poids du fichier n'a quasiment pas bougé...

Je soupçonne Excel de "stoker" des infos de manière inutile, mais où...???

Merci par avance de vos contributions et des progrès que j'espère réaliser grace à nos échanges...
Cdlt
Nano

patricktoulon · 23 Mars 2024

re
@TooFatBoy
oui tu a raison un malheureux copier coller

re
@nano33320 je te prepare un fichier que j'avais commencer avec ton userform façon patosh
je l'avais commencé avant que tu joigne ton fichier
comme ça tu aura un exemple du comment on fait en un seul userform (Ajout/modifier)

deja pour te donner une idée

la pour le moment c'est restau avec des pots

nano33320 · 23 Mars 2024

🥂🍷🐟🍖
Alors bon moment de convivialité pour toi et tes pots
😊
Un grand Whaaouu pour l'userform

XL 2021 numérotation CheckBox

nano33320

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

nano33320

XLDnaute Junior

nano33320

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

Pièces jointes

nano33320

XLDnaute Junior

nano33320

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

nano33320

XLDnaute Junior

jcf6464

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

nano33320

XLDnaute Junior

EPTs-Ano.xlsm

patricktoulon

XLDnaute Barbatruc

nano33320

XLDnaute Junior

XL 2021 numérotation CheckBox

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Privacy & Transparency

Privacy & Transparency