Discussion :

[fikou]

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 :

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

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

[Franc]

Bonjour, il te manque une boucle pour tester toutes tes checkbox 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
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

[fikou]

Bonsoir,
Merci pour ta réponse.

Ca fonctionne

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