Selection type object checkbox

Version imprimable

Bonjour,
J'ai plusieurs CheckBox sur une feuille
J'aimerais tester les checkbox cochées

Ce code plante "Variable objet ou variable de bloc With non définie"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub cmdFacture_Click() Dim wksChoixFact As Worksheet Set wksChoixFact = Worksheets("Créationfacture") Dim c As OLEObject If c.Name = "chkTous" Then MsgBox ("ok chkTous " & sNomSociete) End If End Sub
A dispo si pas clair
Merci d'avance
FikoU

Bonjour, il te manque une boucle pour tester toutes tes checkbox de la feuille:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub cmdFacture_Click()
 
    Dim wksChoixFact As Worksheet
    Set wksChoixFact = Worksheets("Créationfacture")
 
    Dim c As OLEObject
 
    ' Parcours toutes les objets OLE sur la feuille
    For Each c In wksChoixFact.OLEObjects
        If TypeOf c.Object Is MSForms.CheckBox Then
            If c.Object.Value = True Then ' Vérifie si la CheckBox est cochée
                MsgBox "CheckBox cochée: " & c.Name
            End If
        End If
    Next c
 
End Sub

Bonsoir,
Merci pour ta réponse.

Ca fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub cmdFacture_Click()
'''test sélection société
Dim wksChoixFact As Worksheet
Set wksChoixFact = Worksheets("Créationfacture")
Dim c As OLEObject
'
For Each c In wksChoixFact.OLEObjects
    If TypeOf c.Object Is MSForms.CheckBox Then
        MsgBox ("Test if")
        If c.Name = "ChkTous" Then
             MsgBox ("ok chkTous ")
        End If
    End If
Next
 
End Sub

Encore merci et bonne soirée
FikoU