XL 2021 numérotation CheckBox

N

nano33320

XLDnaute Junior

• 29 Mars 2024

• #76

Merci JCF

 

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 29 Mars 2024

• #77

Bon, j'ai essayé mais je bloque...

Tu peux les compter par [=NBVAL(ListAdherents[Nom]) ] Sexe etc... dans la feuille d'accueil​

J'ai essayé, c'est super mais maintenant que l'on unifie les 2 bases (année en cours plus années antérieures avec une colonne année, sur la feuille de synthèse, il faudrait modifier la formule pour intégrer l'année..
Formule donnant pour résultat par exemple [Nbre Adhérents sur 2024] => comptage sur 2 colonnes liées [Année] & [Adhérents]...
' ------------
J'ai trouvé pour le Nbre d'adhérent de l'année [=NB.SI(ListAdherents[Année];"2024")]
Mais pas pour le reste Nbre d'hommes/Femmes/Activité/... sur l'année je retombe sur le pb ci-dessus

 

Dernière édition: 29 Mars 2024

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 29 Mars 2024

• #78

Bonsoir Patrick
ci-joint le fichier unifié avec le tri par année

 

Pièces jointes

• Liste de Noms unifiée_test.xlsx

  36 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Mars 2024

• #79

re
avec la nouvelle base unifiée
tu a les années visible dans la combo

 

Pièces jointes

• v Pat.xlsm

  574.6 KB · Affichages: 16

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 3 Avril 2024

• #80

Bonsoir TooFatBoy et JCF
Bonsoir Patrick

J'espère que vous avez tous passé un bon WE Pascal...

Patrick, le classeur résultant de tes contributions, fonctionne plutôt bien.

J'ai eu quelques sueurs froides car ça fonctionnait dans le fichier avec l'UserForm que tu as fourni mais le même UserForm ne fonctionnait pas dans mon fichier (???)
J'ai supposé que la compilation avait buguée, j'ai fait un copié collé de la ligne à problème => c'était Ok Whaaoouu...

J'ai procédé à quelques ajustements de présentation et paramétrages complémentaires, c'est vraiment super !!!
Toutes les fonctionnalités que je souhaitais sont opérationnelles...
Un très grand merci à toi, à ta patience et pour le temps que tu y as passé.
Merci aussi à vous deux (TooFatBoy et JCF) car j'ai compris entre les lignes que vous aviez suivi et procédé à quelques tests en toute discrétion ().
Et puis, je ne peux que confirmer ce que tu as écrit TooFatBoy, Patrick est une personne peut-être "soupe au lait" mais très généreuse...

Il me reste juste un point mineur d'ergonomie à traiter, sur les 3 TextBox des "Code Postal"(1) et "Téléphone"(2)
Pour sortir des TexBox ni la tabulation ni le retour chariot ne fonctionnent... (ce sont les seuls avec ce problème ce sont aussi les seuls, hors date, avec un "formatage" imposé). Il faut positionner obligatoirement la souris sur le suivant.
J'ai essayé avec "TextBox_Change()" sans résultat...

Bonne route à vous
au plaisir de nouveaux échange.

Cordiales salutations
Nano​

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2024

• #81

re
Bonjour non moi c'est soupe au pinard hein

c'est normal la touche tab et enter sont libres de fonction si tu regarde bien les "case" dans le select casedans les fonctions sont vides à toi de coder ce que tu veux faire dans ce case"9,13"

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2024

• #82

re
@nano33320

VB:

  Case 9, 13
        If Not T Like "*_*" Then txtb.Parent.Controls(txtb.TabIndex + 1).SetFocus

 

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 3 Avril 2024

• #83

Merci
TOP

 

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 4 Avril 2024

• #84

Bonjour Patrickj, JCF et TooFatBoy

J'espérais bien en avoir fini avec ce dossier puisque le fichier fonctionne très bien sur mon PC.
Je l'ai transféré sur mon cloud il fonctionne aussi
Je l'ai mis sur une clef USB => il fonctionne...

MAIS, je me connecte avec un autre PC (en local/sur clef USB/sur le cloud) :

=> Pour les modifications d'adhérent fonctionnent, c'est bien ce que j'attendais ​

=> Pour l'ajout d'un nouvel adhérent ... il plante... , là je ne comprends plus...​

​

L'autre PC (Surface Pro) est sur les mêmes versions Windows (23H2) et Excel (office) 2021 pro.

Le point de plantage est le même que celui qui m'avait créé des soucis précédemment soit : "Set R = ThisWorkbook.Sheets("Liste de Noms").Range("ListAdherents").ListObject.ListRows.Add.Range"
dans le UserForm1 => l'ajout d'une ligne au tableau pour insérer le nouvel adhérent.

Complètement dépassé, je suis à l'affût de vos lumières expertes...

Cdlt
Nano

 

Vote positif 0 Vote négatif

N

nano33320

XLDnaute Junior

• 4 Avril 2024

• #85

Un complément de taille...
J'ai fait un autre essai sur le portable de ma femme (autre Surface Pro même config) ET ÇA fonctionne !
Donc le problème semble lié à un PC. Mais pourquoi ? Et vais-je rencontrer le même dysfonctionnement avec d'autres PC ??? Grrr
Nano

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Avril 2024

• #86

ben moi aussi je suis dans le flou
la ligne est propre pourtant

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 4 Avril 2024

• #87

nano33320 à dit:

Le point de plantage est le même que celui qui m'avait créé des soucis précédemment soit : "Set R = ThisWorkbook.Sheets("Liste de Noms").Range("ListAdherents").ListObject.ListRows.Add.Range"
dans le UserForm1 => l'ajout d'une ligne au tableau pour insérer le nouvel adhérent.

Cliquez pour agrandir...

As-tu toujours le problème si tu découpes cette action en deux étapes, genre ceci :

VB:

Range("ListAdherents").ListObject.ListRows.Add
Set R = Range("ListAdherents[#Headers]").Offset(Range("ListAdherents").ListObject.ListRows.Count)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Avril 2024

• #88

re
sérieux @TooFatBoy tu veux le faire travailler en range ?
dans ce cas la

VB:

With Range("ListAdherents"): Set R = .Rows(.Rows.Count + 1): End With
MsgBox R.Address

le Add se fera tout seul à l’inscription de données dans les cellule de R

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 4 Avril 2024

• #89

patricktoulon à dit:

sérieux @TooFatBoy tu veux le faire travailler en range ?

Cliquez pour agrandir...

Déjà, il serait infiniment reposant que tu cesses d'agresser systématiquement tout le monde !!!
Ensuite, moi je ne veux rien du tout !

Je n'ai fait que décomposer en deux étapes le code qui existait déjà dans la macro et qu'il dit planter sur un de ces PC.



Remarque : je me permets d'essayer d'aider même si, moi, je n'ai pas un melon prêt à exploser et, moi, je ne me prends pas pour le meilleur de l'univers car, moi, j'ai conscience de ne pas tout savoir...

 

Dernière édition: 4 Avril 2024

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Avril 2024

• #90

j'agresse pas je te demande si c'est sérieux
moi non plus je sais pas tout mais travailler une BDD avec les outils range sur version excel 2021
au pire essayez ça alors
Set R = ThisWorkbook.Sheets("Liste de Noms").ListObjects("ListAdherents").ListRows.Add.Range

 

Vote positif 0 Vote négatif