[RESOLU]VBA - boucle if sur des checkbox

NeMoS

XLDnaute Junior
Bonjour à tous,

Je souhaiterai, par macro, que lors de la fermeture d'excel, toutes les valeurs des checkbox soit passée à 'FALSE' quelque soit leur valeur de départ.
J'ai écrit le code suivant
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim box As OLEObject
For Each box In Worksheets("SEARCH ENGINE").OLEObjects
    If box.Name Like "CheckBox *" Then
      If box.Object.Value = True Then
            box.Object.Value = False
      End If
    End If
Next box
   
End Sub

Je n'ai aucune erreur d'éxécution, en revanche cela ne me "decoche" pas les checkbox et donc quand je ré-ouvre le fichier, les checkbox sont dans l'état dans lequel je les ai laissées lors de la fermeture.

Il manque certainement quelquechose dans ma syntaxe ou alors je m'y prend mal, mais j'avoue que je bloque...

Quelqu'un pourrait-il m'aider ?

Je vous remercie par avance

NeMoS
 
Dernière édition:

Discussions similaires

Réponses
3
Affichages
162

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna