Public tablo(1 To 3) As Boolean 'mémorisation
Private Sub UserForm_Initialize()
Dim i As Byte
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
For i = 1 To UBound(tablo)
tablo(i) = Controls("CheckBox" & i)
Next
End Sub
Private Sub UserForm_Activate()
MsgBox "Test : UserForm activé..."
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
cancel = True
Me.Hide
End Sub
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
Public tablo(1 To 3) As Boolean 'mémorisation
Sub USF() 'macro lancée par le bouton USF
UserForm1.Show 'vbModeless ou 0 => non...
'---s'exécute APRES la fermeture de l'USF---
Dim i As Byte
With ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
For i = 1 To UBound(tablo)
.Controls("CheckBox" & i) = tablo(i)
Next
End With
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Dim i As Byte
For i = 1 To UBound(tablo)
tablo(i) = Controls("CheckBox" & i)
Next
End Sub
Public tablo(1 To 3) As Boolean, ouvert As Boolean 'mémorisation
Sub USF() 'macro lancée par le bouton USF
ouvert = True
UserForm1.Show vbModeless 'ou 0, mode NON MODAL
While ouvert
DoEvents
Wend
'---s'exécute APRES la fermeture de l'USF---
Dim i As Byte
With ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
For i = 1 To UBound(tablo)
.Controls("CheckBox" & i) = tablo(i)
Next
End With
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Dim i As Byte
For i = 1 To UBound(tablo)
tablo(i) = Controls("CheckBox" & i)
Next
ouvert = False 'arrête la boucle While dans la macro USF
End Sub