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