Selectionner plusieur check box sur feuil1 fonctionne pas

[creolia]

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

Private Sub CommandButton1_Click()
Dim a As Long
For a = 1 To 3
Feuil1.Controls("CheckBox" & a) = True
Next
End Sub

 

[stefan373]

Re : Selectionner plusieur check box sur feuil1 fonctionne pas

Bonsoir creolia et le forum,

Voici le code adapté.

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

A+ Stéfan

 

[creolia]

Re : Selectionner plusieur check box sur feuil1 fonctionne pas

Bonjour stephane et merci pour ton aide

mais j'ai une erreur avec ton code

es ce que ta la meme erreur merci d'avance

 

[stefan373]

Re : Selectionner plusieur check box sur feuil1 fonctionne pas

Re bonsoir,

Vous avez omis le mot checkbox dans votre code.

A+ Stéfan