Discussion :

[Esculape]

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 :

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

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!

[Invité]

Bonjour,

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

Un exemple possible :

Code :

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

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.

[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 :

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

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 :

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

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.

[Invité]

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 :

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 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

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.

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 :

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

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.

[Esculape]

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 :

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

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.

[Invité]

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

Essayez ce code :

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
 
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