XL 2019 Afficher les noms des checkbox sélectionné dans une listbox

[Tipeu]

Bonjour a tous,

Je suis a la recherche d'une solution pour générer le nom de mes checkbox sélectionnés dans une liste box visible a coté en direct.
Photo ci dessous : pour la démonstration j'ai cliqué sur ma checkbox nommé 1A j'aurais voulu que son nom apparaisse dans la listbox et si possible d'y rajouter un complément de phrase.

Merci de votre aide, un jeune padawan qui a envie d'apprendre mais bloque un peu tout seul malgrés toutes les aides dispo sur le web.

 

[Dranreb]

Oui, peut être, mais il ne faut absolument pas poursuivre dans cette voie.
La base ça doit être le tableau des trous possibles, et si on tient aux CheckBox il faut que le CkxCollection soit capabler de renvoyer dans un Long() la liste des numéros de lignes dans ce tableau des CheckBox cochées afin de pouvoir y retrouver les coordonnées du centre quand on clique sur une ligne de la ListBox. La première chose à faire c'est de chargez ce tableau dans une variable tableau Private et de remplacer cette stupide série de CkxCln.Add constants par une boucle qui l'explore. j'ai donné les formule pour les argument X et Y en fonction des Centre X et Centre Y. Il resterait à y communiquer le numéro de ligne utilisé comme compteur dans cette boucle.

 

[laurent950]

Re @Dranreb
A qu'elle endoit ? Qu'elle Poste # de Qu'elle discussion ?

j'ai donné les formule pour les argument X et Y en fonction des Centre X et Centre Y. Il resterait à y communiquer le numéro de ligne utilisé comme compteur dans cette boucle.

 

[Dranreb]

Poste #24 de cette discussion.

 

[laurent950]

Re @Dranreb
Merci j'ai compris une bonne partie de tous se systéme.

J'ai une question utilisé les Collections (est-ce que cela à un grand intérêt) ?
Je vais étudier le reste du code Module de classe
J'ai déjà appris beaucoup
Merci @dranred

 

[Dranreb]

Ça a des avantages et des inconvénients par rapport aux Dictionary.
Les avantages: Accès positionnel possible à un membre de la collection., parcours possible par boucle For Each In
Les inconvénients: Clés String uniquement supportées, impossibilité d'en extraire les tables des clés et des items.

 

[laurent950]

Bonjour @Dranreb

J'ai posté le fichier et commenté est Aérer le code pour bien voir ou j'ai cette problématique de la variable
Collection (dans le module de Classe)

Notamment cette (Variable Object Cln)
- qui est impossible a récupérer a travers une classe
- Comme aussi depuis un module standard

La procédure Test (Ne sert a rien) c'est juste pour récupérer l'objet dans cette procédure !
- avoir accès a cette variable depuis la classe.

Par contre même dans le module de classe la variable Cln est vide (Nothing)

Property Get LectCln() As Collection
'
'
'
    Set LectCln = Cln   ' Cln est Vide ? (Cln = Nothing)
'
'
'
'
End Property

pourtant il devrait y avoir des valeurs dans Cln (Puisque je suis dans la classe à se moment là !)

Cela coince @Dranred ?

Mille merci pour les multiples solutions que vous m'apporter au fils du temps.

 

[Dranreb]

Bonsoir.
Non, c'est normal que la collection Cln du nouvel exemplaire de CkxCollect créé dans la sub test soit vide puisqu'il n'y a eu aucun appel à sa méthode Add, qui seule y ajoute des éléments.
C'est vrai que le Set Cln As New Collection est inutile s'il a été déclaré Private Cln As New Collection.
Rappel: toutes les données même Private sont propre à l'exemplaire, contrairement aux procédures qui sont propres au type.

 

[laurent950]

Bonsoir @Dranreb
Merci pour cette réponse je vous Poste se que j'ai résolu.

La question : C'est possible de faire la même choses avec des
Property plutot que des Publics ?
Je veux dire pour tous le code
Les declarations Public sont obligatoire et incontournable (Pour réalisé ce programme ?)
C'est juste une question que je me pose et que je ne suis pas arrivé a réalisé avec tous en privée (Property)

 

[Dranreb]

Personnellement je précise toujours Private ou Public devant queque chose de global, que ce soit dans un module standard ou dans un module de classe, sinon c'est un coup à ne plus trop savoir un beau jour ce qu'il assume !

 

[laurent950]

Re @Dranreb
Oui c'est vrai alors si j'ai bien compris
par exemple Property (est seulement privée a la classe donc) inutile d'écrire : Private
Private Property Get CompteItemCln() As Collection

 

[Dranreb]

Oui mais si on ne précise pas Private je crois qu'il assume Public. Je ne suis plus sûr du coup puisque je le précise toujours pour ne pas avoir à me poser la question ni avoir besoin de connaître la réponse.

 

[laurent950]

Re @Dranreb
J'ai la page cela peux être Private Ou Public et encore d'autres
Property Get, instruction (VBA) | Microsoft Docs
Alors c'est peux être pour cela qu'il n'y à pas d'héritage entre les classes ?
Si ont veux récupérer une méthodes dans une classe il n'y a juste à la Déclarer Public ?
Vous en pensez quoi ?

Nota : je vais faire comme vous à présent je vais tous déclarer ! Merci @Dranreb

 

[Dranreb]

Que voulez vous dire par "il n'y a pas d'héritage entre les classes" ?
Il est possible de définir un module de classe Interface pour pouvoir en définir plusieurs variantes qui commenceront par une instruction Impléments suivi du nom de l'interface.

 

[laurent950]

Re @Dranreb
J'ai compris les Modules de Classes, vous m'avez expliqué est c'est bon a présent. je vais m’entraîner avec les Collections.
Merci Dranreb