Initialisation checkbox enabled

Version imprimable

Bonjour,

J'ai créé des checkbox avec tous un nom différent (chkTous, chkFacture...)
J'aimerais tous les activer ou désactiver (Enabled)
Tous les exemples que j'ai trouvé sont avec un nom "CheckBox"
Code:

1 2 3 4 5 6 7 8 Private Function ActiveChk(bActif As Boolean) Dim c As Object For Each c In ActiveSheet.OLEObjects If InStr(1, c.Name, "CheckBox") > 0 Then c.Object.Venable = bActif End If Next End Function
Merci de vos retour
FikoU

Bonjour,

peut-être comme ça ?

Code:

1
2
3
4
5
6
7
8
Private Function ActiveChk(bActif As Boolean)
Dim c As Object
For Each c In ActiveSheet.OLEObjects
    If c.progID = "Forms.CheckBox.1" Then
        c.Object.Enabled = bActif
    End If
Next
End Function

1 pièce(s) jointe(s)

Bonjour,
Voici une autre approche s'il s'agit d'activer et désactiver plusieurs contrôle à la fois

On insère les contrôles dans un Frame et au lieu de boucler sur l'ensemble des contrôles, on change la propriété Enabled du Frame ce qui bloque ou débloque l'accès à tous les contrôles qui se trouvent à l'intérieur du Frame

La procédure qui gère la propriété Enabled du Frame ainsi que la propriété Caption du bouton bascule (ToggleButton)
Code:

1 2 3 4 5 6 7 8 9 Sub EnableDisable() ' Modifie la propriété Enabled du Frame Dim Msg As Variant Msg = Array("Activer", "Désactiver") ' Message à afficher dans le bouton bascule With Me .Frame1.Enabled = .ToggleButton1.Value With .ToggleButton1: .Caption = Msg(Abs(.Value)): End With End With End Sub
Les deux procédures événementielles qui invoquent cette procédure
Code:

1 2 3 Private Sub UserForm_Activate() EnableDisable End Sub
Code:

1 2 3 Private Sub ToggleButton1_Click() EnableDisable End Sub
Pièce jointe 646069

02/11/2023, 19h35
Franc

Citation:

Envoyé par fikou

Bonjour,

J'ai créé des checkbox avec tous un nom différent (chkTous, chkFacture...)
J'aimerais tous les activer ou désactiver (Enabled)
Tous les exemples que j'ai trouvé sont avec un nom "CheckBox"

Bonjour, indépendamment de l'excellente solution fournie par Philippe (que je salue), qu'est-ce qui t'empêchait de remplacer "CheckBox" par "chk" dans ta fonction ?
03/11/2023, 11h15
fikou

Bonjour à tous et merci,
Mes contrôles sont sur une feuille et non dans une forms.

Cela ne fonctionne pas la condition :

Code:

If c.progID = "Forms.CheckBox.1" Then

N'est pas remplie
Idem avec :

Code:

If c.progID = "Forms.Chk.1" Then

Cordialement
FikoU

Salut, tu peux faire comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ActiverDesactiverCheckBoxes()
    Dim ws As Worksheet
    Dim cb As Object
 
    ' Spécifie la feuille sur laquelle se trouvent tes contrôles ActiveX
    Set ws = ThisWorkbook.Sheets("Feuil1")
 
    ' Boucle à travers tous les contrôles ActiveX sur la feuille
    For Each cb In ws.OLEObjects
        ' Vérifie si le contrôle est une case à cocher ActiveX
        If TypeOf cb.Object Is MSForms.CheckBox Then
            ' Active ou désactive la checkbox en fonction de son état actuel
            cb.Object.Value = Not cb.Object.Value
        End If
    Next cb
End Sub

08/11/2023, 07h51
fikou

Bonjour à tous,
Merci pour vos réponses.
J'ai opté pour la solution de Franc et cela fonctionne.
Si je veux exclure une checkbox d'après son nom ?

Dans vos réponses il y à été fait mention de Forms. Mes contrôles sont sur une feuille.
Quelle avantage de faire une forms ?

Merci

FikoU
08/11/2023, 10h22
Franc

Salut, modifie cette ligne alors:

Code:

If TypeOf cb.Object Is MSForms.CheckBox And cb.Name <> "CheckBox1" Then