Option Explicit
Private nLigne As String
' Désactive la fermeture de la fenêtre
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Initialize()
End Sub
Private Sub CommandButton1_Click()
NumLignes = ""
Dim nLigne(19)
For i = 1 To 19
If Me.Controls("checkbox" & i) = True Then
nLigne(i) = Controls("CheckBox" & i).Caption
NumLignes = NumLignes & nLigne(i) & " "
Else
NumLignes = NumLignes & nLigne(i) & ""
End If
Next i
If NumLignes = "" Then
MsgBox "Veuillez sélectionner au moins une ligne svp...", , "Erreur !!!"
Else
NumLignes = Trim(NumLignes)
NouvSaisie.TextBox4.Value = NumLignes
' Unload Me
End If
End Sub