Intégrer nom variable dans Userform et CheckBox Name

Version imprimable

Bonjour le forum!

Je bute sur une problématique liée à l'utilisation de CheckBox dans un Userform.
Je souhaite renommer les CheckBox en fonction du nom des feuilles de mon classeur. Mais je ne trouve pas de solution...

Voici mon code pour l'instant. Je sais déjà récupérer le nom des différentes feuilles mais la propriété .Name appliquée à Controls n'est pas correcte.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_Initialize() Dim sh As String Dim n As Integer n = n + 1 For n = 1 To Sheets.Count sh = Sheets(n).Name Controls("CheckBox" & n).Name = sh Next n End Sub
Merci d'avance pour vos commentaires,

Bonne journée à tous!

Citation:

Envoyé par Esculape

Bonjour,

Ce n'est pas plutôt la propriété Caption que vous essayez de charger ?

Un exemple possible :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
 
Dim I As Integer
 
    For I = 1 To Worksheets.Count
 
        If Mid(Me.Controls(I - 1).Name, 1, 8) = "CheckBox" Then
           Me.Controls(I - 1).Caption = Worksheets(I).Name
           MsgBox "Nom : " & Me.Controls(I - 1).Name & Chr(10) & "Libellé " & Me.Controls(I - 1).Caption
       End If
    Next I
 
End Sub

Cordialement.

26/12/2016, 15h28
Esculape

Alors le code fonctionne à merveille, mais je n'arrive pas à récupérer le nom de toutes les feuilles. Seulement 5 d'entre elles sont prises en compte.

J'aimerais pouvoir étendre cette possibilité d'ajout à 20 feuilles.

Si j'ai bien compris,

Code:

For I = 1 To Worksheets.Count

part du dernier élément compté pour revenir à un et c'est pour cela que l'on retrouve I-1 dans

Code:

Me.Controls(I - 1)

?
J'ai bien compris aussi l'intérêt de la fonction Mid qui permet d'isoler le n° de CheckBox, mais comment est lié la propriété Caption aux Checkbox?

La finalité de la manœuvre serait de pouvoir récupérer en variable le nom des feuilles sélectionnées à l'aide des Checkbox pour les utiliser dans la suite de la procédure (en lançant un traitement avec un command_button).
Est-ce que je me dirige vers la bonne solution?

D'avance merci.

Citation:

Envoyé par Esculape

Alors le code fonctionne à merveille, mais je n'arrive pas à récupérer le nom de toutes les feuilles. Seulement 5 d'entre elles sont prises en compte.
J'aimerais pouvoir étendre cette possibilité d'ajout à 20 feuilles.

Autant pour moi. Essayez ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub UserForm_Initialize() Dim I As Integer Dim NumeroControle As Integer NumeroControle = 0 For I = 1 To Worksheets.Count If Mid(Me.Controls(NumeroControle).Name, 1, 8) = "CheckBox" Then Me.Controls(NumeroControle).Caption = Worksheets(I).Name ' MsgBox "Nom : " & Me.Controls(NumeroControle).Name & Chr(10) _ ' & "Libellé " & Me.Controls(NumeroControle).Caption & Chr(10) _ ' & "Numéro de contrôle : " & NumeroControle NumeroControle = NumeroControle + 1 End If Next I End Sub
Citation:

et c'est pour cela que l'on retrouve I-1 dans Me.Controls(I - 1)?
J'ai bien compris aussi l'intérêt de la fonction Mid qui permet d'isoler le n° de CheckBox, mais comment est lié la propriété Caption aux Checkbox?

Non, la numérotation des contrôles part de l'indice 0 et Caption est le libellé associé à l'objet CheckBox.

Citation:

La finalité de la manœuvre serait de pouvoir récupérer en variable le nom des feuilles sélectionnées à l'aide des Checkbox pour les utiliser dans la suite de la procédure (en lançant un traitement avec un command_button).
Est-ce que je me dirige vers la bonne solution?

Pourquoi ne pas charger directement la liste des onglets dans une ListBox ? Ce serait beaucoup plus lisible et plus simple à manier.
Par exemple, en créant un contrôle ListBox nommé ListBoxOnglets dans votre Userform, testez ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub UserForm_Initialize() Dim I As Integer For I = 1 To Worksheets.Count With Me.ListBoxOnglets .AddItem Worksheets(I).Name End With Next I End Sub
Cordialement.

Merci pour votre réponse!

Effectivement vous avez raison: j'étais parti sur l'idée d'une combobox à la base, puis checkbox pour plus de simplicité.
Mais une listbox fonctionne parfaitement!

La simplicité toujours :).

Pour pousser la chose un peu plus loin, je souhaite retirer ou du moins ne sélectionner que certaines feuilles.

Je manie de manière un peu hasardeuse un .RemoveItem, mais cela ne me semble pas logique d'intégrer des éléments pour ensuite les supprimer.

J'ai trouvé quelque chose dans ce style, cela dit la gestion de l'indexation des feuilles ne fonctionne pas comme je le pensais. Même en rappelant le nom de la feuille.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim I As Integer For I = 1 To Worksheets.Count With Me.ListBoxOnglets .AddItem Worksheets(I).Name End With Next I With Me.ListBoxOnglets .RemoveItem (Sheets("Liste des centres").Index) .RemoveItem (Sheets("CA").Index) End With
Avez-vous une piste pour simplifier le tout?

