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

Tipeu · 23 Juillet 2020

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 · 27 Juillet 2020

Bonsoir.
Proposition suite à conversation …

fanfan38 · 24 Juillet 2020

Bonjour
Un fichier aurai été plus apprécié qu'une photo....
Est ce un userform ou une feuille?
si feuille y a t'il une cellule liée?

A+ François

Tipeu · 27 Juillet 2020

fanfan38 à dit:
Bonjour
Un fichier aurai été plus apprécié qu'une photo....
Est ce un userform ou une feuille?
si feuille y a t'il une cellule liée?

A+ François

Bonjour François,

Voici mon fichier, tous ce trouve sur le module.

_Thierry · 27 Juillet 2020

Bonjour @Tipeu, le Forum

Comme je vois qu'il y a des références à des biblithèques AutoCad, y-a t'il une raison pour que des CheckBoxes soient en "TripleState" ?

La méthode conventionnelle serait (en TripleState False) serait :

VB:

Private Sub CommandButton1_Click()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeName(CTRL) = "CheckBox" Then
        If CTRL.Value = True Then
            Me.ListingTrou.AddItem CTRL.Caption
        End If
    End If
Next CTRL
End Sub

Mais paramétrés en TripleState = True elles ne retournent rien...

Bonne journée
@+Thierry

Tipeu · 27 Juillet 2020

_Thierry à dit:
Bonjour @Tipeu, le Forum

Comme je vois qu'il y a des références à des biblithèques AutoCad, y-a t'il une raison pour que des CheckBoxes soient en "TripleState" ?

La méthode conventionnelle serait (en TripleState False) serait :

VB:

Private Sub CommandButton1_Click() Dim CTRL As Control For Each CTRL In Me.Controls If TypeName(CTRL) = "CheckBox" Then If CTRL.Value = True Then Me.ListingTrou.AddItem CTRL.Caption End If End If Next CTRL End Sub

Mais paramétrés en TripleState = True elles ne retournent rien...

Bonne journée
@+Thierry

Bonjour @_Thierry,

Merci de votre réponse.

Actuellement le TripleState, me permet d'avoir deux états différents pour autocad, en effet par la suite je veux que chaque case cocher me renvoie une position défini sur AutoCad pour le traçage d'un cercle, mais je veux aussi pouvoir gérer la mise en place d'un second cercle associé en cliquant une seconde fois sur la case a cocher.

J'ai essayé votre code, j'ai pour cela mis une case en TripleState=False, mais quand j'execute ma macro et que je sélectionne ma case a cocher rien ne s'afficher dans ma listbox, je pense que cela viens du fait que je soit en " _click()" mais je ne sais sous quel état passer cela pour resoudre mon problème.

En vous souhaitant une bonne journée.

_Thierry · 27 Juillet 2020

Re,

En fait si tu essaies à "If CTRL.Value = False Then" , il mettra toutes les CheckBoxes dans la ListBox...
Je ne maitrîse pas vraiment le TripleState, je n'en ai jamais eu besoin... Il faut chercher sur le net...

PS Le Click ne devrait avoir aucune incidence là dedans à mon avis, ce qui compte c'est la Value

Si je fais ceci avec Deux CommandButtons sur ton Userform :

VB:

Private Sub CommandButton1_Click()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeName(CTRL) = "CheckBox" Then
         CTRL.Value = True
    End If
Next CTRL
End Sub

Private Sub CommandButton2_Click()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeName(CTRL) = "CheckBox" Then
        If CTRL.Value = True Then
            Me.ListingTrou.AddItem CTRL.Caption
        End If
    End If
Next CTRL
End Sub

Celà fonctionne :

Bon Courage !
@+Thierry

Tipeu · 27 Juillet 2020

_Thierry à dit:
Re,

En fait si tu essaies à "If CTRL.Value = False Then" , il mettra toutes les CheckBoxes dans la ListBox...
Je ne maitrîse pas vraiment le TripleState, je n'en ai jamais eu besoin... Il faut chercher sur le net...

PS Le Click ne devrait avoir aucune incidence là dedans à mon avis, ce qui compte c'est la Value

Si je fais ceci avec Deux CommandButtons sur ton Userform :

VB:

