Checkbox à décocher à la femeture
s
Bonjour,
je souhaiterai à la fermeture du fichier, décocher toutes les checkbox de ma feuille.
J'ai écrit ceci, mais à la réouverture du fichier, les checkbox sont toujours cochées...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("AVENANT").Select
If IsEmpty(Range("c29").Value) Then
Dim Chk As CheckBox
For Each Chk In ActiveSheet.CheckBoxes
Chk.Value = False
Next
End If
End Sub
Pourriez vous svp me dire ce qui ne colle pas?
merci d'avance
Bonsoir Seb, bonsoir le forum,
Je n'ai pas testé ton code mais il me semble que si tu n'enregistres pas les modifs, c'est comme si tu urinais dans un contrebasse... Je verrais bien un petit ThisWorkbook.Save à la fin, avant le End Sub...