Discussion :

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

Code :

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

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

[joe.levrai]

Bonjour,

peut-être comme ça ?

Code :

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

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

[Philippe Tulliez]

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 :

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

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 :

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

1
2
3
Private Sub UserForm_Activate()
  EnableDisable
End Sub

Code :

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

1
2
3
Private Sub ToggleButton1_Click()
  EnableDisable
End Sub

[Franc]

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 ?

[fikou]

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

Cela ne fonctionne pas la condition :

Code :

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

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

N'est pas remplie
Idem avec :

Code :

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

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

Cordialement
FikoU

[Franc]

Salut, tu peux faire comme ceci:

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

[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

[Franc]

Salut, modifie cette ligne alors:

Code :

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

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