Checkbox se vide dans userform

job75 à dit:

Re : Checkbox se vide dans userform

Bonjour agir2, Laetitia

Pour conserver durablement l'état des CheckBox, mémoriser dans un nom défini ("Check") :

Code:

Private Sub UserForm_Initialize()
Dim tablo, i As Byte
tablo = [Check]
If IsError(tablo) Then Exit Sub
For i = 1 To UBound(tablo)
  Controls("CheckBox" & i) = tablo(i)
Next
End Sub

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Dim i As Byte, tablo(1 To 3) As Boolean
For i = 1 To UBound(tablo)
  tablo(i) = Controls("CheckBox" & i)
Next
ThisWorkbook.Names.Add "Check", tablo 'mémorisation dans un nom défini
End Sub

Attention : la variable tablo ne doit plus être mémorisée dans Module1...

Fichier (2).

A+

Cliquez pour agrandir...