Bonsoir j'utilise une methode pour cocher 3 checkbox dans un USF qui fonctionne bien mais dans une feuil d'onglet sa beug pouvez vous me dire mon erreur svp merci
Code:
Private Sub CommandButton1_Click()
Dim a As Long
For a = 1 To 3
Feuil1.Controls("CheckBox" & a) = True
Next
End Sub
Re : Selectionner plusieur check box sur feuil1 fonctionne pas
Bonsoir creolia et le forum,
Voici le code adapté.
Code:
Private Sub CommandButton1_Click()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is msforms.CheckBox Then
obj.Object.Value = True
End If
Next obj
End Sub