Cases a cocher activex. decocher toutes les cases active x

CASES A COCHER ACTIVEX. DECOCHER TOUTES LES CASES ACTIVE X. POURQUOI NE FONCTIONNE PAS.

J'ai deux fichiers Un sur lequel le bouton décoche bien toutes les cases a cocher Active X. Et l'autre qui ne fonctionne pas?

Ma question est pourquoi?

Si joint les deux fichiers simples.

Email

Bonjour,

Sub TestDecocherCocherLesCheckbox()

   ' DecocherCocherLesCheckbox "Cocher"
    DecocherCocherLesCheckbox "x"

End Sub

Sub DecocherCocherLesCheckbox(ByVal Action As String)

Dim Ws As Worksheet
Dim Xbox As OLEObject

    For Each Ws In ThisWorkbook.Worksheets
        For Each Xbox In Ws.OLEObjects
            If Mid(Xbox.Name, 1, 8) = "CheckBox" Then
               If Action = "Cocher" Then
                  Ws.OLEObjects(Xbox.Name).Object.Value = True
               Else
                  Ws.OLEObjects(Xbox.Name).Object.Value = False
               End If
            End If
        Next
    Next

End Sub

Merci je vais essayer des que je peut. Je n'ai pour l'instant pas put envoyer le fichier qui pose probleme.

En fait je ne veut rien passer en parametre a moins que puisse passer en parametre ChecBox* Cocher si c'est bien cela avec mon bouton de commande.

Mais de préférence j'aurai préférer juste le clic bouton.

En géneral le débug cale ici:

Ws.OLEObjects(Xbox.Name).Object.Value = True

Il suffit de comprendre comment je m'y suis pris pour l'adapter à ce que vous souhaitez.

Pourquoi est ce que je ne peut pas joindre un deuxiéme fichier???