D'avance merci.

Citation:

Envoyé par Esculape

Pour pousser la chose un peu plus loin, je souhaite retirer ou du moins ne sélectionner que certaines feuilles.

Essayez ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub UserForm_Initialize()
 
Dim I As Integer
 
    For I = 1 To Worksheets.Count
        Select Case Worksheets(I).Name
               Case "Liste des centres", "CA"
 
               Case Else
                    With Me.ListBoxOnglets
                         .AddItem Worksheets(I).Name
                    End With
        End Select
    Next I
 
End Sub

27/12/2016, 09h30
Esculape

Super! Merci Eric, j'avais oublié l'utilité de Select Case!

Dernière question Bonus (mais je mets tout de même le sujet en résolu):

Je cherche à utiliser le nom des feuilles sélectionnées à l'aide de la ListBox plus loin dans la procédure.
Pour les stocker en mémoire de manière pérenne comment faire?

J'avoue que sans nom de variable déclaré avant je ne vois pas vraiment comment...

Citation:

Envoyé par Esculape

Je cherche à utiliser le nom des feuilles sélectionnées à l'aide de la ListBox plus loin dans la procédure.
Pour les stocker en mémoire de manière pérenne comment faire?
J'avoue que sans nom de variable déclaré avant je ne vois pas vraiment comment...

J'utilise une matrice comme dans l'exemple ci-dessous :

Pièce jointe 230762

Le code pour le lancement du liste à liste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
 
Public Continuer As Boolean
Public MatriceOnglets() As Variant
 
 
Sub SelectionnerLesOnglets()
 
Dim I As Integer
Dim MesOngletsRetenus as String
 
      ReDim MatriceOnglets(Worksheets.Count - 1, 2)
 
      With UsfListeAListe
           For I = 1 To Worksheets.Count
               MatriceOnglets(I - 1, 0) = Worksheets(I).Name
               Select Case Worksheets(I).Name
                      Case "Liste des centres", "CA"
                           With .ListBoxNonRetenus
                                .AddItem Worksheets(I).Name
                           End With
                      Case Else
                           With .ListBoxRetenus
                                .AddItem Worksheets(I).Name
                           End With
               End Select
           Next I
          .Show
    End With
 
    If Continuer = False Then Exit Sub
 
    MesOngletsRetenus = "Les onglets retenus sont : " & Chr(10)
    For I = LBound(MatriceOnglets, 1) To UBound(MatriceOnglets, 1)
        If MatriceOnglets(I, 2) = "X" Then MesOngletsRetenus = MesOngletsRetenus & Chr(10) & MatriceOnglets(I, 0)
    Next I
 
    MsgBox MesOngletsRetenus
 
End Sub

Dans le liste à liste, le code du bouton valider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub BoutonValider_Click()
 
 Dim CtrI As Long
 Dim CtrJ As Long
 
    Continuer = False
 
    If ListBoxRetenus.ListCount > 0 Then
       For CtrI = 0 To ListBoxRetenus.ListCount - 1
           For CtrJ = LBound(MatriceOnglets, 1) To UBound(MatriceOnglets, 1)
               Select Case ListBoxRetenus.List(CtrI)
                      Case MatriceOnglets(CtrJ, 0)
                           MatriceOnglets(CtrJ, 2) = "X"
               End Select
           Next CtrJ
        Next CtrI
        Continuer = True
    Else
        MsgBox ("Vous devez sélectionner au moins un onglet !")
    End If
 
    If Continuer = True Then Unload UsfListeAListe
 
End Sub

Nb : MatriceOnglets(CtrJ, 1) peut contenir d'autres informations liés aux différents choix réalisés dans le Userform.

Les ListBox sont Multiselect, on aurait pu directement mettre à jour la matrice à partir des onglets sélectionnés en ajoutant la boucle suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
    If ListBoxRetenus.ListCount > 0 Then
 
       For CtrI = ListBoxRetenus.ListCount - 1 To 0 Step -1  ' On peut aussi aller dans l'ordre croissant dans ce cas.
           If ListBoxRetenus.Selected(CtrI) = True Then
              ' .....
           End If
       Next CtrI
 
 
     End If

Cordialement.

27/12/2016, 15h27
Esculape

Bonjour,

Merci de votre réponse!

Vos compétences me dépassent un peu. En réalité je n'arrive pas à appliquer votre code à mon cas.
A priori

Code:

Public MatriceOnglets() As Variant

ne peut pas être déclaré en public.

Cependant, je cherche à conserver une seule ListBox.
Avant que vous ne postiez ce beau travail, j'avais déjà switché ma ListBox en multiselect et je pensais pouvoir exploiter cette sélection dans un tableau dynamique à une dimension par exemple.
Et à partir de ce tableau dynamique, utiliser les données stockées pour aller chercher des données dans un autre classeur.
27/12/2016, 16h20
Invité

Citation:

Envoyé par Esculape

C'est parce que le code pour alimenter l'userform est dans un module standard.

A minima, il faut déclarer la variable Public dans un module standard ou Private ou Dim dans votre module Userform.

Généralement, ce genre de variable est transverse à plusieurs modules, c'est pour cette raison que je la crée dans un module standard.

Cordialement.