Discussion :

[alavoler]

Bonjour à tous !


Je souhaite pouvoir :
Dans un tableau avoir la possibilité pour une colonne de pouvoir cocher parmi une liste de libellé.
Idéalement:
- J'aimerai dire à Excel, définir une colonne en temps que "CheckedListBox" dans un tableau Excel (les nouveau tableaux qui sont apparu en 2007)
- Second niveau de difficulté : Je souhaite pouvoir le récupérer les sélections par programmation (j'utilise Aspose Cells C#) // bon ça c'est mon problème, si déja j'arrive à définir ma colonne je serai heureux !

Voila, je tourne un peu en rond et je ne sais pas faire ca dans un tableau !
L'alternative que j'ai trouvé: c'est de créer une colonne par option avec un Oui/Non, mais c'est franchement pas Glop !


Un modèle est dispos CJ (mais bon y a rien de concret)

Merci pour votre aide !

[Daniel.C]

Bonjour,

La macro suivante crée les checkboxes en colonne E et les cellules liées correspondantes en colonne H. Donc, tu dois tester ces cellules pour récupérer l'état du checkbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CreationCB()
    Dim C As Range, chkbx, Plage As Range
    With Sheets("Client")
        Set Plage = .ListObjects(1).ListColumns(5).Range
        Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 2)
        For Each C In Plage
            Set chkbx = .CheckBoxes.Add(588, C.Top + 0.75, 72.75, 16)
            chkbx.LinkedCell = C.Offset(, 3).Address
            C.Offset(, 3) = False
        Next C
    End With
End Sub

[Daniel.C]

et pour la mise à jour dynamique, mets quelque part sur la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIGNES(Utilisateurs[Nom])

(éventuellement masquée); dans un module standard (au début) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public NbLignes As Long

Dans le module "thisworkbook" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    NbLignes = [Client!H1]
End Sub

et dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Calculate()
    Dim S As Shape
    Dim c As Range, Plage As Range
    If [H1] <> NbLignes Then
        Set Plage = Sheets("Client").ListObjects(1).ListColumns(5).Range
        Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 2)
        Plage.Select
        NbLignes = [H1]
        For Each S In ActiveSheet.Shapes
            If S.FormControlType = xlCheckBox Then S.Delete
        Next S
        For Each c In Plage
            Set chkbx = ActiveSheet.CheckBoxes.Add(588, c.Top + 0.75, 72.75, 16)
            chkbx.LinkedCell = c.Offset(, 3).Address
            c.Offset(, 3).Value = False
        Next c
    End If
End Sub

[alavoler]

Daniel.C
Merci pour ces précisions !

C'est pas sur que je puisse facilement exploiter l'information en programmation, de façon dynamique.. Quant à la maintenance du bouzin...
Une chose est sur c'est que ça se fait pas intuitivement.

Je vais regarder demain au calme, comment l'exploiter au mieux

Merci du (gros) coup de main !
Bonne soirée !