[RESOLU]VBA - boucle if sur des checkbox

[NeMoS]

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

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

 

[CHALET53]

Re : VBA - boucle if sur des checkbox

Bonjour,

Peut-être sans espace entre checkbox et * dans :

If box.Name Like "CheckBox *" Then

a+

 

[NeMoS]

Re : VBA - boucle if sur des checkbox

Bonjour CHALET53,

Ben voui, c'était bien cela, un petit espace en trop...

Merci beaucoup pour ta réponse et ton aide...

NeMoS