Private Sub CommandButton1_Click() Dim CTRL As Control For Each CTRL In Me.Controls If TypeName(CTRL) = "CheckBox" Then CTRL.Value = True End If Next CTRL End Sub Private Sub CommandButton2_Click() Dim CTRL As Control For Each CTRL In Me.Controls If TypeName(CTRL) = "CheckBox" Then If CTRL.Value = True Then Me.ListingTrou.AddItem CTRL.Caption End If End If Next CTRL End Sub

Celà fonctionne :
Regarde la pièce jointe 1074422

Bon Courage !
@+Thierry

J'ai essayé de reproduire ce que vous m'avez mis en code disponible, mais lorsque que j'execute la macro celle ci m'affiche une erreur de "projet ou bibliothèque introuvable" sur le CTRL As Control.

_Thierry · 27 Juillet 2020

Regarde si tu as ces références manquantes dans Outils => Référence

Auquel cas décoches-les "MISSING" ...
(A mon avis tu ne dois pas être sur ta machine avec AutoCad)
@+Thierry

Tipeu · 27 Juillet 2020

_Thierry à dit:
Regarde si tu as ces références manquantes dans Outils => Référence

Regarde la pièce jointe 1074428

Auquel cas décoches-les "MISSING" ...
(A mon avis tu ne dois pas être sur ta machine avec AutoCad)
@+Thierry

Merci beaucoup. (Autocad etait bien present sur ma machine c'est le AutoCad/Object et le AxMPolygon qui m’embêtais)

Serait-il possible d’évité le CommandButton2 et que la listbox "s'actualise en continue" ?
A l'heure actuel, j'ai la possibilité de rajouter au fur et a mesure des cases a cocher mais cela me fait des doublons sur les anciennes cases cocher.
De plus ma listbox sera aussi une liste sélectionnable pour géré mes 2 possibilités, Cercle seul ou Cercle et cercle secondaire.

Merci de votre aide, j'ai l'impression de mettre attaqué a un roc avec les userform.

_Thierry · 27 Juillet 2020

Re Tipeu

Pour éviter les CommandButtons, il faudrait faire un module de Class pour capter l'évènement click de chaque CheckBox vu que tu en as une rimbambelle... Mais c'est un peu "hardu" ...
Recherche sur ce Forum il y a eu des exemples il n'y a pas si longtemps...

Sinon par checkbox :

VB:

Private Sub Trou36_Click()
ListingTrouUpdate
End Sub

ListingTrouUpdate étant la macro qui était dans le CommandButton2... mais c'est lourd avec beaucoup de CheckBoxes...

@+Thierry

Dranreb · 27 Juillet 2020

Bonsoir.
Proposition suite à conversation …

_Thierry · 27 Juillet 2020

Bonsoir @Dranreb , @Tipeu , le Forum

Ah ben voilà un joli exemple de Module de Class pour notre ami !!! En plus les CheckBox sont même créées à la volée !

Merci Dranreb !

Pour le TripleState tu as de l'expérience là dedans ?

Bonne soirée
@+Thierry

Dranreb · 27 Juillet 2020

Oui, ce n'est pas très compliqué:
De mémoire, par code, la propriété Value d'une CheckBox peut se voir attribuer la valeur Null. Elle apparait alors pâlement cochée.
Si sa propriété TripleState est à True, elle peut en outre aussi prendre cette valeur quand on clique dessus.

Tipeu · 28 Juillet 2020

Bonjour @_Thierry et @Dranreb ,
Wouah merci beaucoup, vous m'enlevez la une sacrée épine du pied, merci à vous deux pour votre aide je devrais désormais être capable de me débrouiller tout seul.

laurent950 · 30 Novembre 2020

Bonsoir
Magnifique votre Module de classe @Dranreb
je vais m'en inspirer pour developpez avec les Userforms

J'ai une question au passage
C'est quoi en informatique un Handle Property pour un Objet (C'est un Id unique rattaché à cette objet toutes au long de la vie de cette objet) ?

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

Tipeu

XLDnaute Nouveau

Dranreb

fanfan38

XLDnaute Barbatruc

Tipeu

XLDnaute Nouveau

Pièces jointes

_Thierry

XLDnaute Barbatruc

Tipeu

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

Tipeu

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

Tipeu

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

_Thierry

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Tipeu

XLDnaute Nouveau

laurent950

XLDnaute Barbatruc